!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
! Copyright (c) 2020-2022 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.
!
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

!--------!
! Solver !
!--------!

! getrf
function hipblasSgetrfFortran(handle, n, A, lda, ipiv, info) &
    bind(c, name='hipblasSgetrfFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfFortran
    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
    hipblasSgetrfFortran = &
        hipblasSgetrf(handle, n, A, lda, ipiv, info)
end function hipblasSgetrfFortran

function hipblasDgetrfFortran(handle, n, A, lda, ipiv, info) &
    bind(c, name='hipblasDgetrfFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfFortran
    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
    hipblasDgetrfFortran = &
        hipblasDgetrf(handle, n, A, lda, ipiv, info)
end function hipblasDgetrfFortran

function hipblasCgetrfFortran(handle, n, A, lda, ipiv, info) &
    bind(c, name='hipblasCgetrfFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfFortran
    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
    hipblasCgetrfFortran = &
        hipblasCgetrf(handle, n, A, lda, ipiv, info)
end function hipblasCgetrfFortran

function hipblasZgetrfFortran(handle, n, A, lda, ipiv, info) &
    bind(c, name='hipblasZgetrfFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfFortran
    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
    hipblasZgetrfFortran = &
        hipblasZgetrf(handle, n, A, lda, ipiv, info)
end function hipblasZgetrfFortran

! getrf_batched
function hipblasSgetrfBatchedFortran(handle, n, A, lda, ipiv, info, batch_count) &
    bind(c, name='hipblasSgetrfBatchedFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrfBatchedFortran
    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
    hipblasSgetrfBatchedFortran = &
        hipblasSgetrfBatched(handle, n, A, lda, ipiv, info, batch_count)
end function hipblasSgetrfBatchedFortran

function hipblasDgetrfBatchedFortran(handle, n, A, lda, ipiv, info, batch_count) &
    bind(c, name='hipblasDgetrfBatchedFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrfBatchedFortran
    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
    hipblasDgetrfBatchedFortran = &
        hipblasDgetrfBatched(handle, n, A, lda, ipiv, info, batch_count)
end function hipblasDgetrfBatchedFortran

function hipblasCgetrfBatchedFortran(handle, n, A, lda, ipiv, info, batch_count) &
    bind(c, name='hipblasCgetrfBatchedFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrfBatchedFortran
    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
    hipblasCgetrfBatchedFortran = &
        hipblasCgetrfBatched(handle, n, A, lda, ipiv, info, batch_count)
end function hipblasCgetrfBatchedFortran

function hipblasZgetrfBatchedFortran(handle, n, A, lda, ipiv, info, batch_count) &
    bind(c, name='hipblasZgetrfBatchedFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrfBatchedFortran
    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
    hipblasZgetrfBatchedFortran = &
        hipblasZgetrfBatched(handle, n, A, lda, ipiv, info, batch_count)
end function hipblasZgetrfBatchedFortran

! getrf_strided_batched
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
    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
    type(c_ptr), value :: ipiv
    integer(c_int), value :: stride_P
    type(c_ptr), value :: info
    integer(c_int), value :: batch_count
    hipblasSgetrfStridedBatchedFortran = &
        hipblasSgetrfStridedBatched(handle, n, A, lda, stride_A, &
                                    ipiv, stride_P, info, batch_count)
end function hipblasSgetrfStridedBatchedFortran

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
    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
    type(c_ptr), value :: ipiv
    integer(c_int), value :: stride_P
    type(c_ptr), value :: info
    integer(c_int), value :: batch_count
    hipblasDgetrfStridedBatchedFortran = &
        hipblasDgetrfStridedBatched(handle, n, A, lda, stride_A, &
                                    ipiv, stride_P, info, batch_count)
end function hipblasDgetrfStridedBatchedFortran

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
    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
    type(c_ptr), value :: ipiv
    integer(c_int), value :: stride_P
    type(c_ptr), value :: info
    integer(c_int), value :: batch_count
    hipblasCgetrfStridedBatchedFortran = &
        hipblasCgetrfStridedBatched(handle, n, A, lda, stride_A, &
                                    ipiv, stride_P, info, batch_count)
end function hipblasCgetrfStridedBatchedFortran

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
    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
    type(c_ptr), value :: ipiv
    integer(c_int), value :: stride_P
    type(c_ptr), value :: info
    integer(c_int), value :: batch_count
    hipblasZgetrfStridedBatchedFortran = &
        hipblasZgetrfStridedBatched(handle, n, A, lda, stride_A, &
                                    ipiv, stride_P, info, batch_count)
end function hipblasZgetrfStridedBatchedFortran

! getrs
function hipblasSgetrsFortran(handle, trans, n, nrhs, A, lda, ipiv, &
                                B, ldb, info) &
    bind(c, name='hipblasSgetrsFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsFortran
    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
    hipblasSgetrsFortran = &
        hipblasSgetrs(handle, trans, n, nrhs, A, lda, &
                        ipiv, B, ldb, info)
end function hipblasSgetrsFortran

function hipblasDgetrsFortran(handle, trans, n, nrhs, A, lda, ipiv, &
                                B, ldb, info) &
    bind(c, name='hipblasDgetrsFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsFortran
    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
    hipblasDgetrsFortran = &
        hipblasDgetrs(handle, trans, n, nrhs, A, lda, &
                        ipiv, B, ldb, info)
end function hipblasDgetrsFortran

function hipblasCgetrsFortran(handle, trans, n, nrhs, A, lda, ipiv, &
                                B, ldb, info) &
    bind(c, name='hipblasCgetrsFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsFortran
    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
    hipblasCgetrsFortran = &
        hipblasCgetrs(handle, trans, n, nrhs, A, lda, &
                        ipiv, B, ldb, info)
end function hipblasCgetrsFortran

function hipblasZgetrsFortran(handle, trans, n, nrhs, A, lda, ipiv, &
                                B, ldb, info) &
    bind(c, name='hipblasZgetrsFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsFortran
    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
    hipblasZgetrsFortran = &
        hipblasZgetrs(handle, trans, n, nrhs, A, lda, &
                        ipiv, B, ldb, info)
end function hipblasZgetrsFortran

! getrs_batched
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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsBatchedFortran
    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
    hipblasSgetrsBatchedFortran = &
        hipblasSgetrsBatched(handle, trans, n, nrhs, A, lda, &
                                ipiv, B, ldb, info, batch_count)
end function hipblasSgetrsBatchedFortran

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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsBatchedFortran
    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
    hipblasDgetrsBatchedFortran = &
        hipblasDgetrsBatched(handle, trans, n, nrhs, A, lda, &
                                ipiv, B, ldb, info, batch_count)
end function hipblasDgetrsBatchedFortran

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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsBatchedFortran
    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
    hipblasCgetrsBatchedFortran = &
        hipblasCgetrsBatched(handle, trans, n, nrhs, A, lda, &
                                ipiv, B, ldb, info, batch_count)
end function hipblasCgetrsBatchedFortran

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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsBatchedFortran
    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
    hipblasZgetrsBatchedFortran = &
        hipblasZgetrsBatched(handle, trans, n, nrhs, A, lda, &
                                ipiv, B, ldb, info, batch_count)
end function hipblasZgetrsBatchedFortran

! getrs_strided_batched
function hipblasSgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stride_A, ipiv, &
                                            stride_P, B, ldb, stride_B, info, batch_count) &
    bind(c, name='hipblasSgetrsStridedBatchedFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatchedFortran
    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
    hipblasSgetrsStridedBatchedFortran = &
        hipblasSgetrsStridedBatched(handle, trans, n, nrhs, A, lda, stride_A, &
                                    ipiv, stride_P, B, ldb, stride_B, info, batch_count)
end function hipblasSgetrsStridedBatchedFortran

function hipblasDgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stride_A, ipiv, &
                                            stride_P, B, ldb, stride_B, info, batch_count) &
    bind(c, name='hipblasDgetrsStridedBatchedFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatchedFortran
    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
    hipblasDgetrsStridedBatchedFortran = &
        hipblasDgetrsStridedBatched(handle, trans, n, nrhs, A, lda, stride_A, &
                                    ipiv, stride_P, B, ldb, stride_B, info, batch_count)
end function hipblasDgetrsStridedBatchedFortran

function hipblasCgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stride_A, ipiv, &
                                            stride_P, B, ldb, stride_B, info, batch_count) &
    bind(c, name='hipblasCgetrsStridedBatchedFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatchedFortran
    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
    hipblasCgetrsStridedBatchedFortran = &
        hipblasCgetrsStridedBatched(handle, trans, n, nrhs, A, lda, stride_A, &
                                    ipiv, stride_P, B, ldb, stride_B, info, batch_count)
end function hipblasCgetrsStridedBatchedFortran

function hipblasZgetrsStridedBatchedFortran(handle, trans, n, nrhs, A, lda, stride_A, ipiv, &
                                            stride_P, B, ldb, stride_B, info, batch_count) &
    bind(c, name='hipblasZgetrsStridedBatchedFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatchedFortran
    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
    hipblasZgetrsStridedBatchedFortran = &
        hipblasZgetrsStridedBatched(handle, trans, n, nrhs, A, lda, stride_A, &
                                    ipiv, stride_P, B, ldb, stride_B, info, batch_count)
end function hipblasZgetrsStridedBatchedFortran

! getri_batched
function hipblasSgetriBatchedFortran(handle, n, A, lda, ipiv, C, ldc, info, batch_count) &
    bind(c, name='hipblasSgetriBatchedFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetriBatchedFortran
    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
    hipblasSgetriBatchedFortran = &
        hipblasSgetriBatched(handle, n, A, lda, ipiv, C, ldc, info, batch_count)
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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetriBatchedFortran
    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
    hipblasDgetriBatchedFortran = &
        hipblasDgetriBatched(handle, n, A, lda, ipiv, C, ldc, info, batch_count)
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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetriBatchedFortran
    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
    hipblasCgetriBatchedFortran = &
        hipblasCgetriBatched(handle, n, A, lda, ipiv, C, ldc, info, batch_count)
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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetriBatchedFortran
    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
    hipblasZgetriBatchedFortran = &
        hipblasZgetriBatched(handle, n, A, lda, ipiv, C, ldc, info, batch_count)
end function hipblasZgetriBatchedFortran

! geqrf
function hipblasSgeqrfFortran(handle, m, n, A, lda, tau, info) &
    bind(c, name='hipblasSgeqrfFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfFortran
    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
    hipblasSgeqrfFortran = &
        hipblasSgeqrf(handle, m, n, A, lda, tau, info)
end function hipblasSgeqrfFortran

function hipblasDgeqrfFortran(handle, m, n, A, lda, tau, info) &
    bind(c, name='hipblasDgeqrfFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfFortran
    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
    hipblasDgeqrfFortran = &
        hipblasDgeqrf(handle, m, n, A, lda, tau, info)
end function hipblasDgeqrfFortran

function hipblasCgeqrfFortran(handle, m, n, A, lda, tau, info) &
    bind(c, name='hipblasCgeqrfFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfFortran
    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
    hipblasCgeqrfFortran = &
        hipblasCgeqrf(handle, m, n, A, lda, tau, info)
end function hipblasCgeqrfFortran

function hipblasZgeqrfFortran(handle, m, n, A, lda, tau, info) &
    bind(c, name='hipblasZgeqrfFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfFortran
    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
    hipblasZgeqrfFortran = &
        hipblasZgeqrf(handle, m, n, A, lda, tau, info)
end function hipblasZgeqrfFortran

! geqrf_batched
function hipblasSgeqrfBatchedFortran(handle, m, n, A, lda, tau, info, batch_count) &
    bind(c, name='hipblasSgeqrfBatchedFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfBatchedFortran
    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
    hipblasSgeqrfBatchedFortran = &
        hipblasSgeqrfBatched(handle, m, n, A, lda, tau, info, batch_count)
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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfBatchedFortran
    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
    hipblasDgeqrfBatchedFortran = &
        hipblasDgeqrfBatched(handle, m, n, A, lda, tau, info, batch_count)
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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfBatchedFortran
    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
    hipblasCgeqrfBatchedFortran = &
        hipblasCgeqrfBatched(handle, m, n, A, lda, tau, info, batch_count)
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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfBatchedFortran
    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
    hipblasZgeqrfBatchedFortran = &
        hipblasZgeqrfBatched(handle, m, n, A, lda, tau, info, batch_count)
end function hipblasZgeqrfBatchedFortran

! geqrf_strided_batched
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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatchedFortran
    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
    hipblasSgeqrfStridedBatchedFortran = &
        hipblasSgeqrfStridedBatched(handle, m, n, A, lda, stride_A, &
                                    tau, stride_T, info, batch_count)
end function hipblasSgeqrfStridedBatchedFortran

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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatchedFortran
    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
    hipblasDgeqrfStridedBatchedFortran = &
        hipblasDgeqrfStridedBatched(handle, m, n, A, lda, stride_A, &
                                    tau, stride_T, info, batch_count)
end function hipblasDgeqrfStridedBatchedFortran

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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatchedFortran
    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
    hipblasCgeqrfStridedBatchedFortran = &
        hipblasCgeqrfStridedBatched(handle, m, n, A, lda, stride_A, &
                                    tau, stride_T, info, batch_count)
end function hipblasCgeqrfStridedBatchedFortran

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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatchedFortran
    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
    hipblasZgeqrfStridedBatchedFortran = &
        hipblasZgeqrfStridedBatched(handle, m, n, A, lda, stride_A, &
                                    tau, stride_T, info, batch_count)
end function hipblasZgeqrfStridedBatchedFortran

! gels
function hipblasSgelsFortran(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo) &
    bind(c, name='hipblasSgelsFortran')
    use iso_c_binding
    use hipblas_enums
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsFortran
    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
    hipblasSgelsFortran = &
        hipblasSgels(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo)
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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsFortran
    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
    hipblasDgelsFortran = &
        hipblasDgels(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo)
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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsFortran
    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
    hipblasCgelsFortran = &
        hipblasCgels(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo)
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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsFortran
    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
    hipblasZgelsFortran = &
        hipblasZgels(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo)
end function hipblasZgelsFortran

! gelsBatched
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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsBatchedFortran
    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
    hipblasSgelsBatchedFortran = &
        hipblasSgelsBatched(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo, batchCount)
end function hipblasSgelsBatchedFortran

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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsBatchedFortran
    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
    hipblasDgelsBatchedFortran = &
        hipblasDgelsBatched(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo, batchCount)
end function hipblasDgelsBatchedFortran

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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsBatchedFortran
    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
    hipblasCgelsBatchedFortran = &
        hipblasCgelsBatched(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo, batchCount)
end function hipblasCgelsBatchedFortran

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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsBatchedFortran
    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
    hipblasZgelsBatchedFortran = &
        hipblasZgelsBatched(handle, trans, m, n, nrhs, A, lda, B, ldb, info, deviceInfo, batchCount)
end function hipblasZgelsBatchedFortran

! gelsStridedBatched
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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsStridedBatchedFortran
    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
    hipblasSgelsStridedBatchedFortran = &
        hipblasSgelsStridedBatched(handle, trans, m, n, nrhs, A, lda, strideA, &
    B, ldb, strideB, info, deviceInfo, batchCount)
end function hipblasSgelsStridedBatchedFortran

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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsStridedBatchedFortran
    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
    hipblasDgelsStridedBatchedFortran = &
        hipblasDgelsStridedBatched(handle, trans, m, n, nrhs, A, lda, strideA, &
    B, ldb, strideB, info, deviceInfo, batchCount)
end function hipblasDgelsStridedBatchedFortran

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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsStridedBatchedFortran
    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
    hipblasCgelsStridedBatchedFortran = &
        hipblasCgelsStridedBatched(handle, trans, m, n, nrhs, A, lda, strideA, &
    B, ldb, strideB, info, deviceInfo, batchCount)
end function hipblasCgelsStridedBatchedFortran

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
    implicit none
    integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsStridedBatchedFortran
    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
    hipblasZgelsStridedBatchedFortran = &
        hipblasZgelsStridedBatched(handle, trans, m, n, nrhs, A, lda, strideA, &
    B, ldb, strideB, info, deviceInfo, batchCount)
end function hipblasZgelsStridedBatchedFortran