!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! 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. ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! This file interfaces between the unit test infrastructure and the Fortran ! rocblas module. module rocblas_interface use iso_c_binding use rocblas contains !--------! ! blas 1 ! !--------! ! scal function rocblas_sscal_fortran(handle, n, alpha, x, incx) & bind(c, name='rocblas_sscal_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sscal_fortran 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 rocblas_sscal_fortran = & rocblas_sscal(handle, n, alpha, x, incx) return end function rocblas_sscal_fortran function rocblas_dscal_fortran(handle, n, alpha, x, incx) & bind(c, name='rocblas_dscal_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dscal_fortran 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 rocblas_dscal_fortran = & rocblas_dscal(handle, n, alpha, x, incx) return end function rocblas_dscal_fortran function rocblas_cscal_fortran(handle, n, alpha, x, incx) & bind(c, name='rocblas_cscal_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cscal_fortran 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 rocblas_cscal_fortran = & rocblas_cscal(handle, n, alpha, x, incx) return end function rocblas_cscal_fortran function rocblas_zscal_fortran(handle, n, alpha, x, incx) & bind(c, name='rocblas_zscal_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zscal_fortran 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 rocblas_zscal_fortran = & rocblas_zscal(handle, n, alpha, x, incx) return end function rocblas_zscal_fortran function rocblas_csscal_fortran(handle, n, alpha, x, incx) & bind(c, name='rocblas_csscal_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csscal_fortran 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 rocblas_csscal_fortran = & rocblas_csscal(handle, n, alpha, x, incx) return end function rocblas_csscal_fortran function rocblas_zdscal_fortran(handle, n, alpha, x, incx) & bind(c, name='rocblas_zdscal_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdscal_fortran 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 rocblas_zdscal_fortran = & rocblas_zdscal(handle, n, alpha, x, incx) return end function rocblas_zdscal_fortran ! scal 64 function rocblas_sscal_64_fortran(handle, n, alpha, x, incx) & bind(c, name='rocblas_sscal_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sscal_64_fortran 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 rocblas_sscal_64_fortran = & rocblas_sscal_64(handle, n, alpha, x, incx) return end function rocblas_sscal_64_fortran function rocblas_dscal_64_fortran(handle, n, alpha, x, incx) & bind(c, name='rocblas_dscal_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dscal_64_fortran 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 rocblas_dscal_64_fortran = & rocblas_dscal_64(handle, n, alpha, x, incx) return end function rocblas_dscal_64_fortran function rocblas_cscal_64_fortran(handle, n, alpha, x, incx) & bind(c, name='rocblas_cscal_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cscal_64_fortran 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 rocblas_cscal_64_fortran = & rocblas_cscal_64(handle, n, alpha, x, incx) return end function rocblas_cscal_64_fortran function rocblas_zscal_64_fortran(handle, n, alpha, x, incx) & bind(c, name='rocblas_zscal_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zscal_64_fortran 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 rocblas_zscal_64_fortran = & rocblas_zscal_64(handle, n, alpha, x, incx) return end function rocblas_zscal_64_fortran function rocblas_csscal_64_fortran(handle, n, alpha, x, incx) & bind(c, name='rocblas_csscal_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csscal_64_fortran 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 rocblas_csscal_64_fortran = & rocblas_csscal_64(handle, n, alpha, x, incx) return end function rocblas_csscal_64_fortran function rocblas_zdscal_64_fortran(handle, n, alpha, x, incx) & bind(c, name='rocblas_zdscal_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdscal_64_fortran 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 rocblas_zdscal_64_fortran = & rocblas_zdscal_64(handle, n, alpha, x, incx) return end function rocblas_zdscal_64_fortran ! scal_batched function rocblas_sscal_batched_fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='rocblas_sscal_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sscal_batched_fortran 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 rocblas_sscal_batched_fortran = & rocblas_sscal_batched(handle, n, alpha, x, incx, batch_count) return end function rocblas_sscal_batched_fortran function rocblas_dscal_batched_fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='rocblas_dscal_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dscal_batched_fortran 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 rocblas_dscal_batched_fortran = & rocblas_dscal_batched(handle, n, alpha, x, incx, batch_count) return end function rocblas_dscal_batched_fortran function rocblas_cscal_batched_fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='rocblas_cscal_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cscal_batched_fortran 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 rocblas_cscal_batched_fortran = & rocblas_cscal_batched(handle, n, alpha, x, incx, batch_count) return end function rocblas_cscal_batched_fortran function rocblas_zscal_batched_fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='rocblas_zscal_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zscal_batched_fortran 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 rocblas_zscal_batched_fortran = & rocblas_zscal_batched(handle, n, alpha, x, incx, batch_count) return end function rocblas_zscal_batched_fortran function rocblas_csscal_batched_fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='rocblas_csscal_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csscal_batched_fortran 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 rocblas_csscal_batched_fortran = & rocblas_csscal_batched(handle, n, alpha, x, incx, batch_count) return end function rocblas_csscal_batched_fortran function rocblas_zdscal_batched_fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='rocblas_zdscal_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdscal_batched_fortran 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 rocblas_zdscal_batched_fortran = & rocblas_zdscal_batched(handle, n, alpha, x, incx, batch_count) return end function rocblas_zdscal_batched_fortran ! scal_batched 64 function rocblas_sscal_batched_64_fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='rocblas_sscal_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sscal_batched_64_fortran 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 rocblas_sscal_batched_64_fortran = & rocblas_sscal_batched_64(handle, n, alpha, x, incx, batch_count) return end function rocblas_sscal_batched_64_fortran function rocblas_dscal_batched_64_fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='rocblas_dscal_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dscal_batched_64_fortran 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 rocblas_dscal_batched_64_fortran = & rocblas_dscal_batched_64(handle, n, alpha, x, incx, batch_count) return end function rocblas_dscal_batched_64_fortran function rocblas_cscal_batched_64_fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='rocblas_cscal_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cscal_batched_64_fortran 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 rocblas_cscal_batched_64_fortran = & rocblas_cscal_batched_64(handle, n, alpha, x, incx, batch_count) return end function rocblas_cscal_batched_64_fortran function rocblas_zscal_batched_64_fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='rocblas_zscal_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zscal_batched_64_fortran 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 rocblas_zscal_batched_64_fortran = & rocblas_zscal_batched_64(handle, n, alpha, x, incx, batch_count) return end function rocblas_zscal_batched_64_fortran function rocblas_csscal_batched_64_fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='rocblas_csscal_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csscal_batched_64_fortran 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 rocblas_csscal_batched_64_fortran = & rocblas_csscal_batched_64(handle, n, alpha, x, incx, batch_count) return end function rocblas_csscal_batched_64_fortran function rocblas_zdscal_batched_64_fortran(handle, n, alpha, x, incx, batch_count) & bind(c, name='rocblas_zdscal_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdscal_batched_64_fortran 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 rocblas_zdscal_batched_64_fortran = & rocblas_zdscal_batched_64(handle, n, alpha, x, incx, batch_count) return end function rocblas_zdscal_batched_64_fortran ! scal_strided_batched function rocblas_sscal_strided_batched_fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='rocblas_sscal_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sscal_strided_batched_fortran 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 rocblas_sscal_strided_batched_fortran = & rocblas_sscal_strided_batched(handle, n, alpha, x, incx, stride_x, batch_count) return end function rocblas_sscal_strided_batched_fortran function rocblas_dscal_strided_batched_fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='rocblas_dscal_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dscal_strided_batched_fortran 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 rocblas_dscal_strided_batched_fortran = & rocblas_dscal_strided_batched(handle, n, alpha, x, incx, stride_x, batch_count) return end function rocblas_dscal_strided_batched_fortran function rocblas_cscal_strided_batched_fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='rocblas_cscal_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cscal_strided_batched_fortran 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 rocblas_cscal_strided_batched_fortran = & rocblas_cscal_strided_batched(handle, n, alpha, x, incx, stride_x, batch_count) return end function rocblas_cscal_strided_batched_fortran function rocblas_zscal_strided_batched_fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='rocblas_zscal_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zscal_strided_batched_fortran 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 rocblas_zscal_strided_batched_fortran = & rocblas_zscal_strided_batched(handle, n, alpha, x, incx, stride_x, batch_count) return end function rocblas_zscal_strided_batched_fortran function rocblas_csscal_strided_batched_fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='rocblas_csscal_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csscal_strided_batched_fortran 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 rocblas_csscal_strided_batched_fortran = & rocblas_csscal_strided_batched(handle, n, alpha, x, incx, stride_x, batch_count) return end function rocblas_csscal_strided_batched_fortran function rocblas_zdscal_strided_batched_fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='rocblas_zdscal_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdscal_strided_batched_fortran 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 rocblas_zdscal_strided_batched_fortran = & rocblas_zdscal_strided_batched(handle, n, alpha, x, incx, stride_x, batch_count) return end function rocblas_zdscal_strided_batched_fortran ! scal_strided_batched_64 function rocblas_sscal_strided_batched_64_fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='rocblas_sscal_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sscal_strided_batched_64_fortran 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 rocblas_sscal_strided_batched_64_fortran = & rocblas_sscal_strided_batched_64(handle, n, alpha, x, incx, stride_x, batch_count) return end function rocblas_sscal_strided_batched_64_fortran function rocblas_dscal_strided_batched_64_fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='rocblas_dscal_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dscal_strided_batched_64_fortran 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 rocblas_dscal_strided_batched_64_fortran = & rocblas_dscal_strided_batched_64(handle, n, alpha, x, incx, stride_x, batch_count) return end function rocblas_dscal_strided_batched_64_fortran function rocblas_cscal_strided_batched_64_fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='rocblas_cscal_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cscal_strided_batched_64_fortran 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 rocblas_cscal_strided_batched_64_fortran = & rocblas_cscal_strided_batched_64(handle, n, alpha, x, incx, stride_x, batch_count) return end function rocblas_cscal_strided_batched_64_fortran function rocblas_zscal_strided_batched_64_fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='rocblas_zscal_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zscal_strided_batched_64_fortran 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 rocblas_zscal_strided_batched_64_fortran = & rocblas_zscal_strided_batched_64(handle, n, alpha, x, incx, stride_x, batch_count) return end function rocblas_zscal_strided_batched_64_fortran function rocblas_csscal_strided_batched_64_fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='rocblas_csscal_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csscal_strided_batched_64_fortran 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 rocblas_csscal_strided_batched_64_fortran = & rocblas_csscal_strided_batched_64(handle, n, alpha, x, incx, stride_x, batch_count) return end function rocblas_csscal_strided_batched_64_fortran function rocblas_zdscal_strided_batched_64_fortran(handle, n, alpha, x, incx, stride_x, batch_count) & bind(c, name='rocblas_zdscal_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdscal_strided_batched_64_fortran 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 rocblas_zdscal_strided_batched_64_fortran = & rocblas_zdscal_strided_batched_64(handle, n, alpha, x, incx, stride_x, batch_count) return end function rocblas_zdscal_strided_batched_64_fortran ! copy function rocblas_scopy_fortran(handle, n, x, incx, y, incy) & bind(c, name='rocblas_scopy_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scopy_fortran 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 rocblas_scopy_fortran = & rocblas_scopy(handle, n, x, incx, y, incy) return end function rocblas_scopy_fortran function rocblas_dcopy_fortran(handle, n, x, incx, y, incy) & bind(c, name='rocblas_dcopy_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dcopy_fortran 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 rocblas_dcopy_fortran = & rocblas_dcopy(handle, n, x, incx, y, incy) return end function rocblas_dcopy_fortran function rocblas_ccopy_fortran(handle, n, x, incx, y, incy) & bind(c, name='rocblas_ccopy_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ccopy_fortran 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 rocblas_ccopy_fortran = & rocblas_ccopy(handle, n, x, incx, y, incy) return end function rocblas_ccopy_fortran function rocblas_zcopy_fortran(handle, n, x, incx, y, incy) & bind(c, name='rocblas_zcopy_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zcopy_fortran 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 rocblas_zcopy_fortran = & rocblas_zcopy(handle, n, x, incx, y, incy) return end function rocblas_zcopy_fortran ! copy 64 function rocblas_scopy_64_fortran(handle, n, x, incx, y, incy) & bind(c, name='rocblas_scopy_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scopy_64_fortran 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 rocblas_scopy_64_fortran = & rocblas_scopy_64(handle, n, x, incx, y, incy) return end function rocblas_scopy_64_fortran function rocblas_dcopy_64_fortran(handle, n, x, incx, y, incy) & bind(c, name='rocblas_dcopy_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dcopy_64_fortran 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 rocblas_dcopy_64_fortran = & rocblas_dcopy_64(handle, n, x, incx, y, incy) return end function rocblas_dcopy_64_fortran function rocblas_ccopy_64_fortran(handle, n, x, incx, y, incy) & bind(c, name='rocblas_ccopy_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ccopy_64_fortran 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 rocblas_ccopy_64_fortran = & rocblas_ccopy_64(handle, n, x, incx, y, incy) return end function rocblas_ccopy_64_fortran function rocblas_zcopy_64_fortran(handle, n, x, incx, y, incy) & bind(c, name='rocblas_zcopy_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zcopy_64_fortran 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 rocblas_zcopy_64_fortran = & rocblas_zcopy_64(handle, n, x, incx, y, incy) return end function rocblas_zcopy_64_fortran ! copy_batched function rocblas_scopy_batched_fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='rocblas_scopy_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scopy_batched_fortran 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 rocblas_scopy_batched_fortran = & rocblas_scopy_batched(handle, n, x, incx, y, incy, batch_count) return end function rocblas_scopy_batched_fortran function rocblas_dcopy_batched_fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='rocblas_dcopy_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dcopy_batched_fortran 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 rocblas_dcopy_batched_fortran = & rocblas_dcopy_batched(handle, n, x, incx, y, incy, batch_count) return end function rocblas_dcopy_batched_fortran function rocblas_ccopy_batched_fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='rocblas_ccopy_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ccopy_batched_fortran 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 rocblas_ccopy_batched_fortran = & rocblas_ccopy_batched(handle, n, x, incx, y, incy, batch_count) return end function rocblas_ccopy_batched_fortran function rocblas_zcopy_batched_fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='rocblas_zcopy_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zcopy_batched_fortran 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 rocblas_zcopy_batched_fortran = & rocblas_zcopy_batched(handle, n, x, incx, y, incy, batch_count) return end function rocblas_zcopy_batched_fortran ! copy_batched 64 function rocblas_scopy_batched_64_fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='rocblas_scopy_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scopy_batched_64_fortran 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 rocblas_scopy_batched_64_fortran = & rocblas_scopy_batched_64(handle, n, x, incx, y, incy, batch_count) return end function rocblas_scopy_batched_64_fortran function rocblas_dcopy_batched_64_fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='rocblas_dcopy_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dcopy_batched_64_fortran 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 rocblas_dcopy_batched_64_fortran = & rocblas_dcopy_batched_64(handle, n, x, incx, y, incy, batch_count) return end function rocblas_dcopy_batched_64_fortran function rocblas_ccopy_batched_64_fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='rocblas_ccopy_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ccopy_batched_64_fortran 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 rocblas_ccopy_batched_64_fortran = & rocblas_ccopy_batched_64(handle, n, x, incx, y, incy, batch_count) return end function rocblas_ccopy_batched_64_fortran function rocblas_zcopy_batched_64_fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='rocblas_zcopy_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zcopy_batched_64_fortran 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 rocblas_zcopy_batched_64_fortran = & rocblas_zcopy_batched_64(handle, n, x, incx, y, incy, batch_count) return end function rocblas_zcopy_batched_64_fortran ! copy_strided_batched function rocblas_scopy_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_scopy_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scopy_strided_batched_fortran 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 rocblas_scopy_strided_batched_fortran = & rocblas_scopy_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_scopy_strided_batched_fortran function rocblas_dcopy_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_dcopy_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dcopy_strided_batched_fortran 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 rocblas_dcopy_strided_batched_fortran = & rocblas_dcopy_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_dcopy_strided_batched_fortran function rocblas_ccopy_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_ccopy_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ccopy_strided_batched_fortran 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 rocblas_ccopy_strided_batched_fortran = & rocblas_ccopy_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_ccopy_strided_batched_fortran function rocblas_zcopy_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_zcopy_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zcopy_strided_batched_fortran 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 rocblas_zcopy_strided_batched_fortran = & rocblas_zcopy_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_zcopy_strided_batched_fortran ! copy_strided_batched 64 function rocblas_scopy_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_scopy_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scopy_strided_batched_64_fortran 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 rocblas_scopy_strided_batched_64_fortran = & rocblas_scopy_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_scopy_strided_batched_64_fortran function rocblas_dcopy_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_dcopy_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dcopy_strided_batched_64_fortran 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 rocblas_dcopy_strided_batched_64_fortran = & rocblas_dcopy_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_dcopy_strided_batched_64_fortran function rocblas_ccopy_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_ccopy_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ccopy_strided_batched_64_fortran 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 rocblas_ccopy_strided_batched_64_fortran = & rocblas_ccopy_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_ccopy_strided_batched_64_fortran function rocblas_zcopy_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_zcopy_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zcopy_strided_batched_64_fortran 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 rocblas_zcopy_strided_batched_64_fortran = & rocblas_zcopy_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_zcopy_strided_batched_64_fortran ! dot function rocblas_sdot_fortran(handle, n, x, incx, y, incy, result) & bind(c, name='rocblas_sdot_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sdot_fortran 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 rocblas_sdot_fortran = & rocblas_sdot(handle, n, x, incx, y, incy, result) return end function rocblas_sdot_fortran function rocblas_ddot_fortran(handle, n, x, incx, y, incy, result) & bind(c, name='rocblas_ddot_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ddot_fortran 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 rocblas_ddot_fortran = & rocblas_ddot(handle, n, x, incx, y, incy, result) return end function rocblas_ddot_fortran function rocblas_hdot_fortran(handle, n, x, incx, y, incy, result) & bind(c, name='rocblas_hdot_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hdot_fortran 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 rocblas_hdot_fortran = & rocblas_hdot(handle, n, x, incx, y, incy, result) return end function rocblas_hdot_fortran function rocblas_bfdot_fortran(handle, n, x, incx, y, incy, result) & bind(c, name='rocblas_bfdot_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_bfdot_fortran 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 rocblas_bfdot_fortran = & rocblas_bfdot(handle, n, x, incx, y, incy, result) return end function rocblas_bfdot_fortran function rocblas_cdotu_fortran(handle, n, x, incx, y, incy, result) & bind(c, name='rocblas_cdotu_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdotu_fortran 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 rocblas_cdotu_fortran = & rocblas_cdotu(handle, n, x, incx, y, incy, result) return end function rocblas_cdotu_fortran function rocblas_cdotc_fortran(handle, n, x, incx, y, incy, result) & bind(c, name='rocblas_cdotc_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdotc_fortran 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 rocblas_cdotc_fortran = & rocblas_cdotc(handle, n, x, incx, y, incy, result) return end function rocblas_cdotc_fortran function rocblas_zdotu_fortran(handle, n, x, incx, y, incy, result) & bind(c, name='rocblas_zdotu_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdotu_fortran 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 rocblas_zdotu_fortran = & rocblas_zdotu(handle, n, x, incx, y, incy, result) return end function rocblas_zdotu_fortran function rocblas_zdotc_fortran(handle, n, x, incx, y, incy, result) & bind(c, name='rocblas_zdotc_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdotc_fortran 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 rocblas_zdotc_fortran = & rocblas_zdotc(handle, n, x, incx, y, incy, result) return end function rocblas_zdotc_fortran ! dot_64 function rocblas_sdot_64_fortran(handle, n, x, incx, y, incy, result) & bind(c, name='rocblas_sdot_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sdot_64_fortran 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 rocblas_sdot_64_fortran = & rocblas_sdot_64(handle, n, x, incx, y, incy, result) return end function rocblas_sdot_64_fortran function rocblas_ddot_64_fortran(handle, n, x, incx, y, incy, result) & bind(c, name='rocblas_ddot_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ddot_64_fortran 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 rocblas_ddot_64_fortran = & rocblas_ddot_64(handle, n, x, incx, y, incy, result) return end function rocblas_ddot_64_fortran function rocblas_hdot_64_fortran(handle, n, x, incx, y, incy, result) & bind(c, name='rocblas_hdot_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hdot_64_fortran 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 rocblas_hdot_64_fortran = & rocblas_hdot_64(handle, n, x, incx, y, incy, result) return end function rocblas_hdot_64_fortran function rocblas_bfdot_64_fortran(handle, n, x, incx, y, incy, result) & bind(c, name='rocblas_bfdot_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_bfdot_64_fortran 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 rocblas_bfdot_64_fortran = & rocblas_bfdot_64(handle, n, x, incx, y, incy, result) return end function rocblas_bfdot_64_fortran function rocblas_cdotu_64_fortran(handle, n, x, incx, y, incy, result) & bind(c, name='rocblas_cdotu_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdotu_64_fortran 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 rocblas_cdotu_64_fortran = & rocblas_cdotu_64(handle, n, x, incx, y, incy, result) return end function rocblas_cdotu_64_fortran function rocblas_cdotc_64_fortran(handle, n, x, incx, y, incy, result) & bind(c, name='rocblas_cdotc_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdotc_64_fortran 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 rocblas_cdotc_64_fortran = & rocblas_cdotc_64(handle, n, x, incx, y, incy, result) return end function rocblas_cdotc_64_fortran function rocblas_zdotu_64_fortran(handle, n, x, incx, y, incy, result) & bind(c, name='rocblas_zdotu_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdotu_64_fortran 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 rocblas_zdotu_64_fortran = & rocblas_zdotu_64(handle, n, x, incx, y, incy, result) return end function rocblas_zdotu_64_fortran function rocblas_zdotc_64_fortran(handle, n, x, incx, y, incy, result) & bind(c, name='rocblas_zdotc_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdotc_64_fortran 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 rocblas_zdotc_64_fortran = & rocblas_zdotc_64(handle, n, x, incx, y, incy, result) return end function rocblas_zdotc_64_fortran ! dot_batched function rocblas_sdot_batched_fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='rocblas_sdot_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sdot_batched_fortran 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 rocblas_sdot_batched_fortran = & rocblas_sdot_batched(handle, n, x, incx, y, incy, batch_count, result) return end function rocblas_sdot_batched_fortran function rocblas_ddot_batched_fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='rocblas_ddot_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ddot_batched_fortran 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 rocblas_ddot_batched_fortran = & rocblas_ddot_batched(handle, n, x, incx, y, incy, batch_count, result) return end function rocblas_ddot_batched_fortran function rocblas_hdot_batched_fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='rocblas_hdot_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hdot_batched_fortran 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 rocblas_hdot_batched_fortran = & rocblas_hdot_batched(handle, n, x, incx, y, incy, batch_count, result) return end function rocblas_hdot_batched_fortran function rocblas_bfdot_batched_fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='rocblas_bfdot_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_bfdot_batched_fortran 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 rocblas_bfdot_batched_fortran = & rocblas_bfdot_batched(handle, n, x, incx, y, incy, batch_count, result) return end function rocblas_bfdot_batched_fortran function rocblas_cdotu_batched_fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='rocblas_cdotu_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdotu_batched_fortran 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 rocblas_cdotu_batched_fortran = & rocblas_cdotu_batched(handle, n, x, incx, y, incy, batch_count, result) return end function rocblas_cdotu_batched_fortran function rocblas_cdotc_batched_fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='rocblas_cdotc_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdotc_batched_fortran 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 rocblas_cdotc_batched_fortran = & rocblas_cdotc_batched(handle, n, x, incx, y, incy, batch_count, result) return end function rocblas_cdotc_batched_fortran function rocblas_zdotu_batched_fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='rocblas_zdotu_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdotu_batched_fortran 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 rocblas_zdotu_batched_fortran = & rocblas_zdotu_batched(handle, n, x, incx, y, incy, batch_count, result) return end function rocblas_zdotu_batched_fortran function rocblas_zdotc_batched_fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='rocblas_zdotc_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdotc_batched_fortran 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 rocblas_zdotc_batched_fortran = & rocblas_zdotc_batched(handle, n, x, incx, y, incy, batch_count, result) return end function rocblas_zdotc_batched_fortran ! dot_batched_64 function rocblas_sdot_batched_64_fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='rocblas_sdot_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sdot_batched_64_fortran 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 rocblas_sdot_batched_64_fortran = & rocblas_sdot_batched_64(handle, n, x, incx, y, incy, batch_count, result) return end function rocblas_sdot_batched_64_fortran function rocblas_ddot_batched_64_fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='rocblas_ddot_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ddot_batched_64_fortran 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 rocblas_ddot_batched_64_fortran = & rocblas_ddot_batched_64(handle, n, x, incx, y, incy, batch_count, result) return end function rocblas_ddot_batched_64_fortran function rocblas_hdot_batched_64_fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='rocblas_hdot_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hdot_batched_64_fortran 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 rocblas_hdot_batched_64_fortran = & rocblas_hdot_batched_64(handle, n, x, incx, y, incy, batch_count, result) return end function rocblas_hdot_batched_64_fortran function rocblas_bfdot_batched_64_fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='rocblas_bfdot_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_bfdot_batched_64_fortran 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 rocblas_bfdot_batched_64_fortran = & rocblas_bfdot_batched_64(handle, n, x, incx, y, incy, batch_count, result) return end function rocblas_bfdot_batched_64_fortran function rocblas_cdotu_batched_64_fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='rocblas_cdotu_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdotu_batched_64_fortran 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 rocblas_cdotu_batched_64_fortran = & rocblas_cdotu_batched_64(handle, n, x, incx, y, incy, batch_count, result) return end function rocblas_cdotu_batched_64_fortran function rocblas_cdotc_batched_64_fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='rocblas_cdotc_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdotc_batched_64_fortran 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 rocblas_cdotc_batched_64_fortran = & rocblas_cdotc_batched_64(handle, n, x, incx, y, incy, batch_count, result) return end function rocblas_cdotc_batched_64_fortran function rocblas_zdotu_batched_64_fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='rocblas_zdotu_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdotu_batched_64_fortran 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 rocblas_zdotu_batched_64_fortran = & rocblas_zdotu_batched_64(handle, n, x, incx, y, incy, batch_count, result) return end function rocblas_zdotu_batched_64_fortran function rocblas_zdotc_batched_64_fortran(handle, n, x, incx, y, incy, batch_count, result) & bind(c, name='rocblas_zdotc_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdotc_batched_64_fortran 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 rocblas_zdotc_batched_64_fortran = & rocblas_zdotc_batched_64(handle, n, x, incx, y, incy, batch_count, result) return end function rocblas_zdotc_batched_64_fortran ! dot_strided_batched function rocblas_sdot_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='rocblas_sdot_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sdot_strided_batched_fortran 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 rocblas_sdot_strided_batched_fortran = & rocblas_sdot_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) return end function rocblas_sdot_strided_batched_fortran function rocblas_ddot_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='rocblas_ddot_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ddot_strided_batched_fortran 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 rocblas_ddot_strided_batched_fortran = & rocblas_ddot_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) return end function rocblas_ddot_strided_batched_fortran function rocblas_hdot_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='rocblas_hdot_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hdot_strided_batched_fortran 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 rocblas_hdot_strided_batched_fortran = & rocblas_hdot_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) return end function rocblas_hdot_strided_batched_fortran function rocblas_bfdot_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='rocblas_bfdot_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_bfdot_strided_batched_fortran 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 rocblas_bfdot_strided_batched_fortran = & rocblas_bfdot_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) return end function rocblas_bfdot_strided_batched_fortran function rocblas_cdotu_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='rocblas_cdotu_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdotu_strided_batched_fortran 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 rocblas_cdotu_strided_batched_fortran = & rocblas_cdotu_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) return end function rocblas_cdotu_strided_batched_fortran function rocblas_cdotc_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='rocblas_cdotc_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdotc_strided_batched_fortran 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 rocblas_cdotc_strided_batched_fortran = & rocblas_cdotc_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) return end function rocblas_cdotc_strided_batched_fortran function rocblas_zdotu_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='rocblas_zdotu_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdotu_strided_batched_fortran 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 rocblas_zdotu_strided_batched_fortran = & rocblas_zdotu_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) return end function rocblas_zdotu_strided_batched_fortran function rocblas_zdotc_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='rocblas_zdotc_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdotc_strided_batched_fortran 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 rocblas_zdotc_strided_batched_fortran = & rocblas_zdotc_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) return end function rocblas_zdotc_strided_batched_fortran ! dot_strided_batched_64 function rocblas_sdot_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='rocblas_sdot_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sdot_strided_batched_64_fortran 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 rocblas_sdot_strided_batched_64_fortran = & rocblas_sdot_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) return end function rocblas_sdot_strided_batched_64_fortran function rocblas_ddot_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='rocblas_ddot_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ddot_strided_batched_64_fortran 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 rocblas_ddot_strided_batched_64_fortran = & rocblas_ddot_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) return end function rocblas_ddot_strided_batched_64_fortran function rocblas_hdot_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='rocblas_hdot_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hdot_strided_batched_64_fortran 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 rocblas_hdot_strided_batched_64_fortran = & rocblas_hdot_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) return end function rocblas_hdot_strided_batched_64_fortran function rocblas_bfdot_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='rocblas_bfdot_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_bfdot_strided_batched_64_fortran 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 rocblas_bfdot_strided_batched_64_fortran = & rocblas_bfdot_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) return end function rocblas_bfdot_strided_batched_64_fortran function rocblas_cdotu_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='rocblas_cdotu_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdotu_strided_batched_64_fortran 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 rocblas_cdotu_strided_batched_64_fortran = & rocblas_cdotu_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) return end function rocblas_cdotu_strided_batched_64_fortran function rocblas_cdotc_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='rocblas_cdotc_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdotc_strided_batched_64_fortran 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 rocblas_cdotc_strided_batched_64_fortran = & rocblas_cdotc_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) return end function rocblas_cdotc_strided_batched_64_fortran function rocblas_zdotu_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='rocblas_zdotu_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdotu_strided_batched_64_fortran 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 rocblas_zdotu_strided_batched_64_fortran = & rocblas_zdotu_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) return end function rocblas_zdotu_strided_batched_64_fortran function rocblas_zdotc_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) & bind(c, name='rocblas_zdotc_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdotc_strided_batched_64_fortran 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 rocblas_zdotc_strided_batched_64_fortran = & rocblas_zdotc_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count, result) return end function rocblas_zdotc_strided_batched_64_fortran ! swap function rocblas_sswap_fortran(handle, n, x, incx, y, incy) & bind(c, name='rocblas_sswap_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sswap_fortran 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 rocblas_sswap_fortran = & rocblas_sswap(handle, n, x, incx, y, incy) return end function rocblas_sswap_fortran function rocblas_dswap_fortran(handle, n, x, incx, y, incy) & bind(c, name='rocblas_dswap_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dswap_fortran 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 rocblas_dswap_fortran = & rocblas_dswap(handle, n, x, incx, y, incy) return end function rocblas_dswap_fortran function rocblas_cswap_fortran(handle, n, x, incx, y, incy) & bind(c, name='rocblas_cswap_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cswap_fortran 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 rocblas_cswap_fortran = & rocblas_cswap(handle, n, x, incx, y, incy) return end function rocblas_cswap_fortran function rocblas_zswap_fortran(handle, n, x, incx, y, incy) & bind(c, name='rocblas_zswap_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zswap_fortran 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 rocblas_zswap_fortran = & rocblas_zswap(handle, n, x, incx, y, incy) return end function rocblas_zswap_fortran ! swap 64 function rocblas_sswap_64_fortran(handle, n, x, incx, y, incy) & bind(c, name='rocblas_sswap_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sswap_64_fortran 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 rocblas_sswap_64_fortran = & rocblas_sswap_64(handle, n, x, incx, y, incy) return end function rocblas_sswap_64_fortran function rocblas_dswap_64_fortran(handle, n, x, incx, y, incy) & bind(c, name='rocblas_dswap_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dswap_64_fortran 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 rocblas_dswap_64_fortran = & rocblas_dswap_64(handle, n, x, incx, y, incy) return end function rocblas_dswap_64_fortran function rocblas_cswap_64_fortran(handle, n, x, incx, y, incy) & bind(c, name='rocblas_cswap_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cswap_64_fortran 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 rocblas_cswap_64_fortran = & rocblas_cswap_64(handle, n, x, incx, y, incy) return end function rocblas_cswap_64_fortran function rocblas_zswap_64_fortran(handle, n, x, incx, y, incy) & bind(c, name='rocblas_zswap_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zswap_64_fortran 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 rocblas_zswap_64_fortran = & rocblas_zswap_64(handle, n, x, incx, y, incy) return end function rocblas_zswap_64_fortran ! swap_batched function rocblas_sswap_batched_fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='rocblas_sswap_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sswap_batched_fortran 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 rocblas_sswap_batched_fortran = & rocblas_sswap_batched(handle, n, x, incx, y, incy, batch_count) return end function rocblas_sswap_batched_fortran function rocblas_dswap_batched_fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='rocblas_dswap_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dswap_batched_fortran 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 rocblas_dswap_batched_fortran = & rocblas_dswap_batched(handle, n, x, incx, y, incy, batch_count) return end function rocblas_dswap_batched_fortran function rocblas_cswap_batched_fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='rocblas_cswap_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cswap_batched_fortran 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 rocblas_cswap_batched_fortran = & rocblas_cswap_batched(handle, n, x, incx, y, incy, batch_count) return end function rocblas_cswap_batched_fortran function rocblas_zswap_batched_fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='rocblas_zswap_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zswap_batched_fortran 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 rocblas_zswap_batched_fortran = & rocblas_zswap_batched(handle, n, x, incx, y, incy, batch_count) return end function rocblas_zswap_batched_fortran ! swap_batched 64 function rocblas_sswap_batched_64_fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='rocblas_sswap_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sswap_batched_64_fortran 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 rocblas_sswap_batched_64_fortran = & rocblas_sswap_batched_64(handle, n, x, incx, y, incy, batch_count) return end function rocblas_sswap_batched_64_fortran function rocblas_dswap_batched_64_fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='rocblas_dswap_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dswap_batched_64_fortran 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 rocblas_dswap_batched_64_fortran = & rocblas_dswap_batched_64(handle, n, x, incx, y, incy, batch_count) return end function rocblas_dswap_batched_64_fortran function rocblas_cswap_batched_64_fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='rocblas_cswap_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cswap_batched_64_fortran 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 rocblas_cswap_batched_64_fortran = & rocblas_cswap_batched_64(handle, n, x, incx, y, incy, batch_count) return end function rocblas_cswap_batched_64_fortran function rocblas_zswap_batched_64_fortran(handle, n, x, incx, y, incy, batch_count) & bind(c, name='rocblas_zswap_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zswap_batched_64_fortran 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 rocblas_zswap_batched_64_fortran = & rocblas_zswap_batched_64(handle, n, x, incx, y, incy, batch_count) return end function rocblas_zswap_batched_64_fortran ! swap_strided_batched function rocblas_sswap_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_sswap_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sswap_strided_batched_fortran 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 rocblas_sswap_strided_batched_fortran = & rocblas_sswap_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_sswap_strided_batched_fortran function rocblas_dswap_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_dswap_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dswap_strided_batched_fortran 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 rocblas_dswap_strided_batched_fortran = & rocblas_dswap_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_dswap_strided_batched_fortran function rocblas_cswap_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_cswap_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cswap_strided_batched_fortran 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 rocblas_cswap_strided_batched_fortran = & rocblas_cswap_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_cswap_strided_batched_fortran function rocblas_zswap_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_zswap_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zswap_strided_batched_fortran 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 rocblas_zswap_strided_batched_fortran = & rocblas_zswap_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_zswap_strided_batched_fortran ! swap_strided_batched 64 function rocblas_sswap_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_sswap_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sswap_strided_batched_64_fortran 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 rocblas_sswap_strided_batched_64_fortran = & rocblas_sswap_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_sswap_strided_batched_64_fortran function rocblas_dswap_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_dswap_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dswap_strided_batched_64_fortran 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 rocblas_dswap_strided_batched_64_fortran = & rocblas_dswap_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_dswap_strided_batched_64_fortran function rocblas_cswap_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_cswap_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cswap_strided_batched_64_fortran 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 rocblas_cswap_strided_batched_64_fortran = & rocblas_cswap_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_cswap_strided_batched_64_fortran function rocblas_zswap_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_zswap_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zswap_strided_batched_64_fortran 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 rocblas_zswap_strided_batched_64_fortran = & rocblas_zswap_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_zswap_strided_batched_64_fortran ! axpy function rocblas_haxpy_fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='rocblas_haxpy_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_haxpy_fortran 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 rocblas_haxpy_fortran = & rocblas_haxpy(handle, n, alpha, x, incx, y, incy) return end function rocblas_haxpy_fortran function rocblas_saxpy_fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='rocblas_saxpy_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_saxpy_fortran 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 rocblas_saxpy_fortran = & rocblas_saxpy(handle, n, alpha, x, incx, y, incy) return end function rocblas_saxpy_fortran function rocblas_daxpy_fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='rocblas_daxpy_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_daxpy_fortran 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 rocblas_daxpy_fortran = & rocblas_daxpy(handle, n, alpha, x, incx, y, incy) return end function rocblas_daxpy_fortran function rocblas_caxpy_fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='rocblas_caxpy_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_caxpy_fortran 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 rocblas_caxpy_fortran = & rocblas_caxpy(handle, n, alpha, x, incx, y, incy) return end function rocblas_caxpy_fortran function rocblas_zaxpy_fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='rocblas_zaxpy_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zaxpy_fortran 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 rocblas_zaxpy_fortran = & rocblas_zaxpy(handle, n, alpha, x, incx, y, incy) return end function rocblas_zaxpy_fortran ! axpy_64 function rocblas_haxpy_64_fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='rocblas_haxpy_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_haxpy_64_fortran 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 rocblas_haxpy_64_fortran = & rocblas_haxpy_64(handle, n, alpha, x, incx, y, incy) return end function rocblas_haxpy_64_fortran function rocblas_saxpy_64_fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='rocblas_saxpy_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_saxpy_64_fortran 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 rocblas_saxpy_64_fortran = & rocblas_saxpy_64(handle, n, alpha, x, incx, y, incy) return end function rocblas_saxpy_64_fortran function rocblas_daxpy_64_fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='rocblas_daxpy_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_daxpy_64_fortran 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 rocblas_daxpy_64_fortran = & rocblas_daxpy_64(handle, n, alpha, x, incx, y, incy) return end function rocblas_daxpy_64_fortran function rocblas_caxpy_64_fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='rocblas_caxpy_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_caxpy_64_fortran 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 rocblas_caxpy_64_fortran = & rocblas_caxpy_64(handle, n, alpha, x, incx, y, incy) return end function rocblas_caxpy_64_fortran function rocblas_zaxpy_64_fortran(handle, n, alpha, x, incx, y, incy) & bind(c, name='rocblas_zaxpy_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zaxpy_64_fortran 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 rocblas_zaxpy_64_fortran = & rocblas_zaxpy_64(handle, n, alpha, x, incx, y, incy) return end function rocblas_zaxpy_64_fortran ! axpy_batched function rocblas_haxpy_batched_fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='rocblas_haxpy_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_haxpy_batched_fortran 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 rocblas_haxpy_batched_fortran = & rocblas_haxpy_batched(handle, n, alpha, x, incx, y, incy, batch_count) return end function rocblas_haxpy_batched_fortran function rocblas_saxpy_batched_fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='rocblas_saxpy_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_saxpy_batched_fortran 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 rocblas_saxpy_batched_fortran = & rocblas_saxpy_batched(handle, n, alpha, x, incx, y, incy, batch_count) return end function rocblas_saxpy_batched_fortran function rocblas_daxpy_batched_fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='rocblas_daxpy_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_daxpy_batched_fortran 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 rocblas_daxpy_batched_fortran = & rocblas_daxpy_batched(handle, n, alpha, x, incx, y, incy, batch_count) return end function rocblas_daxpy_batched_fortran function rocblas_caxpy_batched_fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='rocblas_caxpy_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_caxpy_batched_fortran 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 rocblas_caxpy_batched_fortran = & rocblas_caxpy_batched(handle, n, alpha, x, incx, y, incy, batch_count) return end function rocblas_caxpy_batched_fortran function rocblas_zaxpy_batched_fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='rocblas_zaxpy_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zaxpy_batched_fortran 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 rocblas_zaxpy_batched_fortran = & rocblas_zaxpy_batched(handle, n, alpha, x, incx, y, incy, batch_count) return end function rocblas_zaxpy_batched_fortran ! axpy_batched_64 function rocblas_haxpy_batched_64_fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='rocblas_haxpy_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_haxpy_batched_64_fortran 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 rocblas_haxpy_batched_64_fortran = & rocblas_haxpy_batched_64(handle, n, alpha, x, incx, y, incy, batch_count) return end function rocblas_haxpy_batched_64_fortran function rocblas_saxpy_batched_64_fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='rocblas_saxpy_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_saxpy_batched_64_fortran 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 rocblas_saxpy_batched_64_fortran = & rocblas_saxpy_batched_64(handle, n, alpha, x, incx, y, incy, batch_count) return end function rocblas_saxpy_batched_64_fortran function rocblas_daxpy_batched_64_fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='rocblas_daxpy_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_daxpy_batched_64_fortran 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 rocblas_daxpy_batched_64_fortran = & rocblas_daxpy_batched_64(handle, n, alpha, x, incx, y, incy, batch_count) return end function rocblas_daxpy_batched_64_fortran function rocblas_caxpy_batched_64_fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='rocblas_caxpy_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_caxpy_batched_64_fortran 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 rocblas_caxpy_batched_64_fortran = & rocblas_caxpy_batched_64(handle, n, alpha, x, incx, y, incy, batch_count) return end function rocblas_caxpy_batched_64_fortran function rocblas_zaxpy_batched_64_fortran(handle, n, alpha, x, incx, y, incy, batch_count) & bind(c, name='rocblas_zaxpy_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zaxpy_batched_64_fortran 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 rocblas_zaxpy_batched_64_fortran = & rocblas_zaxpy_batched_64(handle, n, alpha, x, incx, y, incy, batch_count) return end function rocblas_zaxpy_batched_64_fortran ! axpy_strided_batched function rocblas_haxpy_strided_batched_fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_haxpy_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_haxpy_strided_batched_fortran 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 rocblas_haxpy_strided_batched_fortran = & rocblas_haxpy_strided_batched(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_haxpy_strided_batched_fortran function rocblas_saxpy_strided_batched_fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_saxpy_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_saxpy_strided_batched_fortran 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 rocblas_saxpy_strided_batched_fortran = & rocblas_saxpy_strided_batched(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_saxpy_strided_batched_fortran function rocblas_daxpy_strided_batched_fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_daxpy_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_daxpy_strided_batched_fortran 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 rocblas_daxpy_strided_batched_fortran = & rocblas_daxpy_strided_batched(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_daxpy_strided_batched_fortran function rocblas_caxpy_strided_batched_fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_caxpy_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_caxpy_strided_batched_fortran 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 rocblas_caxpy_strided_batched_fortran = & rocblas_caxpy_strided_batched(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_caxpy_strided_batched_fortran function rocblas_zaxpy_strided_batched_fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_zaxpy_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zaxpy_strided_batched_fortran 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 rocblas_zaxpy_strided_batched_fortran = & rocblas_zaxpy_strided_batched(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_zaxpy_strided_batched_fortran ! axpy_strided_batched_64 function rocblas_haxpy_strided_batched_64_fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_haxpy_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_haxpy_strided_batched_64_fortran 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 rocblas_haxpy_strided_batched_64_fortran = & rocblas_haxpy_strided_batched_64(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_haxpy_strided_batched_64_fortran function rocblas_saxpy_strided_batched_64_fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_saxpy_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_saxpy_strided_batched_64_fortran 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 rocblas_saxpy_strided_batched_64_fortran = & rocblas_saxpy_strided_batched_64(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_saxpy_strided_batched_64_fortran function rocblas_daxpy_strided_batched_64_fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_daxpy_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_daxpy_strided_batched_64_fortran 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 rocblas_daxpy_strided_batched_64_fortran = & rocblas_daxpy_strided_batched_64(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_daxpy_strided_batched_64_fortran function rocblas_caxpy_strided_batched_64_fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_caxpy_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_caxpy_strided_batched_64_fortran 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 rocblas_caxpy_strided_batched_64_fortran = & rocblas_caxpy_strided_batched_64(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_caxpy_strided_batched_64_fortran function rocblas_zaxpy_strided_batched_64_fortran(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) & bind(c, name='rocblas_zaxpy_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zaxpy_strided_batched_64_fortran 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 rocblas_zaxpy_strided_batched_64_fortran = & rocblas_zaxpy_strided_batched_64(handle, n, alpha, x, incx, stride_x, y, incy, stride_y, batch_count) return end function rocblas_zaxpy_strided_batched_64_fortran ! asum function rocblas_sasum_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_sasum_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sasum_fortran 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 rocblas_sasum_fortran = & rocblas_sasum(handle, n, x, incx, result) return end function rocblas_sasum_fortran function rocblas_dasum_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_dasum_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dasum_fortran 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 rocblas_dasum_fortran = & rocblas_dasum(handle, n, x, incx, result) return end function rocblas_dasum_fortran function rocblas_scasum_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_scasum_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scasum_fortran 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 rocblas_scasum_fortran = & rocblas_scasum(handle, n, x, incx, result) return end function rocblas_scasum_fortran function rocblas_dzasum_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_dzasum_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dzasum_fortran 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 rocblas_dzasum_fortran = & rocblas_dzasum(handle, n, x, incx, result) return end function rocblas_dzasum_fortran ! asum_64 function rocblas_sasum_64_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_sasum_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sasum_64_fortran 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 rocblas_sasum_64_fortran = & rocblas_sasum_64(handle, n, x, incx, result) return end function rocblas_sasum_64_fortran function rocblas_dasum_64_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_dasum_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dasum_64_fortran 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 rocblas_dasum_64_fortran = & rocblas_dasum_64(handle, n, x, incx, result) return end function rocblas_dasum_64_fortran function rocblas_scasum_64_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_scasum_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scasum_64_fortran 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 rocblas_scasum_64_fortran = & rocblas_scasum_64(handle, n, x, incx, result) return end function rocblas_scasum_64_fortran function rocblas_dzasum_64_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_dzasum_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dzasum_64_fortran 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 rocblas_dzasum_64_fortran = & rocblas_dzasum_64(handle, n, x, incx, result) return end function rocblas_dzasum_64_fortran ! asum_batched function rocblas_sasum_batched_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_sasum_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sasum_batched_fortran 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 rocblas_sasum_batched_fortran = & rocblas_sasum_batched(handle, n, x, incx, batch_count, result) return end function rocblas_sasum_batched_fortran function rocblas_dasum_batched_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_dasum_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dasum_batched_fortran 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 rocblas_dasum_batched_fortran = & rocblas_dasum_batched(handle, n, x, incx, batch_count, result) return end function rocblas_dasum_batched_fortran function rocblas_scasum_batched_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_scasum_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scasum_batched_fortran 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 rocblas_scasum_batched_fortran = & rocblas_scasum_batched(handle, n, x, incx, batch_count, result) return end function rocblas_scasum_batched_fortran function rocblas_dzasum_batched_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_dzasum_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dzasum_batched_fortran 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 rocblas_dzasum_batched_fortran = & rocblas_dzasum_batched(handle, n, x, incx, batch_count, result) return end function rocblas_dzasum_batched_fortran ! asum_batched_64 function rocblas_sasum_batched_64_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_sasum_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sasum_batched_64_fortran 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 rocblas_sasum_batched_64_fortran = & rocblas_sasum_batched_64(handle, n, x, incx, batch_count, result) return end function rocblas_sasum_batched_64_fortran function rocblas_dasum_batched_64_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_dasum_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dasum_batched_64_fortran 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 rocblas_dasum_batched_64_fortran = & rocblas_dasum_batched_64(handle, n, x, incx, batch_count, result) return end function rocblas_dasum_batched_64_fortran function rocblas_scasum_batched_64_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_scasum_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scasum_batched_64_fortran 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 rocblas_scasum_batched_64_fortran = & rocblas_scasum_batched_64(handle, n, x, incx, batch_count, result) return end function rocblas_scasum_batched_64_fortran function rocblas_dzasum_batched_64_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_dzasum_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dzasum_batched_64_fortran 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 rocblas_dzasum_batched_64_fortran = & rocblas_dzasum_batched_64(handle, n, x, incx, batch_count, result) return end function rocblas_dzasum_batched_64_fortran ! asum_strided_batched function rocblas_sasum_strided_batched_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_sasum_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sasum_strided_batched_fortran 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 rocblas_sasum_strided_batched_fortran = & rocblas_sasum_strided_batched(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_sasum_strided_batched_fortran function rocblas_dasum_strided_batched_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_dasum_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dasum_strided_batched_fortran 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 rocblas_dasum_strided_batched_fortran = & rocblas_dasum_strided_batched(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_dasum_strided_batched_fortran function rocblas_scasum_strided_batched_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_scasum_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scasum_strided_batched_fortran 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 rocblas_scasum_strided_batched_fortran = & rocblas_scasum_strided_batched(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_scasum_strided_batched_fortran function rocblas_dzasum_strided_batched_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_dzasum_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dzasum_strided_batched_fortran 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 rocblas_dzasum_strided_batched_fortran = & rocblas_dzasum_strided_batched(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_dzasum_strided_batched_fortran ! asum_strided_batched_64 function rocblas_sasum_strided_batched_64_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_sasum_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sasum_strided_batched_64_fortran 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 rocblas_sasum_strided_batched_64_fortran = & rocblas_sasum_strided_batched_64(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_sasum_strided_batched_64_fortran function rocblas_dasum_strided_batched_64_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_dasum_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dasum_strided_batched_64_fortran 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 rocblas_dasum_strided_batched_64_fortran = & rocblas_dasum_strided_batched_64(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_dasum_strided_batched_64_fortran function rocblas_scasum_strided_batched_64_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_scasum_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scasum_strided_batched_64_fortran 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 rocblas_scasum_strided_batched_64_fortran = & rocblas_scasum_strided_batched_64(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_scasum_strided_batched_64_fortran function rocblas_dzasum_strided_batched_64_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_dzasum_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dzasum_strided_batched_64_fortran 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 rocblas_dzasum_strided_batched_64_fortran = & rocblas_dzasum_strided_batched_64(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_dzasum_strided_batched_64_fortran ! nrm2 function rocblas_snrm2_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_snrm2_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_snrm2_fortran 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 rocblas_snrm2_fortran = & rocblas_snrm2(handle, n, x, incx, result) return end function rocblas_snrm2_fortran function rocblas_dnrm2_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_dnrm2_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dnrm2_fortran 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 rocblas_dnrm2_fortran = & rocblas_dnrm2(handle, n, x, incx, result) return end function rocblas_dnrm2_fortran function rocblas_scnrm2_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_scnrm2_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scnrm2_fortran 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 rocblas_scnrm2_fortran = & rocblas_scnrm2(handle, n, x, incx, result) return end function rocblas_scnrm2_fortran function rocblas_dznrm2_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_dznrm2_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dznrm2_fortran 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 rocblas_dznrm2_fortran = & rocblas_dznrm2(handle, n, x, incx, result) return end function rocblas_dznrm2_fortran ! nrm2_64 function rocblas_snrm2_64_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_snrm2_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_snrm2_64_fortran 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 rocblas_snrm2_64_fortran = & rocblas_snrm2_64(handle, n, x, incx, result) return end function rocblas_snrm2_64_fortran function rocblas_dnrm2_64_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_dnrm2_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dnrm2_64_fortran 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 rocblas_dnrm2_64_fortran = & rocblas_dnrm2_64(handle, n, x, incx, result) return end function rocblas_dnrm2_64_fortran function rocblas_scnrm2_64_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_scnrm2_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scnrm2_64_fortran 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 rocblas_scnrm2_64_fortran = & rocblas_scnrm2_64(handle, n, x, incx, result) return end function rocblas_scnrm2_64_fortran function rocblas_dznrm2_64_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_dznrm2_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dznrm2_64_fortran 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 rocblas_dznrm2_64_fortran = & rocblas_dznrm2_64(handle, n, x, incx, result) return end function rocblas_dznrm2_64_fortran ! nrm2_batched function rocblas_snrm2_batched_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_snrm2_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_snrm2_batched_fortran 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 rocblas_snrm2_batched_fortran = & rocblas_snrm2_batched(handle, n, x, incx, batch_count, result) return end function rocblas_snrm2_batched_fortran function rocblas_dnrm2_batched_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_dnrm2_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dnrm2_batched_fortran 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 rocblas_dnrm2_batched_fortran = & rocblas_dnrm2_batched(handle, n, x, incx, batch_count, result) return end function rocblas_dnrm2_batched_fortran function rocblas_scnrm2_batched_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_scnrm2_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scnrm2_batched_fortran 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 rocblas_scnrm2_batched_fortran = & rocblas_scnrm2_batched(handle, n, x, incx, batch_count, result) return end function rocblas_scnrm2_batched_fortran function rocblas_dznrm2_batched_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_dznrm2_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dznrm2_batched_fortran 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 rocblas_dznrm2_batched_fortran = & rocblas_dznrm2_batched(handle, n, x, incx, batch_count, result) return end function rocblas_dznrm2_batched_fortran ! nrm2_batched_64 function rocblas_snrm2_batched_64_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_snrm2_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_snrm2_batched_64_fortran 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 rocblas_snrm2_batched_64_fortran = & rocblas_snrm2_batched_64(handle, n, x, incx, batch_count, result) return end function rocblas_snrm2_batched_64_fortran function rocblas_dnrm2_batched_64_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_dnrm2_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dnrm2_batched_64_fortran 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 rocblas_dnrm2_batched_64_fortran = & rocblas_dnrm2_batched_64(handle, n, x, incx, batch_count, result) return end function rocblas_dnrm2_batched_64_fortran function rocblas_scnrm2_batched_64_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_scnrm2_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scnrm2_batched_64_fortran 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 rocblas_scnrm2_batched_64_fortran = & rocblas_scnrm2_batched_64(handle, n, x, incx, batch_count, result) return end function rocblas_scnrm2_batched_64_fortran function rocblas_dznrm2_batched_64_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_dznrm2_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dznrm2_batched_64_fortran 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 rocblas_dznrm2_batched_64_fortran = & rocblas_dznrm2_batched_64(handle, n, x, incx, batch_count, result) return end function rocblas_dznrm2_batched_64_fortran ! nrm2_strided_batched function rocblas_snrm2_strided_batched_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_snrm2_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_snrm2_strided_batched_fortran 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 rocblas_snrm2_strided_batched_fortran = & rocblas_snrm2_strided_batched(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_snrm2_strided_batched_fortran function rocblas_dnrm2_strided_batched_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_dnrm2_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dnrm2_strided_batched_fortran 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 rocblas_dnrm2_strided_batched_fortran = & rocblas_dnrm2_strided_batched(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_dnrm2_strided_batched_fortran function rocblas_scnrm2_strided_batched_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_scnrm2_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scnrm2_strided_batched_fortran 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 rocblas_scnrm2_strided_batched_fortran = & rocblas_scnrm2_strided_batched(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_scnrm2_strided_batched_fortran function rocblas_dznrm2_strided_batched_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_dznrm2_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dznrm2_strided_batched_fortran 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 rocblas_dznrm2_strided_batched_fortran = & rocblas_dznrm2_strided_batched(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_dznrm2_strided_batched_fortran ! nrm2_strided_batched_64 function rocblas_snrm2_strided_batched_64_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_snrm2_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_snrm2_strided_batched_64_fortran 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 rocblas_snrm2_strided_batched_64_fortran = & rocblas_snrm2_strided_batched_64(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_snrm2_strided_batched_64_fortran function rocblas_dnrm2_strided_batched_64_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_dnrm2_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dnrm2_strided_batched_64_fortran 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 rocblas_dnrm2_strided_batched_64_fortran = & rocblas_dnrm2_strided_batched_64(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_dnrm2_strided_batched_64_fortran function rocblas_scnrm2_strided_batched_64_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_scnrm2_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scnrm2_strided_batched_64_fortran 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 rocblas_scnrm2_strided_batched_64_fortran = & rocblas_scnrm2_strided_batched_64(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_scnrm2_strided_batched_64_fortran function rocblas_dznrm2_strided_batched_64_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_dznrm2_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dznrm2_strided_batched_64_fortran 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 rocblas_dznrm2_strided_batched_64_fortran = & rocblas_dznrm2_strided_batched_64(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_dznrm2_strided_batched_64_fortran ! amax function rocblas_isamax_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_isamax_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_isamax_fortran 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 rocblas_isamax_fortran = & rocblas_isamax(handle, n, x, incx, result) return end function rocblas_isamax_fortran function rocblas_idamax_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_idamax_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_idamax_fortran 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 rocblas_idamax_fortran = & rocblas_idamax(handle, n, x, incx, result) return end function rocblas_idamax_fortran function rocblas_icamax_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_icamax_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_icamax_fortran 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 rocblas_icamax_fortran = & rocblas_icamax(handle, n, x, incx, result) return end function rocblas_icamax_fortran function rocblas_izamax_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_izamax_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_izamax_fortran 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 rocblas_izamax_fortran = & rocblas_izamax(handle, n, x, incx, result) return end function rocblas_izamax_fortran ! amax_64 function rocblas_isamax_64_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_isamax_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_isamax_64_fortran 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 rocblas_isamax_64_fortran = & rocblas_isamax_64(handle, n, x, incx, result) return end function rocblas_isamax_64_fortran function rocblas_idamax_64_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_idamax_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_idamax_64_fortran 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 rocblas_idamax_64_fortran = & rocblas_idamax_64(handle, n, x, incx, result) return end function rocblas_idamax_64_fortran function rocblas_icamax_64_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_icamax_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_icamax_64_fortran 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 rocblas_icamax_64_fortran = & rocblas_icamax_64(handle, n, x, incx, result) return end function rocblas_icamax_64_fortran function rocblas_izamax_64_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_izamax_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_izamax_64_fortran 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 rocblas_izamax_64_fortran = & rocblas_izamax_64(handle, n, x, incx, result) return end function rocblas_izamax_64_fortran ! amax_batched function rocblas_isamax_batched_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_isamax_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_isamax_batched_fortran 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 rocblas_isamax_batched_fortran = & rocblas_isamax_batched(handle, n, x, incx, batch_count, result) return end function rocblas_isamax_batched_fortran function rocblas_idamax_batched_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_idamax_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_idamax_batched_fortran 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 rocblas_idamax_batched_fortran = & rocblas_idamax_batched(handle, n, x, incx, batch_count, result) return end function rocblas_idamax_batched_fortran function rocblas_icamax_batched_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_icamax_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_icamax_batched_fortran 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 rocblas_icamax_batched_fortran = & rocblas_icamax_batched(handle, n, x, incx, batch_count, result) return end function rocblas_icamax_batched_fortran function rocblas_izamax_batched_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_izamax_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_izamax_batched_fortran 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 rocblas_izamax_batched_fortran = & rocblas_izamax_batched(handle, n, x, incx, batch_count, result) return end function rocblas_izamax_batched_fortran ! amax_batched_64 function rocblas_isamax_batched_64_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_isamax_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_isamax_batched_64_fortran 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 rocblas_isamax_batched_64_fortran = & rocblas_isamax_batched_64(handle, n, x, incx, batch_count, result) return end function rocblas_isamax_batched_64_fortran function rocblas_idamax_batched_64_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_idamax_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_idamax_batched_64_fortran 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 rocblas_idamax_batched_64_fortran = & rocblas_idamax_batched_64(handle, n, x, incx, batch_count, result) return end function rocblas_idamax_batched_64_fortran function rocblas_icamax_batched_64_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_icamax_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_icamax_batched_64_fortran 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 rocblas_icamax_batched_64_fortran = & rocblas_icamax_batched_64(handle, n, x, incx, batch_count, result) return end function rocblas_icamax_batched_64_fortran function rocblas_izamax_batched_64_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_izamax_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_izamax_batched_64_fortran 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 rocblas_izamax_batched_64_fortran = & rocblas_izamax_batched_64(handle, n, x, incx, batch_count, result) return end function rocblas_izamax_batched_64_fortran ! amax_strided_batched function rocblas_isamax_strided_batched_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_isamax_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_isamax_strided_batched_fortran 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 rocblas_isamax_strided_batched_fortran = & rocblas_isamax_strided_batched(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_isamax_strided_batched_fortran function rocblas_idamax_strided_batched_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_idamax_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_idamax_strided_batched_fortran 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 rocblas_idamax_strided_batched_fortran = & rocblas_idamax_strided_batched(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_idamax_strided_batched_fortran function rocblas_icamax_strided_batched_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_icamax_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_icamax_strided_batched_fortran 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 rocblas_icamax_strided_batched_fortran = & rocblas_icamax_strided_batched(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_icamax_strided_batched_fortran function rocblas_izamax_strided_batched_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_izamax_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_izamax_strided_batched_fortran 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 rocblas_izamax_strided_batched_fortran = & rocblas_izamax_strided_batched(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_izamax_strided_batched_fortran ! amax_strided_batched_64 function rocblas_isamax_strided_batched_64_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_isamax_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_isamax_strided_batched_64_fortran 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 rocblas_isamax_strided_batched_64_fortran = & rocblas_isamax_strided_batched_64(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_isamax_strided_batched_64_fortran function rocblas_idamax_strided_batched_64_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_idamax_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_idamax_strided_batched_64_fortran 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 rocblas_idamax_strided_batched_64_fortran = & rocblas_idamax_strided_batched_64(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_idamax_strided_batched_64_fortran function rocblas_icamax_strided_batched_64_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_icamax_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_icamax_strided_batched_64_fortran 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 rocblas_icamax_strided_batched_64_fortran = & rocblas_icamax_strided_batched_64(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_icamax_strided_batched_64_fortran function rocblas_izamax_strided_batched_64_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_izamax_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_izamax_strided_batched_64_fortran 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 rocblas_izamax_strided_batched_64_fortran = & rocblas_izamax_strided_batched_64(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_izamax_strided_batched_64_fortran ! amin function rocblas_isamin_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_isamin_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_isamin_fortran 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 rocblas_isamin_fortran = & rocblas_isamin(handle, n, x, incx, result) return end function rocblas_isamin_fortran function rocblas_idamin_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_idamin_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_idamin_fortran 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 rocblas_idamin_fortran = & rocblas_idamin(handle, n, x, incx, result) return end function rocblas_idamin_fortran function rocblas_icamin_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_icamin_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_icamin_fortran 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 rocblas_icamin_fortran = & rocblas_icamin(handle, n, x, incx, result) return end function rocblas_icamin_fortran function rocblas_izamin_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_izamin_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_izamin_fortran 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 rocblas_izamin_fortran = & rocblas_izamin(handle, n, x, incx, result) return end function rocblas_izamin_fortran ! amin_64 function rocblas_isamin_64_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_isamin_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_isamin_64_fortran 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 rocblas_isamin_64_fortran = & rocblas_isamin_64(handle, n, x, incx, result) return end function rocblas_isamin_64_fortran function rocblas_idamin_64_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_idamin_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_idamin_64_fortran 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 rocblas_idamin_64_fortran = & rocblas_idamin_64(handle, n, x, incx, result) return end function rocblas_idamin_64_fortran function rocblas_icamin_64_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_icamin_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_icamin_64_fortran 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 rocblas_icamin_64_fortran = & rocblas_icamin_64(handle, n, x, incx, result) return end function rocblas_icamin_64_fortran function rocblas_izamin_64_fortran(handle, n, x, incx, result) & bind(c, name='rocblas_izamin_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_izamin_64_fortran 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 rocblas_izamin_64_fortran = & rocblas_izamin_64(handle, n, x, incx, result) return end function rocblas_izamin_64_fortran ! amin_batched function rocblas_isamin_batched_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_isamin_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_isamin_batched_fortran 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 rocblas_isamin_batched_fortran = & rocblas_isamin_batched(handle, n, x, incx, batch_count, result) return end function rocblas_isamin_batched_fortran function rocblas_idamin_batched_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_idamin_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_idamin_batched_fortran 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 rocblas_idamin_batched_fortran = & rocblas_idamin_batched(handle, n, x, incx, batch_count, result) return end function rocblas_idamin_batched_fortran function rocblas_icamin_batched_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_icamin_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_icamin_batched_fortran 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 rocblas_icamin_batched_fortran = & rocblas_icamin_batched(handle, n, x, incx, batch_count, result) return end function rocblas_icamin_batched_fortran function rocblas_izamin_batched_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_izamin_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_izamin_batched_fortran 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 rocblas_izamin_batched_fortran = & rocblas_izamin_batched(handle, n, x, incx, batch_count, result) return end function rocblas_izamin_batched_fortran ! amin_batched_64 function rocblas_isamin_batched_64_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_isamin_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_isamin_batched_64_fortran 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 rocblas_isamin_batched_64_fortran = & rocblas_isamin_batched_64(handle, n, x, incx, batch_count, result) return end function rocblas_isamin_batched_64_fortran function rocblas_idamin_batched_64_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_idamin_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_idamin_batched_64_fortran 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 rocblas_idamin_batched_64_fortran = & rocblas_idamin_batched_64(handle, n, x, incx, batch_count, result) return end function rocblas_idamin_batched_64_fortran function rocblas_icamin_batched_64_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_icamin_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_icamin_batched_64_fortran 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 rocblas_icamin_batched_64_fortran = & rocblas_icamin_batched_64(handle, n, x, incx, batch_count, result) return end function rocblas_icamin_batched_64_fortran function rocblas_izamin_batched_64_fortran(handle, n, x, incx, batch_count, result) & bind(c, name='rocblas_izamin_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_izamin_batched_64_fortran 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 rocblas_izamin_batched_64_fortran = & rocblas_izamin_batched_64(handle, n, x, incx, batch_count, result) return end function rocblas_izamin_batched_64_fortran ! amin_strided_batched function rocblas_isamin_strided_batched_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_isamin_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_isamin_strided_batched_fortran 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 rocblas_isamin_strided_batched_fortran = & rocblas_isamin_strided_batched(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_isamin_strided_batched_fortran function rocblas_idamin_strided_batched_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_idamin_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_idamin_strided_batched_fortran 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 rocblas_idamin_strided_batched_fortran = & rocblas_idamin_strided_batched(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_idamin_strided_batched_fortran function rocblas_icamin_strided_batched_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_icamin_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_icamin_strided_batched_fortran 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 rocblas_icamin_strided_batched_fortran = & rocblas_icamin_strided_batched(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_icamin_strided_batched_fortran function rocblas_izamin_strided_batched_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_izamin_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_izamin_strided_batched_fortran 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 rocblas_izamin_strided_batched_fortran = & rocblas_izamin_strided_batched(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_izamin_strided_batched_fortran ! amin_strided_batched_64 function rocblas_isamin_strided_batched_64_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_isamin_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_isamin_strided_batched_64_fortran 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 rocblas_isamin_strided_batched_64_fortran = & rocblas_isamin_strided_batched_64(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_isamin_strided_batched_64_fortran function rocblas_idamin_strided_batched_64_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_idamin_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_idamin_strided_batched_64_fortran 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 rocblas_idamin_strided_batched_64_fortran = & rocblas_idamin_strided_batched_64(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_idamin_strided_batched_64_fortran function rocblas_icamin_strided_batched_64_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_icamin_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_icamin_strided_batched_64_fortran 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 rocblas_icamin_strided_batched_64_fortran = & rocblas_icamin_strided_batched_64(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_icamin_strided_batched_64_fortran function rocblas_izamin_strided_batched_64_fortran(handle, n, x, incx, stride_x, batch_count, result) & bind(c, name='rocblas_izamin_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_izamin_strided_batched_64_fortran 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 rocblas_izamin_strided_batched_64_fortran = & rocblas_izamin_strided_batched_64(handle, n, x, incx, stride_x, batch_count, result) return end function rocblas_izamin_strided_batched_64_fortran ! rot function rocblas_srot_fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='rocblas_srot_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srot_fortran 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 rocblas_srot_fortran = & rocblas_srot(handle, n, x, incx, y, incy, c, s) return end function rocblas_srot_fortran function rocblas_drot_fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='rocblas_drot_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drot_fortran 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 rocblas_drot_fortran = & rocblas_drot(handle, n, x, incx, y, incy, c, s) return end function rocblas_drot_fortran function rocblas_crot_fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='rocblas_crot_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_crot_fortran 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 rocblas_crot_fortran = & rocblas_crot(handle, n, x, incx, y, incy, c, s) return end function rocblas_crot_fortran function rocblas_csrot_fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='rocblas_csrot_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csrot_fortran 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 rocblas_csrot_fortran = & rocblas_csrot(handle, n, x, incx, y, incy, c, s) return end function rocblas_csrot_fortran function rocblas_zrot_fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='rocblas_zrot_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zrot_fortran 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 rocblas_zrot_fortran = & rocblas_zrot(handle, n, x, incx, y, incy, c, s) return end function rocblas_zrot_fortran function rocblas_zdrot_fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='rocblas_zdrot_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdrot_fortran 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 rocblas_zdrot_fortran = & rocblas_zdrot(handle, n, x, incx, y, incy, c, s) return end function rocblas_zdrot_fortran ! rot_64 function rocblas_srot_64_fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='rocblas_srot_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srot_64_fortran 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 rocblas_srot_64_fortran = & rocblas_srot_64(handle, n, x, incx, y, incy, c, s) return end function rocblas_srot_64_fortran function rocblas_drot_64_fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='rocblas_drot_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drot_64_fortran 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 rocblas_drot_64_fortran = & rocblas_drot_64(handle, n, x, incx, y, incy, c, s) return end function rocblas_drot_64_fortran function rocblas_crot_64_fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='rocblas_crot_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_crot_64_fortran 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 rocblas_crot_64_fortran = & rocblas_crot_64(handle, n, x, incx, y, incy, c, s) return end function rocblas_crot_64_fortran function rocblas_csrot_64_fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='rocblas_csrot_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csrot_64_fortran 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 rocblas_csrot_64_fortran = & rocblas_csrot_64(handle, n, x, incx, y, incy, c, s) return end function rocblas_csrot_64_fortran function rocblas_zrot_64_fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='rocblas_zrot_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zrot_64_fortran 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 rocblas_zrot_64_fortran = & rocblas_zrot_64(handle, n, x, incx, y, incy, c, s) return end function rocblas_zrot_64_fortran function rocblas_zdrot_64_fortran(handle, n, x, incx, y, incy, c, s) & bind(c, name='rocblas_zdrot_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdrot_64_fortran 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 rocblas_zdrot_64_fortran = & rocblas_zdrot_64(handle, n, x, incx, y, incy, c, s) return end function rocblas_zdrot_64_fortran ! rot_batched function rocblas_srot_batched_fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='rocblas_srot_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srot_batched_fortran 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 rocblas_srot_batched_fortran = & rocblas_srot_batched(handle, n, x, incx, y, incy, c, s, batch_count) return end function rocblas_srot_batched_fortran function rocblas_drot_batched_fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='rocblas_drot_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drot_batched_fortran 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 rocblas_drot_batched_fortran = & rocblas_drot_batched(handle, n, x, incx, y, incy, c, s, batch_count) return end function rocblas_drot_batched_fortran function rocblas_crot_batched_fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='rocblas_crot_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_crot_batched_fortran 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 rocblas_crot_batched_fortran = & rocblas_crot_batched(handle, n, x, incx, y, incy, c, s, batch_count) return end function rocblas_crot_batched_fortran function rocblas_csrot_batched_fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='rocblas_csrot_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csrot_batched_fortran 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 rocblas_csrot_batched_fortran = & rocblas_csrot_batched(handle, n, x, incx, y, incy, c, s, batch_count) return end function rocblas_csrot_batched_fortran function rocblas_zrot_batched_fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='rocblas_zrot_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zrot_batched_fortran 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 rocblas_zrot_batched_fortran = & rocblas_zrot_batched(handle, n, x, incx, y, incy, c, s, batch_count) return end function rocblas_zrot_batched_fortran function rocblas_zdrot_batched_fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='rocblas_zdrot_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdrot_batched_fortran 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 rocblas_zdrot_batched_fortran = & rocblas_zdrot_batched(handle, n, x, incx, y, incy, c, s, batch_count) return end function rocblas_zdrot_batched_fortran ! rot_batched_64 function rocblas_srot_batched_64_fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='rocblas_srot_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srot_batched_64_fortran 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 rocblas_srot_batched_64_fortran = & rocblas_srot_batched_64(handle, n, x, incx, y, incy, c, s, batch_count) return end function rocblas_srot_batched_64_fortran function rocblas_drot_batched_64_fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='rocblas_drot_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drot_batched_64_fortran 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 rocblas_drot_batched_64_fortran = & rocblas_drot_batched_64(handle, n, x, incx, y, incy, c, s, batch_count) return end function rocblas_drot_batched_64_fortran function rocblas_crot_batched_64_fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='rocblas_crot_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_crot_batched_64_fortran 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 rocblas_crot_batched_64_fortran = & rocblas_crot_batched_64(handle, n, x, incx, y, incy, c, s, batch_count) return end function rocblas_crot_batched_64_fortran function rocblas_csrot_batched_64_fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='rocblas_csrot_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csrot_batched_64_fortran 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 rocblas_csrot_batched_64_fortran = & rocblas_csrot_batched_64(handle, n, x, incx, y, incy, c, s, batch_count) return end function rocblas_csrot_batched_64_fortran function rocblas_zrot_batched_64_fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='rocblas_zrot_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zrot_batched_64_fortran 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 rocblas_zrot_batched_64_fortran = & rocblas_zrot_batched_64(handle, n, x, incx, y, incy, c, s, batch_count) return end function rocblas_zrot_batched_64_fortran function rocblas_zdrot_batched_64_fortran(handle, n, x, incx, y, incy, c, s, batch_count) & bind(c, name='rocblas_zdrot_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdrot_batched_64_fortran 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 rocblas_zdrot_batched_64_fortran = & rocblas_zdrot_batched_64(handle, n, x, incx, y, incy, c, s, batch_count) return end function rocblas_zdrot_batched_64_fortran ! rot_strided_batched function rocblas_srot_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='rocblas_srot_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srot_strided_batched_fortran 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 rocblas_srot_strided_batched_fortran = & rocblas_srot_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) return end function rocblas_srot_strided_batched_fortran function rocblas_drot_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='rocblas_drot_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drot_strided_batched_fortran 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 rocblas_drot_strided_batched_fortran = & rocblas_drot_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) return end function rocblas_drot_strided_batched_fortran function rocblas_crot_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='rocblas_crot_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_crot_strided_batched_fortran 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 rocblas_crot_strided_batched_fortran = & rocblas_crot_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) return end function rocblas_crot_strided_batched_fortran function rocblas_csrot_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='rocblas_csrot_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csrot_strided_batched_fortran 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 rocblas_csrot_strided_batched_fortran = & rocblas_csrot_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) return end function rocblas_csrot_strided_batched_fortran function rocblas_zrot_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='rocblas_zrot_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zrot_strided_batched_fortran 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 rocblas_zrot_strided_batched_fortran = & rocblas_zrot_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) return end function rocblas_zrot_strided_batched_fortran function rocblas_zdrot_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='rocblas_zdrot_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdrot_strided_batched_fortran 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 rocblas_zdrot_strided_batched_fortran = & rocblas_zdrot_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) return end function rocblas_zdrot_strided_batched_fortran ! rot_strided_batched_64 function rocblas_srot_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='rocblas_srot_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srot_strided_batched_64_fortran 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 rocblas_srot_strided_batched_64_fortran = & rocblas_srot_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) return end function rocblas_srot_strided_batched_64_fortran function rocblas_drot_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='rocblas_drot_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drot_strided_batched_64_fortran 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 rocblas_drot_strided_batched_64_fortran = & rocblas_drot_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) return end function rocblas_drot_strided_batched_64_fortran function rocblas_crot_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='rocblas_crot_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_crot_strided_batched_64_fortran 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 rocblas_crot_strided_batched_64_fortran = & rocblas_crot_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) return end function rocblas_crot_strided_batched_64_fortran function rocblas_csrot_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='rocblas_csrot_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csrot_strided_batched_64_fortran 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 rocblas_csrot_strided_batched_64_fortran = & rocblas_csrot_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) return end function rocblas_csrot_strided_batched_64_fortran function rocblas_zrot_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='rocblas_zrot_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zrot_strided_batched_64_fortran 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 rocblas_zrot_strided_batched_64_fortran = & rocblas_zrot_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) return end function rocblas_zrot_strided_batched_64_fortran function rocblas_zdrot_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) & bind(c, name='rocblas_zdrot_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdrot_strided_batched_64_fortran 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 rocblas_zdrot_strided_batched_64_fortran = & rocblas_zdrot_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, c, s, batch_count) return end function rocblas_zdrot_strided_batched_64_fortran ! rotg function rocblas_srotg_fortran(handle, a, b, c, s) & bind(c, name='rocblas_srotg_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotg_fortran 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 rocblas_srotg_fortran = & rocblas_srotg(handle, a, b, c, s) return end function rocblas_srotg_fortran function rocblas_drotg_fortran(handle, a, b, c, s) & bind(c, name='rocblas_drotg_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotg_fortran 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 rocblas_drotg_fortran = & rocblas_drotg(handle, a, b, c, s) return end function rocblas_drotg_fortran function rocblas_crotg_fortran(handle, a, b, c, s) & bind(c, name='rocblas_crotg_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_crotg_fortran 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 rocblas_crotg_fortran = & rocblas_crotg(handle, a, b, c, s) return end function rocblas_crotg_fortran function rocblas_zrotg_fortran(handle, a, b, c, s) & bind(c, name='rocblas_zrotg_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zrotg_fortran 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 rocblas_zrotg_fortran = & rocblas_zrotg(handle, a, b, c, s) return end function rocblas_zrotg_fortran ! rotg_64 function rocblas_srotg_64_fortran(handle, a, b, c, s) & bind(c, name='rocblas_srotg_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotg_64_fortran 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 rocblas_srotg_64_fortran = & rocblas_srotg_64(handle, a, b, c, s) return end function rocblas_srotg_64_fortran function rocblas_drotg_64_fortran(handle, a, b, c, s) & bind(c, name='rocblas_drotg_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotg_64_fortran 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 rocblas_drotg_64_fortran = & rocblas_drotg_64(handle, a, b, c, s) return end function rocblas_drotg_64_fortran function rocblas_crotg_64_fortran(handle, a, b, c, s) & bind(c, name='rocblas_crotg_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_crotg_64_fortran 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 rocblas_crotg_64_fortran = & rocblas_crotg_64(handle, a, b, c, s) return end function rocblas_crotg_64_fortran function rocblas_zrotg_64_fortran(handle, a, b, c, s) & bind(c, name='rocblas_zrotg_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zrotg_64_fortran 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 rocblas_zrotg_64_fortran = & rocblas_zrotg_64(handle, a, b, c, s) return end function rocblas_zrotg_64_fortran ! rotg_batched function rocblas_srotg_batched_fortran(handle, a, b, c, s, batch_count) & bind(c, name='rocblas_srotg_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotg_batched_fortran 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 rocblas_srotg_batched_fortran = & rocblas_srotg_batched(handle, a, b, c, s, batch_count) return end function rocblas_srotg_batched_fortran function rocblas_drotg_batched_fortran(handle, a, b, c, s, batch_count) & bind(c, name='rocblas_drotg_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotg_batched_fortran 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 rocblas_drotg_batched_fortran = & rocblas_drotg_batched(handle, a, b, c, s, batch_count) return end function rocblas_drotg_batched_fortran function rocblas_crotg_batched_fortran(handle, a, b, c, s, batch_count) & bind(c, name='rocblas_crotg_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_crotg_batched_fortran 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 rocblas_crotg_batched_fortran = & rocblas_crotg_batched(handle, a, b, c, s, batch_count) return end function rocblas_crotg_batched_fortran function rocblas_zrotg_batched_fortran(handle, a, b, c, s, batch_count) & bind(c, name='rocblas_zrotg_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zrotg_batched_fortran 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 rocblas_zrotg_batched_fortran = & rocblas_zrotg_batched(handle, a, b, c, s, batch_count) return end function rocblas_zrotg_batched_fortran ! rotg_batched_64 function rocblas_srotg_batched_64_fortran(handle, a, b, c, s, batch_count) & bind(c, name='rocblas_srotg_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotg_batched_64_fortran 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 rocblas_srotg_batched_64_fortran = & rocblas_srotg_batched_64(handle, a, b, c, s, batch_count) return end function rocblas_srotg_batched_64_fortran function rocblas_drotg_batched_64_fortran(handle, a, b, c, s, batch_count) & bind(c, name='rocblas_drotg_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotg_batched_64_fortran 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 rocblas_drotg_batched_64_fortran = & rocblas_drotg_batched_64(handle, a, b, c, s, batch_count) return end function rocblas_drotg_batched_64_fortran function rocblas_crotg_batched_64_fortran(handle, a, b, c, s, batch_count) & bind(c, name='rocblas_crotg_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_crotg_batched_64_fortran 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 rocblas_crotg_batched_64_fortran = & rocblas_crotg_batched_64(handle, a, b, c, s, batch_count) return end function rocblas_crotg_batched_64_fortran function rocblas_zrotg_batched_64_fortran(handle, a, b, c, s, batch_count) & bind(c, name='rocblas_zrotg_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zrotg_batched_64_fortran 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 rocblas_zrotg_batched_64_fortran = & rocblas_zrotg_batched_64(handle, a, b, c, s, batch_count) return end function rocblas_zrotg_batched_64_fortran ! rotg_strided_batched function rocblas_srotg_strided_batched_fortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='rocblas_srotg_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotg_strided_batched_fortran 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 rocblas_srotg_strided_batched_fortran = & rocblas_srotg_strided_batched(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) return end function rocblas_srotg_strided_batched_fortran function rocblas_drotg_strided_batched_fortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='rocblas_drotg_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotg_strided_batched_fortran 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 rocblas_drotg_strided_batched_fortran = & rocblas_drotg_strided_batched(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) return end function rocblas_drotg_strided_batched_fortran function rocblas_crotg_strided_batched_fortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='rocblas_crotg_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_crotg_strided_batched_fortran 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 rocblas_crotg_strided_batched_fortran = & rocblas_crotg_strided_batched(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) return end function rocblas_crotg_strided_batched_fortran function rocblas_zrotg_strided_batched_fortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='rocblas_zrotg_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zrotg_strided_batched_fortran 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 rocblas_zrotg_strided_batched_fortran = & rocblas_zrotg_strided_batched(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) return end function rocblas_zrotg_strided_batched_fortran ! rotg_strided_batched_64 function rocblas_srotg_strided_batched_64_fortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='rocblas_srotg_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotg_strided_batched_64_fortran 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 rocblas_srotg_strided_batched_64_fortran = & rocblas_srotg_strided_batched_64(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) return end function rocblas_srotg_strided_batched_64_fortran function rocblas_drotg_strided_batched_64_fortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='rocblas_drotg_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotg_strided_batched_64_fortran 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 rocblas_drotg_strided_batched_64_fortran = & rocblas_drotg_strided_batched_64(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) return end function rocblas_drotg_strided_batched_64_fortran function rocblas_crotg_strided_batched_64_fortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='rocblas_crotg_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_crotg_strided_batched_64_fortran 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 rocblas_crotg_strided_batched_64_fortran = & rocblas_crotg_strided_batched_64(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) return end function rocblas_crotg_strided_batched_64_fortran function rocblas_zrotg_strided_batched_64_fortran(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) & bind(c, name='rocblas_zrotg_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zrotg_strided_batched_64_fortran 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 rocblas_zrotg_strided_batched_64_fortran = & rocblas_zrotg_strided_batched_64(handle, a, stride_a, b, stride_b, c, stride_c, s, stride_s, batch_count) return end function rocblas_zrotg_strided_batched_64_fortran ! rotm function rocblas_srotm_fortran(handle, n, x, incx, y, incy, param) & bind(c, name='rocblas_srotm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotm_fortran 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 rocblas_srotm_fortran = & rocblas_srotm(handle, n, x, incx, y, incy, param) return end function rocblas_srotm_fortran function rocblas_drotm_fortran(handle, n, x, incx, y, incy, param) & bind(c, name='rocblas_drotm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotm_fortran 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 rocblas_drotm_fortran = & rocblas_drotm(handle, n, x, incx, y, incy, param) return end function rocblas_drotm_fortran ! rotm_64 function rocblas_srotm_64_fortran(handle, n, x, incx, y, incy, param) & bind(c, name='rocblas_srotm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotm_64_fortran 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 rocblas_srotm_64_fortran = & rocblas_srotm_64(handle, n, x, incx, y, incy, param) return end function rocblas_srotm_64_fortran function rocblas_drotm_64_fortran(handle, n, x, incx, y, incy, param) & bind(c, name='rocblas_drotm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotm_64_fortran 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 rocblas_drotm_64_fortran = & rocblas_drotm_64(handle, n, x, incx, y, incy, param) return end function rocblas_drotm_64_fortran ! rotm_batched function rocblas_srotm_batched_fortran(handle, n, x, incx, y, incy, param, batch_count) & bind(c, name='rocblas_srotm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotm_batched_fortran 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 rocblas_srotm_batched_fortran = & rocblas_srotm_batched(handle, n, x, incx, y, incy, param, batch_count) return end function rocblas_srotm_batched_fortran function rocblas_drotm_batched_fortran(handle, n, x, incx, y, incy, param, batch_count) & bind(c, name='rocblas_drotm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotm_batched_fortran 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 rocblas_drotm_batched_fortran = & rocblas_drotm_batched(handle, n, x, incx, y, incy, param, batch_count) return end function rocblas_drotm_batched_fortran ! rotm_batched_64 function rocblas_srotm_batched_64_fortran(handle, n, x, incx, y, incy, param, batch_count) & bind(c, name='rocblas_srotm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotm_batched_64_fortran 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 rocblas_srotm_batched_64_fortran = & rocblas_srotm_batched_64(handle, n, x, incx, y, incy, param, batch_count) return end function rocblas_srotm_batched_64_fortran function rocblas_drotm_batched_64_fortran(handle, n, x, incx, y, incy, param, batch_count) & bind(c, name='rocblas_drotm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotm_batched_64_fortran 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 rocblas_drotm_batched_64_fortran = & rocblas_drotm_batched_64(handle, n, x, incx, y, incy, param, batch_count) return end function rocblas_drotm_batched_64_fortran ! rotm_strided_batched function rocblas_srotm_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, param, & stride_param, batch_count) & bind(c, name='rocblas_srotm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotm_strided_batched_fortran 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 rocblas_srotm_strided_batched_fortran = & rocblas_srotm_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, param, & stride_param, batch_count) return end function rocblas_srotm_strided_batched_fortran function rocblas_drotm_strided_batched_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, param, & stride_param, batch_count) & bind(c, name='rocblas_drotm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotm_strided_batched_fortran 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 rocblas_drotm_strided_batched_fortran = & rocblas_drotm_strided_batched(handle, n, x, incx, stride_x, y, incy, stride_y, param, & stride_param, batch_count) return end function rocblas_drotm_strided_batched_fortran ! rotm_strided_batched_64 function rocblas_srotm_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, param, & stride_param, batch_count) & bind(c, name='rocblas_srotm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotm_strided_batched_64_fortran 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 rocblas_srotm_strided_batched_64_fortran = & rocblas_srotm_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, param, & stride_param, batch_count) return end function rocblas_srotm_strided_batched_64_fortran function rocblas_drotm_strided_batched_64_fortran(handle, n, x, incx, stride_x, y, incy, stride_y, param, & stride_param, batch_count) & bind(c, name='rocblas_drotm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotm_strided_batched_64_fortran 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 rocblas_drotm_strided_batched_64_fortran = & rocblas_drotm_strided_batched_64(handle, n, x, incx, stride_x, y, incy, stride_y, param, & stride_param, batch_count) return end function rocblas_drotm_strided_batched_64_fortran ! rotmg function rocblas_srotmg_fortran(handle, d1, d2, x1, y1, param) & bind(c, name='rocblas_srotmg_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotmg_fortran 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 rocblas_srotmg_fortran = & rocblas_srotmg(handle, d1, d2, x1, y1, param) return end function rocblas_srotmg_fortran function rocblas_drotmg_fortran(handle, d1, d2, x1, y1, param) & bind(c, name='rocblas_drotmg_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotmg_fortran 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 rocblas_drotmg_fortran = & rocblas_drotmg(handle, d1, d2, x1, y1, param) return end function rocblas_drotmg_fortran ! rotmg_64 function rocblas_srotmg_64_fortran(handle, d1, d2, x1, y1, param) & bind(c, name='rocblas_srotmg_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotmg_64_fortran 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 rocblas_srotmg_64_fortran = & rocblas_srotmg_64(handle, d1, d2, x1, y1, param) return end function rocblas_srotmg_64_fortran function rocblas_drotmg_64_fortran(handle, d1, d2, x1, y1, param) & bind(c, name='rocblas_drotmg_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotmg_64_fortran 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 rocblas_drotmg_64_fortran = & rocblas_drotmg_64(handle, d1, d2, x1, y1, param) return end function rocblas_drotmg_64_fortran ! rotmg_batched function rocblas_srotmg_batched_fortran(handle, d1, d2, x1, y1, param, batch_count) & bind(c, name='rocblas_srotmg_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotmg_batched_fortran 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 rocblas_srotmg_batched_fortran = & rocblas_srotmg_batched(handle, d1, d2, x1, y1, param, batch_count) return end function rocblas_srotmg_batched_fortran function rocblas_drotmg_batched_fortran(handle, d1, d2, x1, y1, param, batch_count) & bind(c, name='rocblas_drotmg_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotmg_batched_fortran 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 rocblas_drotmg_batched_fortran = & rocblas_drotmg_batched(handle, d1, d2, x1, y1, param, batch_count) return end function rocblas_drotmg_batched_fortran ! rotmg_batched_64 function rocblas_srotmg_batched_64_fortran(handle, d1, d2, x1, y1, param, batch_count) & bind(c, name='rocblas_srotmg_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotmg_batched_64_fortran 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 rocblas_srotmg_batched_64_fortran = & rocblas_srotmg_batched_64(handle, d1, d2, x1, y1, param, batch_count) return end function rocblas_srotmg_batched_64_fortran function rocblas_drotmg_batched_64_fortran(handle, d1, d2, x1, y1, param, batch_count) & bind(c, name='rocblas_drotmg_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotmg_batched_64_fortran 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 rocblas_drotmg_batched_64_fortran = & rocblas_drotmg_batched_64(handle, d1, d2, x1, y1, param, batch_count) return end function rocblas_drotmg_batched_64_fortran ! rotmg_strided_batched function rocblas_srotmg_strided_batched_fortran(handle, d1, stride_d1, d2, stride_d2, x1, stride_x1, & y1, stride_y1, param, stride_param, batch_count) & bind(c, name='rocblas_srotmg_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotmg_strided_batched_fortran 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 rocblas_srotmg_strided_batched_fortran = & rocblas_srotmg_strided_batched(handle, d1, stride_d1, d2, stride_d2, x1, stride_x1, y1, stride_y1, & param, stride_param, batch_count) return end function rocblas_srotmg_strided_batched_fortran function rocblas_drotmg_strided_batched_fortran(handle, d1, stride_d1, d2, stride_d2, x1, stride_x1, & y1, stride_y1, param, stride_param, batch_count) & bind(c, name='rocblas_drotmg_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotmg_strided_batched_fortran 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 rocblas_drotmg_strided_batched_fortran = & rocblas_drotmg_strided_batched(handle, d1, stride_d1, d2, stride_d2, x1, stride_x1, y1, stride_y1, & param, stride_param, batch_count) return end function rocblas_drotmg_strided_batched_fortran ! rotmg_strided_batched_64 function rocblas_srotmg_strided_batched_64_fortran(handle, d1, stride_d1, d2, stride_d2, x1, stride_x1, & y1, stride_y1, param, stride_param, batch_count) & bind(c, name='rocblas_srotmg_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_srotmg_strided_batched_64_fortran 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 rocblas_srotmg_strided_batched_64_fortran = & rocblas_srotmg_strided_batched_64(handle, d1, stride_d1, d2, stride_d2, x1, stride_x1, y1, stride_y1, & param, stride_param, batch_count) return end function rocblas_srotmg_strided_batched_64_fortran function rocblas_drotmg_strided_batched_64_fortran(handle, d1, stride_d1, d2, stride_d2, x1, stride_x1, & y1, stride_y1, param, stride_param, batch_count) & bind(c, name='rocblas_drotmg_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_drotmg_strided_batched_64_fortran 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 rocblas_drotmg_strided_batched_64_fortran = & rocblas_drotmg_strided_batched_64(handle, d1, stride_d1, d2, stride_d2, x1, stride_x1, y1, stride_y1, & param, stride_param, batch_count) return end function rocblas_drotmg_strided_batched_64_fortran !--------! ! blas 2 ! !--------! ! trsv function rocblas_strsv_fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='rocblas_strsv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strsv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strsv_fortran = & rocblas_strsv(handle, uplo, transA, diag, m, & A, lda, x, incx) end function rocblas_strsv_fortran function rocblas_dtrsv_fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='rocblas_dtrsv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrsv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrsv_fortran = & rocblas_dtrsv(handle, uplo, transA, diag, m, & A, lda, x, incx) end function rocblas_dtrsv_fortran function rocblas_ctrsv_fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='rocblas_ctrsv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrsv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrsv_fortran = & rocblas_ctrsv(handle, uplo, transA, diag, m, & A, lda, x, incx) end function rocblas_ctrsv_fortran function rocblas_ztrsv_fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='rocblas_ztrsv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrsv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrsv_fortran = & rocblas_ztrsv(handle, uplo, transA, diag, m, & A, lda, x, incx) end function rocblas_ztrsv_fortran ! trsv_64 function rocblas_strsv_64_fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='rocblas_strsv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strsv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strsv_64_fortran = & rocblas_strsv_64(handle, uplo, transA, diag, m, & A, lda, x, incx) end function rocblas_strsv_64_fortran function rocblas_dtrsv_64_fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='rocblas_dtrsv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrsv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrsv_64_fortran = & rocblas_dtrsv_64(handle, uplo, transA, diag, m, & A, lda, x, incx) end function rocblas_dtrsv_64_fortran function rocblas_ctrsv_64_fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='rocblas_ctrsv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrsv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrsv_64_fortran = & rocblas_ctrsv_64(handle, uplo, transA, diag, m, & A, lda, x, incx) end function rocblas_ctrsv_64_fortran function rocblas_ztrsv_64_fortran(handle, uplo, transA, diag, m, & A, lda, x, incx) & bind(c, name='rocblas_ztrsv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrsv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrsv_64_fortran = & rocblas_ztrsv_64(handle, uplo, transA, diag, m, & A, lda, x, incx) end function rocblas_ztrsv_64_fortran ! trsv_batched function rocblas_strsv_batched_fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_strsv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strsv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strsv_batched_fortran = & rocblas_strsv_batched(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) end function rocblas_strsv_batched_fortran function rocblas_dtrsv_batched_fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_dtrsv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrsv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrsv_batched_fortran = & rocblas_dtrsv_batched(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) end function rocblas_dtrsv_batched_fortran function rocblas_ctrsv_batched_fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_ctrsv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrsv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrsv_batched_fortran = & rocblas_ctrsv_batched(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) end function rocblas_ctrsv_batched_fortran function rocblas_ztrsv_batched_fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_ztrsv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrsv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrsv_batched_fortran = & rocblas_ztrsv_batched(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) end function rocblas_ztrsv_batched_fortran ! trsv_batched_64 function rocblas_strsv_batched_64_fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_strsv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strsv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strsv_batched_64_fortran = & rocblas_strsv_batched_64(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) end function rocblas_strsv_batched_64_fortran function rocblas_dtrsv_batched_64_fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_dtrsv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrsv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrsv_batched_64_fortran = & rocblas_dtrsv_batched_64(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) end function rocblas_dtrsv_batched_64_fortran function rocblas_ctrsv_batched_64_fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_ctrsv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrsv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrsv_batched_64_fortran = & rocblas_ctrsv_batched_64(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) end function rocblas_ctrsv_batched_64_fortran function rocblas_ztrsv_batched_64_fortran(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_ztrsv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrsv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrsv_batched_64_fortran = & rocblas_ztrsv_batched_64(handle, uplo, transA, diag, m, & A, lda, x, incx, batch_count) end function rocblas_ztrsv_batched_64_fortran ! trsv_strided_batched function rocblas_strsv_strided_batched_fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_strsv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strsv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strsv_strided_batched_fortran = & rocblas_strsv_strided_batched(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_strsv_strided_batched_fortran function rocblas_dtrsv_strided_batched_fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_dtrsv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrsv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrsv_strided_batched_fortran = & rocblas_dtrsv_strided_batched(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_dtrsv_strided_batched_fortran function rocblas_ctrsv_strided_batched_fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ctrsv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrsv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrsv_strided_batched_fortran = & rocblas_ctrsv_strided_batched(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_ctrsv_strided_batched_fortran function rocblas_ztrsv_strided_batched_fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ztrsv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrsv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrsv_strided_batched_fortran = & rocblas_ztrsv_strided_batched(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_ztrsv_strided_batched_fortran ! trsv_strided_batched_64 function rocblas_strsv_strided_batched_64_fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_strsv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strsv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strsv_strided_batched_64_fortran = & rocblas_strsv_strided_batched_64(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_strsv_strided_batched_64_fortran function rocblas_dtrsv_strided_batched_64_fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_dtrsv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrsv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrsv_strided_batched_64_fortran = & rocblas_dtrsv_strided_batched_64(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_dtrsv_strided_batched_64_fortran function rocblas_ctrsv_strided_batched_64_fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ctrsv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrsv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrsv_strided_batched_64_fortran = & rocblas_ctrsv_strided_batched_64(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_ctrsv_strided_batched_64_fortran function rocblas_ztrsv_strided_batched_64_fortran(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ztrsv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrsv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrsv_strided_batched_64_fortran = & rocblas_ztrsv_strided_batched_64(handle, uplo, transA, diag, m, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_ztrsv_strided_batched_64_fortran ! gbmv function rocblas_sgbmv_fortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='rocblas_sgbmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgbmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_sgbmv_fortran = & rocblas_sgbmv(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_sgbmv_fortran function rocblas_dgbmv_fortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='rocblas_dgbmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgbmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_dgbmv_fortran = & rocblas_dgbmv(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_dgbmv_fortran function rocblas_cgbmv_fortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='rocblas_cgbmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgbmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_cgbmv_fortran = & rocblas_cgbmv(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_cgbmv_fortran function rocblas_zgbmv_fortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='rocblas_zgbmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgbmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_zgbmv_fortran = & rocblas_zgbmv(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_zgbmv_fortran ! gbmv_64 function rocblas_sgbmv_64_fortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='rocblas_sgbmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgbmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_sgbmv_64_fortran = & rocblas_sgbmv_64(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_sgbmv_64_fortran function rocblas_dgbmv_64_fortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='rocblas_dgbmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgbmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_dgbmv_64_fortran = & rocblas_dgbmv_64(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_dgbmv_64_fortran function rocblas_cgbmv_64_fortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='rocblas_cgbmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgbmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_cgbmv_64_fortran = & rocblas_cgbmv_64(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_cgbmv_64_fortran function rocblas_zgbmv_64_fortran(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) & bind(c, name='rocblas_zgbmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgbmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_zgbmv_64_fortran = & rocblas_zgbmv_64(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_zgbmv_64_fortran ! gbmv_batched function rocblas_sgbmv_batched_fortran(handle, trans, m, n, kl, ku, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_sgbmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgbmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_sgbmv_batched_fortran = & rocblas_sgbmv_batched(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, & beta, y, incy, batch_count) end function rocblas_sgbmv_batched_fortran function rocblas_dgbmv_batched_fortran(handle, trans, m, n, kl, ku, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_dgbmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgbmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_dgbmv_batched_fortran = & rocblas_dgbmv_batched(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, & beta, y, incy, batch_count) end function rocblas_dgbmv_batched_fortran function rocblas_cgbmv_batched_fortran(handle, trans, m, n, kl, ku, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_cgbmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgbmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_cgbmv_batched_fortran = & rocblas_cgbmv_batched(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, & beta, y, incy, batch_count) end function rocblas_cgbmv_batched_fortran function rocblas_zgbmv_batched_fortran(handle, trans, m, n, kl, ku, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_zgbmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgbmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_zgbmv_batched_fortran = & rocblas_zgbmv_batched(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, & beta, y, incy, batch_count) end function rocblas_zgbmv_batched_fortran ! gbmv_batched_64 function rocblas_sgbmv_batched_64_fortran(handle, trans, m, n, kl, ku, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_sgbmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgbmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_sgbmv_batched_64_fortran = & rocblas_sgbmv_batched_64(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, & beta, y, incy, batch_count) end function rocblas_sgbmv_batched_64_fortran function rocblas_dgbmv_batched_64_fortran(handle, trans, m, n, kl, ku, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_dgbmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgbmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_dgbmv_batched_64_fortran = & rocblas_dgbmv_batched_64(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, & beta, y, incy, batch_count) end function rocblas_dgbmv_batched_64_fortran function rocblas_cgbmv_batched_64_fortran(handle, trans, m, n, kl, ku, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_cgbmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgbmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_cgbmv_batched_64_fortran = & rocblas_cgbmv_batched_64(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, & beta, y, incy, batch_count) end function rocblas_cgbmv_batched_64_fortran function rocblas_zgbmv_batched_64_fortran(handle, trans, m, n, kl, ku, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_zgbmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgbmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_zgbmv_batched_64_fortran = & rocblas_zgbmv_batched_64(handle, trans, m, n, kl, ku, alpha, A, lda, x, incx, & beta, y, incy, batch_count) end function rocblas_zgbmv_batched_64_fortran ! gbmv_strided_batched function rocblas_sgbmv_strided_batched_fortran(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='rocblas_sgbmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgbmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_sgbmv_strided_batched_fortran = & rocblas_sgbmv_strided_batched(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, x, incx, stride_x, & beta, y, incy, stride_y, batch_count) end function rocblas_sgbmv_strided_batched_fortran function rocblas_dgbmv_strided_batched_fortran(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='rocblas_dgbmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgbmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_dgbmv_strided_batched_fortran = & rocblas_dgbmv_strided_batched(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, x, incx, stride_x, & beta, y, incy, stride_y, batch_count) end function rocblas_dgbmv_strided_batched_fortran function rocblas_cgbmv_strided_batched_fortran(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='rocblas_cgbmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgbmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_cgbmv_strided_batched_fortran = & rocblas_cgbmv_strided_batched(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, x, incx, stride_x, & beta, y, incy, stride_y, batch_count) end function rocblas_cgbmv_strided_batched_fortran function rocblas_zgbmv_strided_batched_fortran(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='rocblas_zgbmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgbmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_zgbmv_strided_batched_fortran = & rocblas_zgbmv_strided_batched(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, x, incx, stride_x, & beta, y, incy, stride_y, batch_count) end function rocblas_zgbmv_strided_batched_fortran ! gbmv_strided_batched_64 function rocblas_sgbmv_strided_batched_64_fortran(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='rocblas_sgbmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgbmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_sgbmv_strided_batched_64_fortran = & rocblas_sgbmv_strided_batched_64(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, x, incx, stride_x, & beta, y, incy, stride_y, batch_count) end function rocblas_sgbmv_strided_batched_64_fortran function rocblas_dgbmv_strided_batched_64_fortran(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='rocblas_dgbmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgbmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_dgbmv_strided_batched_64_fortran = & rocblas_dgbmv_strided_batched_64(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, x, incx, stride_x, & beta, y, incy, stride_y, batch_count) end function rocblas_dgbmv_strided_batched_64_fortran function rocblas_cgbmv_strided_batched_64_fortran(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='rocblas_cgbmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgbmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_cgbmv_strided_batched_64_fortran = & rocblas_cgbmv_strided_batched_64(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, x, incx, stride_x, & beta, y, incy, stride_y, batch_count) end function rocblas_cgbmv_strided_batched_64_fortran function rocblas_zgbmv_strided_batched_64_fortran(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='rocblas_zgbmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgbmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_zgbmv_strided_batched_64_fortran = & rocblas_zgbmv_strided_batched_64(handle, trans, m, n, kl, ku, alpha, A, lda, stride_A, x, incx, stride_x, & beta, y, incy, stride_y, batch_count) end function rocblas_zgbmv_strided_batched_64_fortran ! gemv function rocblas_sgemv_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_sgemv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemv_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_sgemv_fortran = & rocblas_sgemv(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_sgemv_fortran function rocblas_dgemv_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_dgemv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemv_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_dgemv_fortran = & rocblas_dgemv(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_dgemv_fortran function rocblas_cgemv_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_cgemv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemv_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_cgemv_fortran = & rocblas_cgemv(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_cgemv_fortran function rocblas_zgemv_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_zgemv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemv_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_zgemv_fortran = & rocblas_zgemv(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_zgemv_fortran ! gemv_64 function rocblas_sgemv_64_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_sgemv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_sgemv_64_fortran = & rocblas_sgemv_64(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_sgemv_64_fortran function rocblas_dgemv_64_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_dgemv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_dgemv_64_fortran = & rocblas_dgemv_64(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_dgemv_64_fortran function rocblas_cgemv_64_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_cgemv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_cgemv_64_fortran = & rocblas_cgemv_64(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_cgemv_64_fortran function rocblas_zgemv_64_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_zgemv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_zgemv_64_fortran = & rocblas_zgemv_64(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_zgemv_64_fortran ! gemv_batched function rocblas_sgemv_batched_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_sgemv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_sgemv_batched_fortran = & rocblas_sgemv_batched(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_sgemv_batched_fortran function rocblas_dgemv_batched_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_dgemv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_dgemv_batched_fortran = & rocblas_dgemv_batched(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_dgemv_batched_fortran function rocblas_cgemv_batched_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_cgemv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_cgemv_batched_fortran = & rocblas_cgemv_batched(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_cgemv_batched_fortran function rocblas_zgemv_batched_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_zgemv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_zgemv_batched_fortran = & rocblas_zgemv_batched(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_zgemv_batched_fortran function rocblas_hshgemv_batched_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_hshgemv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hshgemv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_hshgemv_batched_fortran = & rocblas_hshgemv_batched(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_hshgemv_batched_fortran function rocblas_hssgemv_batched_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_hssgemv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hssgemv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_hssgemv_batched_fortran = & rocblas_hssgemv_batched(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_hssgemv_batched_fortran function rocblas_tstgemv_batched_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_tstgemv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_tstgemv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_tstgemv_batched_fortran = & rocblas_tstgemv_batched(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_tstgemv_batched_fortran function rocblas_tssgemv_batched_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_tssgemv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_tssgemv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_tssgemv_batched_fortran = & rocblas_tssgemv_batched(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_tssgemv_batched_fortran ! gemv_batched_64 function rocblas_sgemv_batched_64_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_sgemv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_sgemv_batched_64_fortran = & rocblas_sgemv_batched_64(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_sgemv_batched_64_fortran function rocblas_dgemv_batched_64_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_dgemv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_dgemv_batched_64_fortran = & rocblas_dgemv_batched_64(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_dgemv_batched_64_fortran function rocblas_cgemv_batched_64_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_cgemv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_cgemv_batched_64_fortran = & rocblas_cgemv_batched_64(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_cgemv_batched_64_fortran function rocblas_zgemv_batched_64_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_zgemv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_zgemv_batched_64_fortran = & rocblas_zgemv_batched_64(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_zgemv_batched_64_fortran function rocblas_hshgemv_batched_64_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_hshgemv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hshgemv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_hshgemv_batched_64_fortran = & rocblas_hshgemv_batched_64(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_hshgemv_batched_64_fortran function rocblas_hssgemv_batched_64_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_hssgemv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hssgemv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_hssgemv_batched_64_fortran = & rocblas_hssgemv_batched_64(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_hssgemv_batched_64_fortran function rocblas_tstgemv_batched_64_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_tstgemv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_tstgemv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_tstgemv_batched_64_fortran = & rocblas_tstgemv_batched_64(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_tstgemv_batched_64_fortran function rocblas_tssgemv_batched_64_fortran(handle, trans, m, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_tssgemv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_tssgemv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_tssgemv_batched_64_fortran = & rocblas_tssgemv_batched_64(handle, trans, m, n, alpha, A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_tssgemv_batched_64_fortran ! gemv_strided_batched function rocblas_sgemv_strided_batched_fortran(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_sgemv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_sgemv_strided_batched_fortran = & rocblas_sgemv_strided_batched(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_sgemv_strided_batched_fortran function rocblas_dgemv_strided_batched_fortran(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_dgemv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_dgemv_strided_batched_fortran = & rocblas_dgemv_strided_batched(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_dgemv_strided_batched_fortran function rocblas_cgemv_strided_batched_fortran(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_cgemv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_cgemv_strided_batched_fortran = & rocblas_cgemv_strided_batched(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_cgemv_strided_batched_fortran function rocblas_zgemv_strided_batched_fortran(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_zgemv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_zgemv_strided_batched_fortran = & rocblas_zgemv_strided_batched(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_zgemv_strided_batched_fortran function rocblas_hshgemv_strided_batched_fortran(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_hshgemv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hshgemv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_hshgemv_strided_batched_fortran = & rocblas_hshgemv_strided_batched(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_hshgemv_strided_batched_fortran function rocblas_hssgemv_strided_batched_fortran(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_hssgemv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hssgemv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_hssgemv_strided_batched_fortran = & rocblas_hssgemv_strided_batched(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_hssgemv_strided_batched_fortran function rocblas_tstgemv_strided_batched_fortran(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_tstgemv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_tstgemv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_tstgemv_strided_batched_fortran = & rocblas_tstgemv_strided_batched(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_tstgemv_strided_batched_fortran function rocblas_tssgemv_strided_batched_fortran(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_tssgemv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_tssgemv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_tssgemv_strided_batched_fortran = & rocblas_tssgemv_strided_batched(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_tssgemv_strided_batched_fortran ! gemv_strided_batched_64 function rocblas_sgemv_strided_batched_64_fortran(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_sgemv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_sgemv_strided_batched_64_fortran = & rocblas_sgemv_strided_batched_64(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_sgemv_strided_batched_64_fortran function rocblas_dgemv_strided_batched_64_fortran(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_dgemv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_dgemv_strided_batched_64_fortran = & rocblas_dgemv_strided_batched_64(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_dgemv_strided_batched_64_fortran function rocblas_cgemv_strided_batched_64_fortran(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_cgemv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_cgemv_strided_batched_64_fortran = & rocblas_cgemv_strided_batched_64(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_cgemv_strided_batched_64_fortran function rocblas_zgemv_strided_batched_64_fortran(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_zgemv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_zgemv_strided_batched_64_fortran = & rocblas_zgemv_strided_batched_64(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_zgemv_strided_batched_64_fortran function rocblas_hshgemv_strided_batched_64_fortran(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_hshgemv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hshgemv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_hshgemv_strided_batched_64_fortran = & rocblas_hshgemv_strided_batched_64(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_hshgemv_strided_batched_64_fortran function rocblas_hssgemv_strided_batched_64_fortran(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_hssgemv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hssgemv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_hssgemv_strided_batched_64_fortran = & rocblas_hssgemv_strided_batched_64(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_hssgemv_strided_batched_64_fortran function rocblas_tstgemv_strided_batched_64_fortran(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_tstgemv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_tstgemv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_tstgemv_strided_batched_64_fortran = & rocblas_tstgemv_strided_batched_64(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_tstgemv_strided_batched_64_fortran function rocblas_tssgemv_strided_batched_64_fortran(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_tssgemv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_tssgemv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), 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 rocblas_tssgemv_strided_batched_64_fortran = & rocblas_tssgemv_strided_batched_64(handle, trans, m, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_tssgemv_strided_batched_64_fortran ! hbmv function rocblas_chbmv_fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_chbmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chbmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chbmv_fortran = & rocblas_chbmv(handle, uplo, n, k, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_chbmv_fortran function rocblas_zhbmv_fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_zhbmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhbmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhbmv_fortran = & rocblas_zhbmv(handle, uplo, n, k, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_zhbmv_fortran ! hbmv_64 function rocblas_chbmv_64_fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_chbmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chbmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chbmv_64_fortran = & rocblas_chbmv_64(handle, uplo, n, k, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_chbmv_64_fortran function rocblas_zhbmv_64_fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_zhbmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhbmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhbmv_64_fortran = & rocblas_zhbmv_64(handle, uplo, n, k, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_zhbmv_64_fortran ! hbmv_batched function rocblas_chbmv_batched_fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_chbmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chbmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chbmv_batched_fortran = & rocblas_chbmv_batched(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) end function rocblas_chbmv_batched_fortran function rocblas_zhbmv_batched_fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_zhbmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhbmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhbmv_batched_fortran = & rocblas_zhbmv_batched(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) end function rocblas_zhbmv_batched_fortran ! hbmv_batched_64 function rocblas_chbmv_batched_64_fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_chbmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chbmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chbmv_batched_64_fortran = & rocblas_chbmv_batched_64(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) end function rocblas_chbmv_batched_64_fortran function rocblas_zhbmv_batched_64_fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_zhbmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhbmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhbmv_batched_64_fortran = & rocblas_zhbmv_batched_64(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) end function rocblas_zhbmv_batched_64_fortran ! hbmv_strided_batched function rocblas_chbmv_strided_batched_fortran(handle, uplo, n, k, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_chbmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chbmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chbmv_strided_batched_fortran = & rocblas_chbmv_strided_batched(handle, uplo, n, k, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_chbmv_strided_batched_fortran function rocblas_zhbmv_strided_batched_fortran(handle, uplo, n, k, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_zhbmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhbmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhbmv_strided_batched_fortran = & rocblas_zhbmv_strided_batched(handle, uplo, n, k, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_zhbmv_strided_batched_fortran ! hbmv_strided_batched_64 function rocblas_chbmv_strided_batched_64_fortran(handle, uplo, n, k, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_chbmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chbmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chbmv_strided_batched_64_fortran = & rocblas_chbmv_strided_batched_64(handle, uplo, n, k, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_chbmv_strided_batched_64_fortran function rocblas_zhbmv_strided_batched_64_fortran(handle, uplo, n, k, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_zhbmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhbmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhbmv_strided_batched_64_fortran = & rocblas_zhbmv_strided_batched_64(handle, uplo, n, k, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_zhbmv_strided_batched_64_fortran ! hemv function rocblas_chemv_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_chemv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chemv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chemv_fortran = & rocblas_chemv(handle, uplo, n, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_chemv_fortran function rocblas_zhemv_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_zhemv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhemv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhemv_fortran = & rocblas_zhemv(handle, uplo, n, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_zhemv_fortran ! hemv_64 function rocblas_chemv_64_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_chemv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chemv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chemv_64_fortran = & rocblas_chemv_64(handle, uplo, n, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_chemv_64_fortran function rocblas_zhemv_64_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_zhemv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhemv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhemv_64_fortran = & rocblas_zhemv_64(handle, uplo, n, alpha, A, lda, x, incx, beta, y, incy) end function rocblas_zhemv_64_fortran ! hemv_batched function rocblas_chemv_batched_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_chemv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chemv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chemv_batched_fortran = & rocblas_chemv_batched(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) end function rocblas_chemv_batched_fortran function rocblas_zhemv_batched_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_zhemv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhemv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhemv_batched_fortran = & rocblas_zhemv_batched(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) end function rocblas_zhemv_batched_fortran ! hemv_batched_64 function rocblas_chemv_batched_64_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_chemv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chemv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chemv_batched_64_fortran = & rocblas_chemv_batched_64(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) end function rocblas_chemv_batched_64_fortran function rocblas_zhemv_batched_64_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_zhemv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhemv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhemv_batched_64_fortran = & rocblas_zhemv_batched_64(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) end function rocblas_zhemv_batched_64_fortran ! hemv_strided_batched function rocblas_chemv_strided_batched_fortran(handle, uplo, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_chemv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chemv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chemv_strided_batched_fortran = & rocblas_chemv_strided_batched(handle, uplo, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_chemv_strided_batched_fortran function rocblas_zhemv_strided_batched_fortran(handle, uplo, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_zhemv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhemv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhemv_strided_batched_fortran = & rocblas_zhemv_strided_batched(handle, uplo, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_zhemv_strided_batched_fortran ! hemv_strided_batched_64 function rocblas_chemv_strided_batched_64_fortran(handle, uplo, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_chemv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chemv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chemv_strided_batched_64_fortran = & rocblas_chemv_strided_batched_64(handle, uplo, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_chemv_strided_batched_64_fortran function rocblas_zhemv_strided_batched_64_fortran(handle, uplo, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_zhemv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhemv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhemv_strided_batched_64_fortran = & rocblas_zhemv_strided_batched_64(handle, uplo, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_zhemv_strided_batched_64_fortran ! her function rocblas_cher_fortran(handle, uplo, n, alpha, & x, incx, A, lda) & bind(c, name='rocblas_cher_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cher_fortran = & rocblas_cher(handle, uplo, n, alpha, x, incx, A, lda) end function rocblas_cher_fortran function rocblas_zher_fortran(handle, uplo, n, alpha, & x, incx, A, lda) & bind(c, name='rocblas_zher_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zher_fortran = & rocblas_zher(handle, uplo, n, alpha, x, incx, A, lda) end function rocblas_zher_fortran ! her 64 function rocblas_cher_64_fortran(handle, uplo, n, alpha, & x, incx, A, lda) & bind(c, name='rocblas_cher_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cher_64_fortran = & rocblas_cher_64(handle, uplo, n, alpha, x, incx, A, lda) end function rocblas_cher_64_fortran function rocblas_zher_64_fortran(handle, uplo, n, alpha, & x, incx, A, lda) & bind(c, name='rocblas_zher_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zher_64_fortran = & rocblas_zher_64(handle, uplo, n, alpha, x, incx, A, lda) end function rocblas_zher_64_fortran ! her_batched function rocblas_cher_batched_fortran(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) & bind(c, name='rocblas_cher_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cher_batched_fortran = & rocblas_cher_batched(handle, uplo, n, alpha, x, incx, A, lda, batch_count) end function rocblas_cher_batched_fortran function rocblas_zher_batched_fortran(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) & bind(c, name='rocblas_zher_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zher_batched_fortran = & rocblas_zher_batched(handle, uplo, n, alpha, x, incx, A, lda, batch_count) end function rocblas_zher_batched_fortran ! her_batched_64 function rocblas_cher_batched_64_fortran(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) & bind(c, name='rocblas_cher_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cher_batched_64_fortran = & rocblas_cher_batched_64(handle, uplo, n, alpha, x, incx, A, lda, batch_count) end function rocblas_cher_batched_64_fortran function rocblas_zher_batched_64_fortran(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) & bind(c, name='rocblas_zher_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zher_batched_64_fortran = & rocblas_zher_batched_64(handle, uplo, n, alpha, x, incx, A, lda, batch_count) end function rocblas_zher_batched_64_fortran ! her_strided_batched function rocblas_cher_strided_batched_fortran(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) & bind(c, name='rocblas_cher_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cher_strided_batched_fortran = & rocblas_cher_strided_batched(handle, uplo, n, alpha, x, incx, stride_x, & A, lda, stride_A, batch_count) end function rocblas_cher_strided_batched_fortran function rocblas_zher_strided_batched_fortran(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) & bind(c, name='rocblas_zher_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zher_strided_batched_fortran = & rocblas_zher_strided_batched(handle, uplo, n, alpha, x, incx, stride_x, & A, lda, stride_A, batch_count) end function rocblas_zher_strided_batched_fortran ! her_strided_batched_64 function rocblas_cher_strided_batched_64_fortran(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) & bind(c, name='rocblas_cher_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cher_strided_batched_64_fortran = & rocblas_cher_strided_batched_64(handle, uplo, n, alpha, x, incx, stride_x, & A, lda, stride_A, batch_count) end function rocblas_cher_strided_batched_64_fortran function rocblas_zher_strided_batched_64_fortran(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) & bind(c, name='rocblas_zher_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zher_strided_batched_64_fortran = & rocblas_zher_strided_batched_64(handle, uplo, n, alpha, x, incx, stride_x, & A, lda, stride_A, batch_count) end function rocblas_zher_strided_batched_64_fortran ! her2 function rocblas_cher2_fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) & bind(c, name='rocblas_cher2_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher2_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cher2_fortran = & rocblas_cher2(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) end function rocblas_cher2_fortran function rocblas_zher2_fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) & bind(c, name='rocblas_zher2_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher2_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zher2_fortran = & rocblas_zher2(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) end function rocblas_zher2_fortran ! her2_64 function rocblas_cher2_64_fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) & bind(c, name='rocblas_cher2_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher2_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cher2_64_fortran = & rocblas_cher2_64(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) end function rocblas_cher2_64_fortran function rocblas_zher2_64_fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) & bind(c, name='rocblas_zher2_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher2_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zher2_64_fortran = & rocblas_zher2_64(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) end function rocblas_zher2_64_fortran ! her2_batched function rocblas_cher2_batched_fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) & bind(c, name='rocblas_cher2_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher2_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cher2_batched_fortran = & rocblas_cher2_batched(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) end function rocblas_cher2_batched_fortran function rocblas_zher2_batched_fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) & bind(c, name='rocblas_zher2_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher2_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zher2_batched_fortran = & rocblas_zher2_batched(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) end function rocblas_zher2_batched_fortran ! her2_batched_64 function rocblas_cher2_batched_64_fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) & bind(c, name='rocblas_cher2_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher2_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cher2_batched_64_fortran = & rocblas_cher2_batched_64(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) end function rocblas_cher2_batched_64_fortran function rocblas_zher2_batched_64_fortran(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) & bind(c, name='rocblas_zher2_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher2_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zher2_batched_64_fortran = & rocblas_zher2_batched_64(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) end function rocblas_zher2_batched_64_fortran ! her2_strided_batched function rocblas_cher2_strided_batched_fortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_cher2_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher2_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cher2_strided_batched_fortran = & rocblas_cher2_strided_batched(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_cher2_strided_batched_fortran function rocblas_zher2_strided_batched_fortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_zher2_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher2_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zher2_strided_batched_fortran = & rocblas_zher2_strided_batched(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_zher2_strided_batched_fortran ! her2_strided_batched_64 function rocblas_cher2_strided_batched_64_fortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_cher2_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher2_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cher2_strided_batched_64_fortran = & rocblas_cher2_strided_batched_64(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_cher2_strided_batched_64_fortran function rocblas_zher2_strided_batched_64_fortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_zher2_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher2_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zher2_strided_batched_64_fortran = & rocblas_zher2_strided_batched_64(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_zher2_strided_batched_64_fortran ! hpmv function rocblas_chpmv_fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='rocblas_chpmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpmv_fortran = & rocblas_chpmv(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) end function rocblas_chpmv_fortran function rocblas_zhpmv_fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='rocblas_zhpmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpmv_fortran = & rocblas_zhpmv(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) end function rocblas_zhpmv_fortran ! hpmv_64 function rocblas_chpmv_64_fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='rocblas_chpmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpmv_64_fortran = & rocblas_chpmv_64(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) end function rocblas_chpmv_64_fortran function rocblas_zhpmv_64_fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='rocblas_zhpmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpmv_64_fortran = & rocblas_zhpmv_64(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) end function rocblas_zhpmv_64_fortran ! hpmv_batched function rocblas_chpmv_batched_fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_chpmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpmv_batched_fortran = & rocblas_chpmv_batched(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) end function rocblas_chpmv_batched_fortran function rocblas_zhpmv_batched_fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_zhpmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpmv_batched_fortran = & rocblas_zhpmv_batched(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) end function rocblas_zhpmv_batched_fortran ! hpmv_batched_64 function rocblas_chpmv_batched_64_fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_chpmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpmv_batched_64_fortran = & rocblas_chpmv_batched_64(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) end function rocblas_chpmv_batched_64_fortran function rocblas_zhpmv_batched_64_fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_zhpmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpmv_batched_64_fortran = & rocblas_zhpmv_batched_64(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) end function rocblas_zhpmv_batched_64_fortran ! hpmv_strided_batched function rocblas_chpmv_strided_batched_fortran(handle, uplo, n, alpha, AP, stride_AP, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_chpmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpmv_strided_batched_fortran = & rocblas_chpmv_strided_batched(handle, uplo, n, alpha, AP, stride_AP, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_chpmv_strided_batched_fortran function rocblas_zhpmv_strided_batched_fortran(handle, uplo, n, alpha, AP, stride_AP, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_zhpmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpmv_strided_batched_fortran = & rocblas_zhpmv_strided_batched(handle, uplo, n, alpha, AP, stride_AP, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_zhpmv_strided_batched_fortran ! hpmv_strided_batched_64 function rocblas_chpmv_strided_batched_64_fortran(handle, uplo, n, alpha, AP, stride_AP, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_chpmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpmv_strided_batched_64_fortran = & rocblas_chpmv_strided_batched_64(handle, uplo, n, alpha, AP, stride_AP, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_chpmv_strided_batched_64_fortran function rocblas_zhpmv_strided_batched_64_fortran(handle, uplo, n, alpha, AP, stride_AP, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_zhpmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpmv_strided_batched_64_fortran = & rocblas_zhpmv_strided_batched_64(handle, uplo, n, alpha, AP, stride_AP, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_zhpmv_strided_batched_64_fortran ! hpr function rocblas_chpr_fortran(handle, uplo, n, alpha, & x, incx, AP) & bind(c, name='rocblas_chpr_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpr_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpr_fortran = & rocblas_chpr(handle, uplo, n, alpha, x, incx, AP) end function rocblas_chpr_fortran function rocblas_zhpr_fortran(handle, uplo, n, alpha, & x, incx, AP) & bind(c, name='rocblas_zhpr_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpr_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpr_fortran = & rocblas_zhpr(handle, uplo, n, alpha, x, incx, AP) end function rocblas_zhpr_fortran ! hpr_64 function rocblas_chpr_64_fortran(handle, uplo, n, alpha, & x, incx, AP) & bind(c, name='rocblas_chpr_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpr_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpr_64_fortran = & rocblas_chpr_64(handle, uplo, n, alpha, x, incx, AP) end function rocblas_chpr_64_fortran function rocblas_zhpr_64_fortran(handle, uplo, n, alpha, & x, incx, AP) & bind(c, name='rocblas_zhpr_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpr_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpr_64_fortran = & rocblas_zhpr_64(handle, uplo, n, alpha, x, incx, AP) end function rocblas_zhpr_64_fortran ! hpr_batched function rocblas_chpr_batched_fortran(handle, uplo, n, alpha, & x, incx, AP, batch_count) & bind(c, name='rocblas_chpr_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpr_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpr_batched_fortran = & rocblas_chpr_batched(handle, uplo, n, alpha, x, incx, AP, batch_count) end function rocblas_chpr_batched_fortran function rocblas_zhpr_batched_fortran(handle, uplo, n, alpha, & x, incx, AP, batch_count) & bind(c, name='rocblas_zhpr_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpr_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpr_batched_fortran = & rocblas_zhpr_batched(handle, uplo, n, alpha, x, incx, AP, batch_count) end function rocblas_zhpr_batched_fortran ! hpr_batched_64 function rocblas_chpr_batched_64_fortran(handle, uplo, n, alpha, & x, incx, AP, batch_count) & bind(c, name='rocblas_chpr_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpr_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpr_batched_64_fortran = & rocblas_chpr_batched_64(handle, uplo, n, alpha, x, incx, AP, batch_count) end function rocblas_chpr_batched_64_fortran function rocblas_zhpr_batched_64_fortran(handle, uplo, n, alpha, & x, incx, AP, batch_count) & bind(c, name='rocblas_zhpr_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpr_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpr_batched_64_fortran = & rocblas_zhpr_batched_64(handle, uplo, n, alpha, x, incx, AP, batch_count) end function rocblas_zhpr_batched_64_fortran ! hpr_strided_batched function rocblas_chpr_strided_batched_fortran(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) & bind(c, name='rocblas_chpr_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpr_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpr_strided_batched_fortran = & rocblas_chpr_strided_batched(handle, uplo, n, alpha, x, incx, stride_x, & AP, stride_AP, batch_count) end function rocblas_chpr_strided_batched_fortran function rocblas_zhpr_strided_batched_fortran(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) & bind(c, name='rocblas_zhpr_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpr_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpr_strided_batched_fortran = & rocblas_zhpr_strided_batched(handle, uplo, n, alpha, x, incx, stride_x, & AP, stride_AP, batch_count) end function rocblas_zhpr_strided_batched_fortran ! hpr_strided_batched_64 function rocblas_chpr_strided_batched_64_fortran(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) & bind(c, name='rocblas_chpr_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpr_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpr_strided_batched_64_fortran = & rocblas_chpr_strided_batched_64(handle, uplo, n, alpha, x, incx, stride_x, & AP, stride_AP, batch_count) end function rocblas_chpr_strided_batched_64_fortran function rocblas_zhpr_strided_batched_64_fortran(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) & bind(c, name='rocblas_zhpr_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpr_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpr_strided_batched_64_fortran = & rocblas_zhpr_strided_batched_64(handle, uplo, n, alpha, x, incx, stride_x, & AP, stride_AP, batch_count) end function rocblas_zhpr_strided_batched_64_fortran ! hpr2 function rocblas_chpr2_fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP) & bind(c, name='rocblas_chpr2_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpr2_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpr2_fortran = & rocblas_chpr2(handle, uplo, n, alpha, x, incx, & y, incy, AP) end function rocblas_chpr2_fortran function rocblas_zhpr2_fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP) & bind(c, name='rocblas_zhpr2_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpr2_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpr2_fortran = & rocblas_zhpr2(handle, uplo, n, alpha, x, incx, & y, incy, AP) end function rocblas_zhpr2_fortran ! hpr2_64 function rocblas_chpr2_64_fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP) & bind(c, name='rocblas_chpr2_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpr2_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpr2_64_fortran = & rocblas_chpr2_64(handle, uplo, n, alpha, x, incx, & y, incy, AP) end function rocblas_chpr2_64_fortran function rocblas_zhpr2_64_fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP) & bind(c, name='rocblas_zhpr2_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpr2_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpr2_64_fortran = & rocblas_zhpr2_64(handle, uplo, n, alpha, x, incx, & y, incy, AP) end function rocblas_zhpr2_64_fortran ! hpr2_batched function rocblas_chpr2_batched_fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP, batch_count) & bind(c, name='rocblas_chpr2_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpr2_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpr2_batched_fortran = & rocblas_chpr2_batched(handle, uplo, n, alpha, x, incx, & y, incy, AP, batch_count) end function rocblas_chpr2_batched_fortran function rocblas_zhpr2_batched_fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP, batch_count) & bind(c, name='rocblas_zhpr2_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpr2_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpr2_batched_fortran = & rocblas_zhpr2_batched(handle, uplo, n, alpha, x, incx, & y, incy, AP, batch_count) end function rocblas_zhpr2_batched_fortran ! hpr2_batched_64 function rocblas_chpr2_batched_64_fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP, batch_count) & bind(c, name='rocblas_chpr2_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpr2_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpr2_batched_64_fortran = & rocblas_chpr2_batched_64(handle, uplo, n, alpha, x, incx, & y, incy, AP, batch_count) end function rocblas_chpr2_batched_64_fortran function rocblas_zhpr2_batched_64_fortran(handle, uplo, n, alpha, & x, incx, y, incy, AP, batch_count) & bind(c, name='rocblas_zhpr2_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpr2_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpr2_batched_64_fortran = & rocblas_zhpr2_batched_64(handle, uplo, n, alpha, x, incx, & y, incy, AP, batch_count) end function rocblas_zhpr2_batched_64_fortran ! hpr2_strided_batched function rocblas_chpr2_strided_batched_fortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='rocblas_chpr2_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpr2_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpr2_strided_batched_fortran = & rocblas_chpr2_strided_batched(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, AP, stride_AP, batch_count) end function rocblas_chpr2_strided_batched_fortran function rocblas_zhpr2_strided_batched_fortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='rocblas_zhpr2_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpr2_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpr2_strided_batched_fortran = & rocblas_zhpr2_strided_batched(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, AP, stride_AP, batch_count) end function rocblas_zhpr2_strided_batched_fortran ! hpr2_strided_batched_64 function rocblas_chpr2_strided_batched_64_fortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='rocblas_chpr2_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chpr2_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_chpr2_strided_batched_64_fortran = & rocblas_chpr2_strided_batched_64(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, AP, stride_AP, batch_count) end function rocblas_chpr2_strided_batched_64_fortran function rocblas_zhpr2_strided_batched_64_fortran(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='rocblas_zhpr2_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhpr2_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zhpr2_strided_batched_64_fortran = & rocblas_zhpr2_strided_batched_64(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, AP, stride_AP, batch_count) end function rocblas_zhpr2_strided_batched_64_fortran ! trmv function rocblas_strmv_fortran(handle, uplo, transA, diag, n, & A, lda, x, incx) & bind(c, name='rocblas_strmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 rocblas_strmv_fortran = & rocblas_strmv(handle, uplo, transA, diag, n, & A, lda, x, incx) end function rocblas_strmv_fortran function rocblas_dtrmv_fortran(handle, uplo, transA, diag, n, & A, lda, x, incx) & bind(c, name='rocblas_dtrmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 rocblas_dtrmv_fortran = & rocblas_dtrmv(handle, uplo, transA, diag, n, & A, lda, x, incx) end function rocblas_dtrmv_fortran function rocblas_ctrmv_fortran(handle, uplo, transA, diag, n, & A, lda, x, incx) & bind(c, name='rocblas_ctrmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 rocblas_ctrmv_fortran = & rocblas_ctrmv(handle, uplo, transA, diag, n, & A, lda, x, incx) end function rocblas_ctrmv_fortran function rocblas_ztrmv_fortran(handle, uplo, transA, diag, n, & A, lda, x, incx) & bind(c, name='rocblas_ztrmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 rocblas_ztrmv_fortran = & rocblas_ztrmv(handle, uplo, transA, diag, n, & A, lda, x, incx) end function rocblas_ztrmv_fortran ! trmv_64 function rocblas_strmv_64_fortran(handle, uplo, transA, diag, n, & A, lda, x, incx) & bind(c, name='rocblas_strmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 rocblas_strmv_64_fortran = & rocblas_strmv_64(handle, uplo, transA, diag, n, & A, lda, x, incx) end function rocblas_strmv_64_fortran function rocblas_dtrmv_64_fortran(handle, uplo, transA, diag, n, & A, lda, x, incx) & bind(c, name='rocblas_dtrmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 rocblas_dtrmv_64_fortran = & rocblas_dtrmv_64(handle, uplo, transA, diag, n, & A, lda, x, incx) end function rocblas_dtrmv_64_fortran function rocblas_ctrmv_64_fortran(handle, uplo, transA, diag, n, & A, lda, x, incx) & bind(c, name='rocblas_ctrmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 rocblas_ctrmv_64_fortran = & rocblas_ctrmv_64(handle, uplo, transA, diag, n, & A, lda, x, incx) end function rocblas_ctrmv_64_fortran function rocblas_ztrmv_64_fortran(handle, uplo, transA, diag, n, & A, lda, x, incx) & bind(c, name='rocblas_ztrmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 rocblas_ztrmv_64_fortran = & rocblas_ztrmv_64(handle, uplo, transA, diag, n, & A, lda, x, incx) end function rocblas_ztrmv_64_fortran ! trmv_batched function rocblas_strmv_batched_fortran(handle, uplo, transA, diag, n, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_strmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 integer(c_int), value :: batch_count rocblas_strmv_batched_fortran = & rocblas_strmv_batched(handle, uplo, transA, diag, n, & A, lda, x, incx, batch_count) end function rocblas_strmv_batched_fortran function rocblas_dtrmv_batched_fortran(handle, uplo, transA, diag, n, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_dtrmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 integer(c_int), value :: batch_count rocblas_dtrmv_batched_fortran = & rocblas_dtrmv_batched(handle, uplo, transA, diag, n, & A, lda, x, incx, batch_count) end function rocblas_dtrmv_batched_fortran function rocblas_ctrmv_batched_fortran(handle, uplo, transA, diag, n, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_ctrmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 integer(c_int), value :: batch_count rocblas_ctrmv_batched_fortran = & rocblas_ctrmv_batched(handle, uplo, transA, diag, n, & A, lda, x, incx, batch_count) end function rocblas_ctrmv_batched_fortran function rocblas_ztrmv_batched_fortran(handle, uplo, transA, diag, n, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_ztrmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 integer(c_int), value :: batch_count rocblas_ztrmv_batched_fortran = & rocblas_ztrmv_batched(handle, uplo, transA, diag, n, & A, lda, x, incx, batch_count) end function rocblas_ztrmv_batched_fortran ! trmv_batched_64 function rocblas_strmv_batched_64_fortran(handle, uplo, transA, diag, n, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_strmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 integer(c_int64_t), value :: batch_count rocblas_strmv_batched_64_fortran = & rocblas_strmv_batched_64(handle, uplo, transA, diag, n, & A, lda, x, incx, batch_count) end function rocblas_strmv_batched_64_fortran function rocblas_dtrmv_batched_64_fortran(handle, uplo, transA, diag, n, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_dtrmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 integer(c_int64_t), value :: batch_count rocblas_dtrmv_batched_64_fortran = & rocblas_dtrmv_batched_64(handle, uplo, transA, diag, n, & A, lda, x, incx, batch_count) end function rocblas_dtrmv_batched_64_fortran function rocblas_ctrmv_batched_64_fortran(handle, uplo, transA, diag, n, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_ctrmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 integer(c_int64_t), value :: batch_count rocblas_ctrmv_batched_64_fortran = & rocblas_ctrmv_batched_64(handle, uplo, transA, diag, n, & A, lda, x, incx, batch_count) end function rocblas_ctrmv_batched_64_fortran function rocblas_ztrmv_batched_64_fortran(handle, uplo, transA, diag, n, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_ztrmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 integer(c_int64_t), value :: batch_count rocblas_ztrmv_batched_64_fortran = & rocblas_ztrmv_batched_64(handle, uplo, transA, diag, n, & A, lda, x, incx, batch_count) end function rocblas_ztrmv_batched_64_fortran ! trmv_strided_batched function rocblas_strmv_strided_batched_fortran(handle, uplo, transA, diag, n, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_strmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_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 :: x integer(c_int), value :: incx integer(c_int64_t), value :: stride_x integer(c_int), value :: batch_count rocblas_strmv_strided_batched_fortran = & rocblas_strmv_strided_batched(handle, uplo, transA, diag, n, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_strmv_strided_batched_fortran function rocblas_dtrmv_strided_batched_fortran(handle, uplo, transA, diag, n, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_dtrmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_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 :: x integer(c_int), value :: incx integer(c_int64_t), value :: stride_x integer(c_int), value :: batch_count rocblas_dtrmv_strided_batched_fortran = & rocblas_dtrmv_strided_batched(handle, uplo, transA, diag, n, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_dtrmv_strided_batched_fortran function rocblas_ctrmv_strided_batched_fortran(handle, uplo, transA, diag, n, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ctrmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_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 :: x integer(c_int), value :: incx integer(c_int64_t), value :: stride_x integer(c_int), value :: batch_count rocblas_ctrmv_strided_batched_fortran = & rocblas_ctrmv_strided_batched(handle, uplo, transA, diag, n, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_ctrmv_strided_batched_fortran function rocblas_ztrmv_strided_batched_fortran(handle, uplo, transA, diag, n, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ztrmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_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 :: x integer(c_int), value :: incx integer(c_int64_t), value :: stride_x integer(c_int), value :: batch_count rocblas_ztrmv_strided_batched_fortran = & rocblas_ztrmv_strided_batched(handle, uplo, transA, diag, n, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_ztrmv_strided_batched_fortran ! trmv_strided_batched_64 function rocblas_strmv_strided_batched_64_fortran(handle, uplo, transA, diag, n, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_strmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 integer(c_int64_t), value :: batch_count rocblas_strmv_strided_batched_64_fortran = & rocblas_strmv_strided_batched_64(handle, uplo, transA, diag, n, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_strmv_strided_batched_64_fortran function rocblas_dtrmv_strided_batched_64_fortran(handle, uplo, transA, diag, n, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_dtrmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 integer(c_int64_t), value :: batch_count rocblas_dtrmv_strided_batched_64_fortran = & rocblas_dtrmv_strided_batched_64(handle, uplo, transA, diag, n, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_dtrmv_strided_batched_64_fortran function rocblas_ctrmv_strided_batched_64_fortran(handle, uplo, transA, diag, n, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ctrmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 integer(c_int64_t), value :: batch_count rocblas_ctrmv_strided_batched_64_fortran = & rocblas_ctrmv_strided_batched_64(handle, uplo, transA, diag, n, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_ctrmv_strided_batched_64_fortran function rocblas_ztrmv_strided_batched_64_fortran(handle, uplo, transA, diag, n, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ztrmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag 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 integer(c_int64_t), value :: batch_count rocblas_ztrmv_strided_batched_64_fortran = & rocblas_ztrmv_strided_batched_64(handle, uplo, transA, diag, n, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_ztrmv_strided_batched_64_fortran ! tpmv function rocblas_stpmv_fortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='rocblas_stpmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stpmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag integer(c_int), value :: m type(c_ptr), value :: AP type(c_ptr), value :: x integer(c_int), value :: incx rocblas_stpmv_fortran = & rocblas_stpmv(handle, uplo, transA, diag, m, & AP, x, incx) end function rocblas_stpmv_fortran function rocblas_dtpmv_fortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='rocblas_dtpmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtpmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag integer(c_int), value :: m type(c_ptr), value :: AP type(c_ptr), value :: x integer(c_int), value :: incx rocblas_dtpmv_fortran = & rocblas_dtpmv(handle, uplo, transA, diag, m, & AP, x, incx) end function rocblas_dtpmv_fortran function rocblas_ctpmv_fortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='rocblas_ctpmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctpmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag integer(c_int), value :: m type(c_ptr), value :: AP type(c_ptr), value :: x integer(c_int), value :: incx rocblas_ctpmv_fortran = & rocblas_ctpmv(handle, uplo, transA, diag, m, & AP, x, incx) end function rocblas_ctpmv_fortran function rocblas_ztpmv_fortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='rocblas_ztpmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztpmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag integer(c_int), value :: m type(c_ptr), value :: AP type(c_ptr), value :: x integer(c_int), value :: incx rocblas_ztpmv_fortran = & rocblas_ztpmv(handle, uplo, transA, diag, m, & AP, x, incx) end function rocblas_ztpmv_fortran ! tpmv_64 function rocblas_stpmv_64_fortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='rocblas_stpmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stpmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stpmv_64_fortran = & rocblas_stpmv_64(handle, uplo, transA, diag, m, & AP, x, incx) end function rocblas_stpmv_64_fortran function rocblas_dtpmv_64_fortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='rocblas_dtpmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtpmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtpmv_64_fortran = & rocblas_dtpmv_64(handle, uplo, transA, diag, m, & AP, x, incx) end function rocblas_dtpmv_64_fortran function rocblas_ctpmv_64_fortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='rocblas_ctpmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctpmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctpmv_64_fortran = & rocblas_ctpmv_64(handle, uplo, transA, diag, m, & AP, x, incx) end function rocblas_ctpmv_64_fortran function rocblas_ztpmv_64_fortran(handle, uplo, transA, diag, m, & AP, x, incx) & bind(c, name='rocblas_ztpmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztpmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztpmv_64_fortran = & rocblas_ztpmv_64(handle, uplo, transA, diag, m, & AP, x, incx) end function rocblas_ztpmv_64_fortran ! tpmv_batched function rocblas_stpmv_batched_fortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='rocblas_stpmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stpmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stpmv_batched_fortran = & rocblas_stpmv_batched(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) end function rocblas_stpmv_batched_fortran function rocblas_dtpmv_batched_fortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='rocblas_dtpmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtpmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtpmv_batched_fortran = & rocblas_dtpmv_batched(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) end function rocblas_dtpmv_batched_fortran function rocblas_ctpmv_batched_fortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='rocblas_ctpmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctpmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctpmv_batched_fortran = & rocblas_ctpmv_batched(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) end function rocblas_ctpmv_batched_fortran function rocblas_ztpmv_batched_fortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='rocblas_ztpmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztpmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztpmv_batched_fortran = & rocblas_ztpmv_batched(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) end function rocblas_ztpmv_batched_fortran ! tpmv_batched_64 function rocblas_stpmv_batched_64_fortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='rocblas_stpmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stpmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stpmv_batched_64_fortran = & rocblas_stpmv_batched_64(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) end function rocblas_stpmv_batched_64_fortran function rocblas_dtpmv_batched_64_fortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='rocblas_dtpmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtpmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtpmv_batched_64_fortran = & rocblas_dtpmv_batched_64(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) end function rocblas_dtpmv_batched_64_fortran function rocblas_ctpmv_batched_64_fortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='rocblas_ctpmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctpmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctpmv_batched_64_fortran = & rocblas_ctpmv_batched_64(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) end function rocblas_ctpmv_batched_64_fortran function rocblas_ztpmv_batched_64_fortran(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) & bind(c, name='rocblas_ztpmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztpmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztpmv_batched_64_fortran = & rocblas_ztpmv_batched_64(handle, uplo, transA, diag, m, & AP, x, incx, batch_count) end function rocblas_ztpmv_batched_64_fortran ! tpmv_strided_batched function rocblas_stpmv_strided_batched_fortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='rocblas_stpmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stpmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stpmv_strided_batched_fortran = & rocblas_stpmv_strided_batched(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) end function rocblas_stpmv_strided_batched_fortran function rocblas_dtpmv_strided_batched_fortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='rocblas_dtpmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtpmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtpmv_strided_batched_fortran = & rocblas_dtpmv_strided_batched(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) end function rocblas_dtpmv_strided_batched_fortran function rocblas_ctpmv_strided_batched_fortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ctpmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctpmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctpmv_strided_batched_fortran = & rocblas_ctpmv_strided_batched(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) end function rocblas_ctpmv_strided_batched_fortran function rocblas_ztpmv_strided_batched_fortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ztpmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztpmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztpmv_strided_batched_fortran = & rocblas_ztpmv_strided_batched(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) end function rocblas_ztpmv_strided_batched_fortran ! tpmv_strided_batched_64 function rocblas_stpmv_strided_batched_64_fortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='rocblas_stpmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stpmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stpmv_strided_batched_64_fortran = & rocblas_stpmv_strided_batched_64(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) end function rocblas_stpmv_strided_batched_64_fortran function rocblas_dtpmv_strided_batched_64_fortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='rocblas_dtpmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtpmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtpmv_strided_batched_64_fortran = & rocblas_dtpmv_strided_batched_64(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) end function rocblas_dtpmv_strided_batched_64_fortran function rocblas_ctpmv_strided_batched_64_fortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ctpmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctpmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctpmv_strided_batched_64_fortran = & rocblas_ctpmv_strided_batched_64(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) end function rocblas_ctpmv_strided_batched_64_fortran function rocblas_ztpmv_strided_batched_64_fortran(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ztpmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztpmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztpmv_strided_batched_64_fortran = & rocblas_ztpmv_strided_batched_64(handle, uplo, transA, diag, m, & AP, stride_AP, x, incx, stride_x, batch_count) end function rocblas_ztpmv_strided_batched_64_fortran ! tbmv function rocblas_stbmv_fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='rocblas_stbmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stbmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stbmv_fortran = & rocblas_stbmv(handle, uplo, transA, diag, m, k, & A, lda, x, incx) end function rocblas_stbmv_fortran function rocblas_dtbmv_fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='rocblas_dtbmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtbmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtbmv_fortran = & rocblas_dtbmv(handle, uplo, transA, diag, m, k, & A, lda, x, incx) end function rocblas_dtbmv_fortran function rocblas_ctbmv_fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='rocblas_ctbmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctbmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctbmv_fortran = & rocblas_ctbmv(handle, uplo, transA, diag, m, k, & A, lda, x, incx) end function rocblas_ctbmv_fortran function rocblas_ztbmv_fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='rocblas_ztbmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztbmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztbmv_fortran = & rocblas_ztbmv(handle, uplo, transA, diag, m, k, & A, lda, x, incx) end function rocblas_ztbmv_fortran ! tbmv_64 function rocblas_stbmv_64_fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='rocblas_stbmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stbmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stbmv_64_fortran = & rocblas_stbmv_64(handle, uplo, transA, diag, m, k, & A, lda, x, incx) end function rocblas_stbmv_64_fortran function rocblas_dtbmv_64_fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='rocblas_dtbmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtbmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtbmv_64_fortran = & rocblas_dtbmv_64(handle, uplo, transA, diag, m, k, & A, lda, x, incx) end function rocblas_dtbmv_64_fortran function rocblas_ctbmv_64_fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='rocblas_ctbmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctbmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctbmv_64_fortran = & rocblas_ctbmv_64(handle, uplo, transA, diag, m, k, & A, lda, x, incx) end function rocblas_ctbmv_64_fortran function rocblas_ztbmv_64_fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx) & bind(c, name='rocblas_ztbmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztbmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztbmv_64_fortran = & rocblas_ztbmv_64(handle, uplo, transA, diag, m, k, & A, lda, x, incx) end function rocblas_ztbmv_64_fortran ! tbmv_batched function rocblas_stbmv_batched_fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_stbmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stbmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stbmv_batched_fortran = & rocblas_stbmv_batched(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) end function rocblas_stbmv_batched_fortran function rocblas_dtbmv_batched_fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_dtbmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtbmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtbmv_batched_fortran = & rocblas_dtbmv_batched(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) end function rocblas_dtbmv_batched_fortran function rocblas_ctbmv_batched_fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_ctbmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctbmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctbmv_batched_fortran = & rocblas_ctbmv_batched(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) end function rocblas_ctbmv_batched_fortran function rocblas_ztbmv_batched_fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_ztbmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztbmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztbmv_batched_fortran = & rocblas_ztbmv_batched(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) end function rocblas_ztbmv_batched_fortran ! tbmv_batched_64 function rocblas_stbmv_batched_64_fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_stbmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stbmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stbmv_batched_64_fortran = & rocblas_stbmv_batched_64(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) end function rocblas_stbmv_batched_64_fortran function rocblas_dtbmv_batched_64_fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_dtbmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtbmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtbmv_batched_64_fortran = & rocblas_dtbmv_batched_64(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) end function rocblas_dtbmv_batched_64_fortran function rocblas_ctbmv_batched_64_fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_ctbmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctbmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctbmv_batched_64_fortran = & rocblas_ctbmv_batched_64(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) end function rocblas_ctbmv_batched_64_fortran function rocblas_ztbmv_batched_64_fortran(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_ztbmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztbmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztbmv_batched_64_fortran = & rocblas_ztbmv_batched_64(handle, uplo, transA, diag, m, k, & A, lda, x, incx, batch_count) end function rocblas_ztbmv_batched_64_fortran ! tbmv_strided_batched function rocblas_stbmv_strided_batched_fortran(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_stbmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stbmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stbmv_strided_batched_fortran = & rocblas_stbmv_strided_batched(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_stbmv_strided_batched_fortran function rocblas_dtbmv_strided_batched_fortran(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_dtbmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtbmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtbmv_strided_batched_fortran = & rocblas_dtbmv_strided_batched(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_dtbmv_strided_batched_fortran function rocblas_ctbmv_strided_batched_fortran(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ctbmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctbmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctbmv_strided_batched_fortran = & rocblas_ctbmv_strided_batched(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_ctbmv_strided_batched_fortran function rocblas_ztbmv_strided_batched_fortran(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ztbmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztbmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztbmv_strided_batched_fortran = & rocblas_ztbmv_strided_batched(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_ztbmv_strided_batched_fortran ! tbmv_strided_batched_64 function rocblas_stbmv_strided_batched_64_fortran(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_stbmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stbmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stbmv_strided_batched_64_fortran = & rocblas_stbmv_strided_batched_64(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_stbmv_strided_batched_64_fortran function rocblas_dtbmv_strided_batched_64_fortran(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_dtbmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtbmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtbmv_strided_batched_64_fortran = & rocblas_dtbmv_strided_batched_64(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_dtbmv_strided_batched_64_fortran function rocblas_ctbmv_strided_batched_64_fortran(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ctbmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctbmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctbmv_strided_batched_64_fortran = & rocblas_ctbmv_strided_batched_64(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_ctbmv_strided_batched_64_fortran function rocblas_ztbmv_strided_batched_64_fortran(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ztbmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztbmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztbmv_strided_batched_64_fortran = & rocblas_ztbmv_strided_batched_64(handle, uplo, transA, diag, m, k, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_ztbmv_strided_batched_64_fortran ! tbsv function rocblas_stbsv_fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='rocblas_stbsv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stbsv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stbsv_fortran = & rocblas_stbsv(handle, uplo, transA, diag, n, k, & A, lda, x, incx) end function rocblas_stbsv_fortran function rocblas_dtbsv_fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='rocblas_dtbsv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtbsv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtbsv_fortran = & rocblas_dtbsv(handle, uplo, transA, diag, n, k, & A, lda, x, incx) end function rocblas_dtbsv_fortran function rocblas_ctbsv_fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='rocblas_ctbsv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctbsv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctbsv_fortran = & rocblas_ctbsv(handle, uplo, transA, diag, n, k, & A, lda, x, incx) end function rocblas_ctbsv_fortran function rocblas_ztbsv_fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='rocblas_ztbsv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztbsv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztbsv_fortran = & rocblas_ztbsv(handle, uplo, transA, diag, n, k, & A, lda, x, incx) end function rocblas_ztbsv_fortran ! tbsv_64 function rocblas_stbsv_64_fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='rocblas_stbsv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stbsv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stbsv_64_fortran = & rocblas_stbsv_64(handle, uplo, transA, diag, n, k, & A, lda, x, incx) end function rocblas_stbsv_64_fortran function rocblas_dtbsv_64_fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='rocblas_dtbsv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtbsv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtbsv_64_fortran = & rocblas_dtbsv_64(handle, uplo, transA, diag, n, k, & A, lda, x, incx) end function rocblas_dtbsv_64_fortran function rocblas_ctbsv_64_fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='rocblas_ctbsv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctbsv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctbsv_64_fortran = & rocblas_ctbsv_64(handle, uplo, transA, diag, n, k, & A, lda, x, incx) end function rocblas_ctbsv_64_fortran function rocblas_ztbsv_64_fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx) & bind(c, name='rocblas_ztbsv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztbsv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztbsv_64_fortran = & rocblas_ztbsv_64(handle, uplo, transA, diag, n, k, & A, lda, x, incx) end function rocblas_ztbsv_64_fortran ! tbsv_batched function rocblas_stbsv_batched_fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_stbsv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stbsv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stbsv_batched_fortran = & rocblas_stbsv_batched(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) end function rocblas_stbsv_batched_fortran function rocblas_dtbsv_batched_fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_dtbsv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtbsv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtbsv_batched_fortran = & rocblas_dtbsv_batched(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) end function rocblas_dtbsv_batched_fortran function rocblas_ctbsv_batched_fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_ctbsv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctbsv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctbsv_batched_fortran = & rocblas_ctbsv_batched(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) end function rocblas_ctbsv_batched_fortran function rocblas_ztbsv_batched_fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_ztbsv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztbsv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztbsv_batched_fortran = & rocblas_ztbsv_batched(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) end function rocblas_ztbsv_batched_fortran ! tbsv_batched_64 function rocblas_stbsv_batched_64_fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_stbsv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stbsv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stbsv_batched_64_fortran = & rocblas_stbsv_batched_64(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) end function rocblas_stbsv_batched_64_fortran function rocblas_dtbsv_batched_64_fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_dtbsv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtbsv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtbsv_batched_64_fortran = & rocblas_dtbsv_batched_64(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) end function rocblas_dtbsv_batched_64_fortran function rocblas_ctbsv_batched_64_fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_ctbsv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctbsv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctbsv_batched_64_fortran = & rocblas_ctbsv_batched_64(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) end function rocblas_ctbsv_batched_64_fortran function rocblas_ztbsv_batched_64_fortran(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) & bind(c, name='rocblas_ztbsv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztbsv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztbsv_batched_64_fortran = & rocblas_ztbsv_batched_64(handle, uplo, transA, diag, n, k, & A, lda, x, incx, batch_count) end function rocblas_ztbsv_batched_64_fortran ! tbsv_strided_batched function rocblas_stbsv_strided_batched_fortran(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_stbsv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stbsv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stbsv_strided_batched_fortran = & rocblas_stbsv_strided_batched(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_stbsv_strided_batched_fortran function rocblas_dtbsv_strided_batched_fortran(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_dtbsv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtbsv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtbsv_strided_batched_fortran = & rocblas_dtbsv_strided_batched(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_dtbsv_strided_batched_fortran function rocblas_ctbsv_strided_batched_fortran(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ctbsv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctbsv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctbsv_strided_batched_fortran = & rocblas_ctbsv_strided_batched(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_ctbsv_strided_batched_fortran function rocblas_ztbsv_strided_batched_fortran(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ztbsv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztbsv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztbsv_strided_batched_fortran = & rocblas_ztbsv_strided_batched(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_ztbsv_strided_batched_fortran ! tbsv_strided_batched_64 function rocblas_stbsv_strided_batched_64_fortran(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_stbsv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stbsv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stbsv_strided_batched_64_fortran = & rocblas_stbsv_strided_batched_64(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_stbsv_strided_batched_64_fortran function rocblas_dtbsv_strided_batched_64_fortran(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_dtbsv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtbsv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtbsv_strided_batched_64_fortran = & rocblas_dtbsv_strided_batched_64(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_dtbsv_strided_batched_64_fortran function rocblas_ctbsv_strided_batched_64_fortran(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ctbsv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctbsv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctbsv_strided_batched_64_fortran = & rocblas_ctbsv_strided_batched_64(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_ctbsv_strided_batched_64_fortran function rocblas_ztbsv_strided_batched_64_fortran(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ztbsv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztbsv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztbsv_strided_batched_64_fortran = & rocblas_ztbsv_strided_batched_64(handle, uplo, transA, diag, n, k, & A, lda, stride_A, x, incx, stride_x, batch_count) end function rocblas_ztbsv_strided_batched_64_fortran ! tpsv function rocblas_stpsv_fortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='rocblas_stpsv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stpsv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag integer(c_int), value :: n type(c_ptr), value :: AP type(c_ptr), value :: x integer(c_int), value :: incx rocblas_stpsv_fortran = & rocblas_stpsv(handle, uplo, transA, diag, n, & AP, x, incx) end function rocblas_stpsv_fortran function rocblas_dtpsv_fortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='rocblas_dtpsv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtpsv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag integer(c_int), value :: n type(c_ptr), value :: AP type(c_ptr), value :: x integer(c_int), value :: incx rocblas_dtpsv_fortran = & rocblas_dtpsv(handle, uplo, transA, diag, n, & AP, x, incx) end function rocblas_dtpsv_fortran function rocblas_ctpsv_fortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='rocblas_ctpsv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctpsv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag integer(c_int), value :: n type(c_ptr), value :: AP type(c_ptr), value :: x integer(c_int), value :: incx rocblas_ctpsv_fortran = & rocblas_ctpsv(handle, uplo, transA, diag, n, & AP, x, incx) end function rocblas_ctpsv_fortran function rocblas_ztpsv_fortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='rocblas_ztpsv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztpsv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_non_unit)), value :: diag integer(c_int), value :: n type(c_ptr), value :: AP type(c_ptr), value :: x integer(c_int), value :: incx rocblas_ztpsv_fortran = & rocblas_ztpsv(handle, uplo, transA, diag, n, & AP, x, incx) end function rocblas_ztpsv_fortran ! tpsv_64 function rocblas_stpsv_64_fortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='rocblas_stpsv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stpsv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stpsv_64_fortran = & rocblas_stpsv_64(handle, uplo, transA, diag, n, & AP, x, incx) end function rocblas_stpsv_64_fortran function rocblas_dtpsv_64_fortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='rocblas_dtpsv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtpsv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtpsv_64_fortran = & rocblas_dtpsv_64(handle, uplo, transA, diag, n, & AP, x, incx) end function rocblas_dtpsv_64_fortran function rocblas_ctpsv_64_fortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='rocblas_ctpsv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctpsv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctpsv_64_fortran = & rocblas_ctpsv_64(handle, uplo, transA, diag, n, & AP, x, incx) end function rocblas_ctpsv_64_fortran function rocblas_ztpsv_64_fortran(handle, uplo, transA, diag, n, & AP, x, incx) & bind(c, name='rocblas_ztpsv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztpsv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztpsv_64_fortran = & rocblas_ztpsv_64(handle, uplo, transA, diag, n, & AP, x, incx) end function rocblas_ztpsv_64_fortran ! tpsv_batched function rocblas_stpsv_batched_fortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='rocblas_stpsv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stpsv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stpsv_batched_fortran = & rocblas_stpsv_batched(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) end function rocblas_stpsv_batched_fortran function rocblas_dtpsv_batched_fortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='rocblas_dtpsv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtpsv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtpsv_batched_fortran = & rocblas_dtpsv_batched(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) end function rocblas_dtpsv_batched_fortran function rocblas_ctpsv_batched_fortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='rocblas_ctpsv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctpsv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctpsv_batched_fortran = & rocblas_ctpsv_batched(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) end function rocblas_ctpsv_batched_fortran function rocblas_ztpsv_batched_fortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='rocblas_ztpsv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztpsv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztpsv_batched_fortran = & rocblas_ztpsv_batched(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) end function rocblas_ztpsv_batched_fortran ! tpsv_batched_64 function rocblas_stpsv_batched_64_fortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='rocblas_stpsv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stpsv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stpsv_batched_64_fortran = & rocblas_stpsv_batched_64(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) end function rocblas_stpsv_batched_64_fortran function rocblas_dtpsv_batched_64_fortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='rocblas_dtpsv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtpsv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtpsv_batched_64_fortran = & rocblas_dtpsv_batched_64(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) end function rocblas_dtpsv_batched_64_fortran function rocblas_ctpsv_batched_64_fortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='rocblas_ctpsv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctpsv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctpsv_batched_64_fortran = & rocblas_ctpsv_batched_64(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) end function rocblas_ctpsv_batched_64_fortran function rocblas_ztpsv_batched_64_fortran(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) & bind(c, name='rocblas_ztpsv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztpsv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztpsv_batched_64_fortran = & rocblas_ztpsv_batched_64(handle, uplo, transA, diag, n, & AP, x, incx, batch_count) end function rocblas_ztpsv_batched_64_fortran ! tpsv_strided_batched function rocblas_stpsv_strided_batched_fortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='rocblas_stpsv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stpsv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stpsv_strided_batched_fortran = & rocblas_stpsv_strided_batched(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) end function rocblas_stpsv_strided_batched_fortran function rocblas_dtpsv_strided_batched_fortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='rocblas_dtpsv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtpsv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtpsv_strided_batched_fortran = & rocblas_dtpsv_strided_batched(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) end function rocblas_dtpsv_strided_batched_fortran function rocblas_ctpsv_strided_batched_fortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ctpsv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctpsv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctpsv_strided_batched_fortran = & rocblas_ctpsv_strided_batched(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) end function rocblas_ctpsv_strided_batched_fortran function rocblas_ztpsv_strided_batched_fortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ztpsv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztpsv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztpsv_strided_batched_fortran = & rocblas_ztpsv_strided_batched(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) end function rocblas_ztpsv_strided_batched_fortran ! tpsv_strided_batched_64 function rocblas_stpsv_strided_batched_64_fortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='rocblas_stpsv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_stpsv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_stpsv_strided_batched_64_fortran = & rocblas_stpsv_strided_batched_64(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) end function rocblas_stpsv_strided_batched_64_fortran function rocblas_dtpsv_strided_batched_64_fortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='rocblas_dtpsv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtpsv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtpsv_strided_batched_64_fortran = & rocblas_dtpsv_strided_batched_64(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) end function rocblas_dtpsv_strided_batched_64_fortran function rocblas_ctpsv_strided_batched_64_fortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ctpsv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctpsv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctpsv_strided_batched_64_fortran = & rocblas_ctpsv_strided_batched_64(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) end function rocblas_ctpsv_strided_batched_64_fortran function rocblas_ztpsv_strided_batched_64_fortran(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) & bind(c, name='rocblas_ztpsv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztpsv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztpsv_strided_batched_64_fortran = & rocblas_ztpsv_strided_batched_64(handle, uplo, transA, diag, n, & AP, stride_AP, x, incx, stride_x, batch_count) end function rocblas_ztpsv_strided_batched_64_fortran ! symv function rocblas_ssymv_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_ssymv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssymv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssymv_fortran = & rocblas_ssymv(handle, uplo, n, alpha, & A, lda, x, incx, beta, y, incy) end function rocblas_ssymv_fortran function rocblas_dsymv_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_dsymv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsymv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsymv_fortran = & rocblas_dsymv(handle, uplo, n, alpha, & A, lda, x, incx, beta, y, incy) end function rocblas_dsymv_fortran function rocblas_csymv_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_csymv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csymv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csymv_fortran = & rocblas_csymv(handle, uplo, n, alpha, & A, lda, x, incx, beta, y, incy) end function rocblas_csymv_fortran function rocblas_zsymv_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_zsymv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsymv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsymv_fortran = & rocblas_zsymv(handle, uplo, n, alpha, & A, lda, x, incx, beta, y, incy) end function rocblas_zsymv_fortran ! symv_64 function rocblas_ssymv_64_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_ssymv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssymv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssymv_64_fortran = & rocblas_ssymv_64(handle, uplo, n, alpha, & A, lda, x, incx, beta, y, incy) end function rocblas_ssymv_64_fortran function rocblas_dsymv_64_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_dsymv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsymv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsymv_64_fortran = & rocblas_dsymv_64(handle, uplo, n, alpha, & A, lda, x, incx, beta, y, incy) end function rocblas_dsymv_64_fortran function rocblas_csymv_64_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_csymv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csymv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csymv_64_fortran = & rocblas_csymv_64(handle, uplo, n, alpha, & A, lda, x, incx, beta, y, incy) end function rocblas_csymv_64_fortran function rocblas_zsymv_64_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_zsymv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsymv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsymv_64_fortran = & rocblas_zsymv_64(handle, uplo, n, alpha, & A, lda, x, incx, beta, y, incy) end function rocblas_zsymv_64_fortran ! symv_batched function rocblas_ssymv_batched_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_ssymv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssymv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssymv_batched_fortran = & rocblas_ssymv_batched(handle, uplo, n, alpha, & A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_ssymv_batched_fortran function rocblas_dsymv_batched_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_dsymv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsymv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsymv_batched_fortran = & rocblas_dsymv_batched(handle, uplo, n, alpha, & A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_dsymv_batched_fortran function rocblas_csymv_batched_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_csymv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csymv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csymv_batched_fortran = & rocblas_csymv_batched(handle, uplo, n, alpha, & A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_csymv_batched_fortran function rocblas_zsymv_batched_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_zsymv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsymv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsymv_batched_fortran = & rocblas_zsymv_batched(handle, uplo, n, alpha, & A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_zsymv_batched_fortran ! symv_batched_64 function rocblas_ssymv_batched_64_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_ssymv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssymv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssymv_batched_64_fortran = & rocblas_ssymv_batched_64(handle, uplo, n, alpha, & A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_ssymv_batched_64_fortran function rocblas_dsymv_batched_64_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_dsymv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsymv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsymv_batched_64_fortran = & rocblas_dsymv_batched_64(handle, uplo, n, alpha, & A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_dsymv_batched_64_fortran function rocblas_csymv_batched_64_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_csymv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csymv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csymv_batched_64_fortran = & rocblas_csymv_batched_64(handle, uplo, n, alpha, & A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_csymv_batched_64_fortran function rocblas_zsymv_batched_64_fortran(handle, uplo, n, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_zsymv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsymv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsymv_batched_64_fortran = & rocblas_zsymv_batched_64(handle, uplo, n, alpha, & A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_zsymv_batched_64_fortran ! symv_strided_batched function rocblas_ssymv_strided_batched_fortran(handle, uplo, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_ssymv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssymv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssymv_strided_batched_fortran = & rocblas_ssymv_strided_batched(handle, uplo, n, alpha, & A, lda, stride_A, x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_ssymv_strided_batched_fortran function rocblas_dsymv_strided_batched_fortran(handle, uplo, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_dsymv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsymv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsymv_strided_batched_fortran = & rocblas_dsymv_strided_batched(handle, uplo, n, alpha, & A, lda, stride_A, x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_dsymv_strided_batched_fortran function rocblas_csymv_strided_batched_fortran(handle, uplo, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_csymv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csymv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csymv_strided_batched_fortran = & rocblas_csymv_strided_batched(handle, uplo, n, alpha, & A, lda, stride_A, x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_csymv_strided_batched_fortran function rocblas_zsymv_strided_batched_fortran(handle, uplo, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_zsymv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsymv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsymv_strided_batched_fortran = & rocblas_zsymv_strided_batched(handle, uplo, n, alpha, & A, lda, stride_A, x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_zsymv_strided_batched_fortran ! symv_strided_batched_64 function rocblas_ssymv_strided_batched_64_fortran(handle, uplo, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_ssymv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssymv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssymv_strided_batched_64_fortran = & rocblas_ssymv_strided_batched_64(handle, uplo, n, alpha, & A, lda, stride_A, x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_ssymv_strided_batched_64_fortran function rocblas_dsymv_strided_batched_64_fortran(handle, uplo, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_dsymv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsymv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsymv_strided_batched_64_fortran = & rocblas_dsymv_strided_batched_64(handle, uplo, n, alpha, & A, lda, stride_A, x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_dsymv_strided_batched_64_fortran function rocblas_csymv_strided_batched_64_fortran(handle, uplo, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_csymv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csymv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csymv_strided_batched_64_fortran = & rocblas_csymv_strided_batched_64(handle, uplo, n, alpha, & A, lda, stride_A, x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_csymv_strided_batched_64_fortran function rocblas_zsymv_strided_batched_64_fortran(handle, uplo, n, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_zsymv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsymv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsymv_strided_batched_64_fortran = & rocblas_zsymv_strided_batched_64(handle, uplo, n, alpha, & A, lda, stride_A, x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_zsymv_strided_batched_64_fortran ! spmv function rocblas_sspmv_fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='rocblas_sspmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspmv_fortran = & rocblas_sspmv(handle, uplo, n, alpha, & AP, x, incx, beta, y, incy) end function rocblas_sspmv_fortran function rocblas_dspmv_fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='rocblas_dspmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspmv_fortran = & rocblas_dspmv(handle, uplo, n, alpha, & AP, x, incx, beta, y, incy) end function rocblas_dspmv_fortran ! spmv_64 function rocblas_sspmv_64_fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='rocblas_sspmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspmv_64_fortran = & rocblas_sspmv_64(handle, uplo, n, alpha, & AP, x, incx, beta, y, incy) end function rocblas_sspmv_64_fortran function rocblas_dspmv_64_fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy) & bind(c, name='rocblas_dspmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspmv_64_fortran = & rocblas_dspmv_64(handle, uplo, n, alpha, & AP, x, incx, beta, y, incy) end function rocblas_dspmv_64_fortran ! spmv_batched function rocblas_sspmv_batched_fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_sspmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspmv_batched_fortran = & rocblas_sspmv_batched(handle, uplo, n, alpha, & AP, x, incx, beta, y, incy, batch_count) end function rocblas_sspmv_batched_fortran function rocblas_dspmv_batched_fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_dspmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspmv_batched_fortran = & rocblas_dspmv_batched(handle, uplo, n, alpha, & AP, x, incx, beta, y, incy, batch_count) end function rocblas_dspmv_batched_fortran ! spmv_batched_64 function rocblas_sspmv_batched_64_fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_sspmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspmv_batched_64_fortran = & rocblas_sspmv_batched_64(handle, uplo, n, alpha, & AP, x, incx, beta, y, incy, batch_count) end function rocblas_sspmv_batched_64_fortran function rocblas_dspmv_batched_64_fortran(handle, uplo, n, alpha, AP, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_dspmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspmv_batched_64_fortran = & rocblas_dspmv_batched_64(handle, uplo, n, alpha, & AP, x, incx, beta, y, incy, batch_count) end function rocblas_dspmv_batched_64_fortran ! spmv_strided_batched function rocblas_sspmv_strided_batched_fortran(handle, uplo, n, alpha, AP, stride_AP, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_sspmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspmv_strided_batched_fortran = & rocblas_sspmv_strided_batched(handle, uplo, n, alpha, & AP, stride_AP, x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_sspmv_strided_batched_fortran function rocblas_dspmv_strided_batched_fortran(handle, uplo, n, alpha, AP, stride_AP, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_dspmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspmv_strided_batched_fortran = & rocblas_dspmv_strided_batched(handle, uplo, n, alpha, & AP, stride_AP, x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_dspmv_strided_batched_fortran ! spmv_strided_batched_64 function rocblas_sspmv_strided_batched_64_fortran(handle, uplo, n, alpha, AP, stride_AP, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_sspmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspmv_strided_batched_64_fortran = & rocblas_sspmv_strided_batched_64(handle, uplo, n, alpha, & AP, stride_AP, x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_sspmv_strided_batched_64_fortran function rocblas_dspmv_strided_batched_64_fortran(handle, uplo, n, alpha, AP, stride_AP, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_dspmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspmv_strided_batched_64_fortran = & rocblas_dspmv_strided_batched_64(handle, uplo, n, alpha, & AP, stride_AP, x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_dspmv_strided_batched_64_fortran ! sbmv function rocblas_ssbmv_fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_ssbmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssbmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssbmv_fortran = & rocblas_ssbmv(handle, uplo, n, k, alpha, & A, lda, x, incx, beta, y, incy) end function rocblas_ssbmv_fortran function rocblas_dsbmv_fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_dsbmv_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsbmv_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsbmv_fortran = & rocblas_dsbmv(handle, uplo, n, k, alpha, & A, lda, x, incx, beta, y, incy) end function rocblas_dsbmv_fortran ! sbmv_64 function rocblas_ssbmv_64_fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_ssbmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssbmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssbmv_64_fortran = & rocblas_ssbmv_64(handle, uplo, n, k, alpha, & A, lda, x, incx, beta, y, incy) end function rocblas_ssbmv_64_fortran function rocblas_dsbmv_64_fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy) & bind(c, name='rocblas_dsbmv_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsbmv_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsbmv_64_fortran = & rocblas_dsbmv_64(handle, uplo, n, k, alpha, & A, lda, x, incx, beta, y, incy) end function rocblas_dsbmv_64_fortran ! sbmv_batched function rocblas_ssbmv_batched_fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_ssbmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssbmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssbmv_batched_fortran = & rocblas_ssbmv_batched(handle, uplo, n, k, alpha, & A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_ssbmv_batched_fortran function rocblas_dsbmv_batched_fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_dsbmv_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsbmv_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsbmv_batched_fortran = & rocblas_dsbmv_batched(handle, uplo, n, k, alpha, & A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_dsbmv_batched_fortran ! sbmv_batched_64 function rocblas_ssbmv_batched_64_fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_ssbmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssbmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssbmv_batched_64_fortran = & rocblas_ssbmv_batched_64(handle, uplo, n, k, alpha, & A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_ssbmv_batched_64_fortran function rocblas_dsbmv_batched_64_fortran(handle, uplo, n, k, alpha, A, lda, & x, incx, beta, y, incy, batch_count) & bind(c, name='rocblas_dsbmv_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsbmv_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsbmv_batched_64_fortran = & rocblas_dsbmv_batched_64(handle, uplo, n, k, alpha, & A, lda, x, incx, beta, y, incy, batch_count) end function rocblas_dsbmv_batched_64_fortran ! sbmv_strided_batched function rocblas_ssbmv_strided_batched_fortran(handle, uplo, n, k, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_ssbmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssbmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssbmv_strided_batched_fortran = & rocblas_ssbmv_strided_batched(handle, uplo, n, k, alpha, & A, lda, stride_A, x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_ssbmv_strided_batched_fortran function rocblas_dsbmv_strided_batched_fortran(handle, uplo, n, k, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_dsbmv_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsbmv_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsbmv_strided_batched_fortran = & rocblas_dsbmv_strided_batched(handle, uplo, n, k, alpha, & A, lda, stride_A, x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_dsbmv_strided_batched_fortran ! sbmv_strided_batched_64 function rocblas_ssbmv_strided_batched_64_fortran(handle, uplo, n, k, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_ssbmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssbmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssbmv_strided_batched_64_fortran = & rocblas_ssbmv_strided_batched_64(handle, uplo, n, k, alpha, & A, lda, stride_A, x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_ssbmv_strided_batched_64_fortran function rocblas_dsbmv_strided_batched_64_fortran(handle, uplo, n, k, alpha, A, lda, stride_A, & x, incx, stride_x, beta, y, incy, stride_y, batch_count) & bind(c, name='rocblas_dsbmv_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsbmv_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsbmv_strided_batched_64_fortran = & rocblas_dsbmv_strided_batched_64(handle, uplo, n, k, alpha, & A, lda, stride_A, x, incx, stride_x, beta, y, incy, stride_y, batch_count) end function rocblas_dsbmv_strided_batched_64_fortran ! ger function rocblas_sger_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_sger_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sger_fortran 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 rocblas_sger_fortran = & rocblas_sger(handle, m, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_sger_fortran function rocblas_dger_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_dger_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dger_fortran 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 rocblas_dger_fortran = & rocblas_dger(handle, m, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_dger_fortran function rocblas_cgeru_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_cgeru_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgeru_fortran 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 rocblas_cgeru_fortran = & rocblas_cgeru(handle, m, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_cgeru_fortran function rocblas_cgerc_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_cgerc_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgerc_fortran 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 rocblas_cgerc_fortran = & rocblas_cgerc(handle, m, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_cgerc_fortran function rocblas_zgeru_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_zgeru_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgeru_fortran 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 rocblas_zgeru_fortran = & rocblas_zgeru(handle, m, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_zgeru_fortran function rocblas_zgerc_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_zgerc_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgerc_fortran 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 rocblas_zgerc_fortran = & rocblas_zgerc(handle, m, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_zgerc_fortran ! ger 64 function rocblas_sger_64_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_sger_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sger_64_fortran 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 rocblas_sger_64_fortran = & rocblas_sger_64(handle, m, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_sger_64_fortran function rocblas_dger_64_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_dger_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dger_64_fortran 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 rocblas_dger_64_fortran = & rocblas_dger_64(handle, m, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_dger_64_fortran function rocblas_cgeru_64_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_cgeru_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgeru_64_fortran 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 rocblas_cgeru_64_fortran = & rocblas_cgeru_64(handle, m, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_cgeru_64_fortran function rocblas_cgerc_64_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_cgerc_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgerc_64_fortran 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 rocblas_cgerc_64_fortran = & rocblas_cgerc_64(handle, m, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_cgerc_64_fortran function rocblas_zgeru_64_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_zgeru_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgeru_64_fortran 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 rocblas_zgeru_64_fortran = & rocblas_zgeru_64(handle, m, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_zgeru_64_fortran function rocblas_zgerc_64_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_zgerc_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgerc_64_fortran 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 rocblas_zgerc_64_fortran = & rocblas_zgerc_64(handle, m, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_zgerc_64_fortran ! ger_batched function rocblas_sger_batched_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_sger_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sger_batched_fortran 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 rocblas_sger_batched_fortran = & rocblas_sger_batched(handle, m, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_sger_batched_fortran function rocblas_dger_batched_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_dger_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dger_batched_fortran 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 rocblas_dger_batched_fortran = & rocblas_dger_batched(handle, m, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_dger_batched_fortran function rocblas_cgeru_batched_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_cgeru_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgeru_batched_fortran 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 rocblas_cgeru_batched_fortran = & rocblas_cgeru_batched(handle, m, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_cgeru_batched_fortran function rocblas_cgerc_batched_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_cgerc_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgerc_batched_fortran 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 rocblas_cgerc_batched_fortran = & rocblas_cgerc_batched(handle, m, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_cgerc_batched_fortran function rocblas_zgeru_batched_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_zgeru_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgeru_batched_fortran 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 rocblas_zgeru_batched_fortran = & rocblas_zgeru_batched(handle, m, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_zgeru_batched_fortran function rocblas_zgerc_batched_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_zgerc_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgerc_batched_fortran 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 rocblas_zgerc_batched_fortran = & rocblas_zgerc_batched(handle, m, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_zgerc_batched_fortran ! ger_batched 64 function rocblas_sger_batched_64_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_sger_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sger_batched_64_fortran 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 rocblas_sger_batched_64_fortran = & rocblas_sger_batched_64(handle, m, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_sger_batched_64_fortran function rocblas_dger_batched_64_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_dger_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dger_batched_64_fortran 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 rocblas_dger_batched_64_fortran = & rocblas_dger_batched_64(handle, m, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_dger_batched_64_fortran function rocblas_cgeru_batched_64_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_cgeru_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgeru_batched_64_fortran 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 rocblas_cgeru_batched_64_fortran = & rocblas_cgeru_batched_64(handle, m, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_cgeru_batched_64_fortran function rocblas_cgerc_batched_64_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_cgerc_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgerc_batched_64_fortran 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 rocblas_cgerc_batched_64_fortran = & rocblas_cgerc_batched_64(handle, m, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_cgerc_batched_64_fortran function rocblas_zgeru_batched_64_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_zgeru_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgeru_batched_64_fortran 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 rocblas_zgeru_batched_64_fortran = & rocblas_zgeru_batched_64(handle, m, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_zgeru_batched_64_fortran function rocblas_zgerc_batched_64_fortran(handle, m, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_zgerc_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgerc_batched_64_fortran 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 rocblas_zgerc_batched_64_fortran = & rocblas_zgerc_batched_64(handle, m, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_zgerc_batched_64_fortran ! ger_strided_batched function rocblas_sger_strided_batched_fortran(handle, m, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_sger_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sger_strided_batched_fortran 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 rocblas_sger_strided_batched_fortran = & rocblas_sger_strided_batched(handle, m, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_sger_strided_batched_fortran function rocblas_dger_strided_batched_fortran(handle, m, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_dger_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dger_strided_batched_fortran 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 rocblas_dger_strided_batched_fortran = & rocblas_dger_strided_batched(handle, m, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_dger_strided_batched_fortran function rocblas_cgeru_strided_batched_fortran(handle, m, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_cgeru_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgeru_strided_batched_fortran 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 rocblas_cgeru_strided_batched_fortran = & rocblas_cgeru_strided_batched(handle, m, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_cgeru_strided_batched_fortran function rocblas_cgerc_strided_batched_fortran(handle, m, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_cgerc_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgerc_strided_batched_fortran 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 rocblas_cgerc_strided_batched_fortran = & rocblas_cgerc_strided_batched(handle, m, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_cgerc_strided_batched_fortran function rocblas_zgeru_strided_batched_fortran(handle, m, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_zgeru_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgeru_strided_batched_fortran 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 rocblas_zgeru_strided_batched_fortran = & rocblas_zgeru_strided_batched(handle, m, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_zgeru_strided_batched_fortran function rocblas_zgerc_strided_batched_fortran(handle, m, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_zgerc_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgerc_strided_batched_fortran 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 rocblas_zgerc_strided_batched_fortran = & rocblas_zgerc_strided_batched(handle, m, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_zgerc_strided_batched_fortran ! ger_strided_batched_64 function rocblas_sger_strided_batched_64_fortran(handle, m, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_sger_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sger_strided_batched_64_fortran 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 rocblas_sger_strided_batched_64_fortran = & rocblas_sger_strided_batched_64(handle, m, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_sger_strided_batched_64_fortran function rocblas_dger_strided_batched_64_fortran(handle, m, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_dger_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dger_strided_batched_64_fortran 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 rocblas_dger_strided_batched_64_fortran = & rocblas_dger_strided_batched_64(handle, m, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_dger_strided_batched_64_fortran function rocblas_cgeru_strided_batched_64_fortran(handle, m, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_cgeru_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgeru_strided_batched_64_fortran 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 rocblas_cgeru_strided_batched_64_fortran = & rocblas_cgeru_strided_batched_64(handle, m, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_cgeru_strided_batched_64_fortran function rocblas_cgerc_strided_batched_64_fortran(handle, m, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_cgerc_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgerc_strided_batched_64_fortran 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 rocblas_cgerc_strided_batched_64_fortran = & rocblas_cgerc_strided_batched_64(handle, m, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_cgerc_strided_batched_64_fortran function rocblas_zgeru_strided_batched_64_fortran(handle, m, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_zgeru_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgeru_strided_batched_64_fortran 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 rocblas_zgeru_strided_batched_64_fortran = & rocblas_zgeru_strided_batched_64(handle, m, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_zgeru_strided_batched_64_fortran function rocblas_zgerc_strided_batched_64_fortran(handle, m, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_zgerc_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgerc_strided_batched_64_fortran 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 rocblas_zgerc_strided_batched_64_fortran = & rocblas_zgerc_strided_batched_64(handle, m, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_zgerc_strided_batched_64_fortran ! spr function rocblas_sspr_fortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='rocblas_sspr_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspr_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspr_fortran = & rocblas_sspr(handle, uplo, n, alpha, & x, incx, AP) end function rocblas_sspr_fortran function rocblas_dspr_fortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='rocblas_dspr_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspr_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspr_fortran = & rocblas_dspr(handle, uplo, n, alpha, & x, incx, AP) end function rocblas_dspr_fortran function rocblas_cspr_fortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='rocblas_cspr_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cspr_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cspr_fortran = & rocblas_cspr(handle, uplo, n, alpha, & x, incx, AP) end function rocblas_cspr_fortran function rocblas_zspr_fortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='rocblas_zspr_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zspr_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zspr_fortran = & rocblas_zspr(handle, uplo, n, alpha, & x, incx, AP) end function rocblas_zspr_fortran ! spr_64 function rocblas_sspr_64_fortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='rocblas_sspr_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspr_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspr_64_fortran = & rocblas_sspr_64(handle, uplo, n, alpha, & x, incx, AP) end function rocblas_sspr_64_fortran function rocblas_dspr_64_fortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='rocblas_dspr_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspr_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspr_64_fortran = & rocblas_dspr_64(handle, uplo, n, alpha, & x, incx, AP) end function rocblas_dspr_64_fortran function rocblas_cspr_64_fortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='rocblas_cspr_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cspr_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cspr_64_fortran = & rocblas_cspr_64(handle, uplo, n, alpha, & x, incx, AP) end function rocblas_cspr_64_fortran function rocblas_zspr_64_fortran(handle, uplo, n, alpha, x, incx, AP) & bind(c, name='rocblas_zspr_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zspr_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zspr_64_fortran = & rocblas_zspr_64(handle, uplo, n, alpha, & x, incx, AP) end function rocblas_zspr_64_fortran ! spr_batched function rocblas_sspr_batched_fortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='rocblas_sspr_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspr_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspr_batched_fortran = & rocblas_sspr_batched(handle, uplo, n, alpha, & x, incx, AP, batch_count) end function rocblas_sspr_batched_fortran function rocblas_dspr_batched_fortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='rocblas_dspr_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspr_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspr_batched_fortran = & rocblas_dspr_batched(handle, uplo, n, alpha, & x, incx, AP, batch_count) end function rocblas_dspr_batched_fortran function rocblas_cspr_batched_fortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='rocblas_cspr_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cspr_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cspr_batched_fortran = & rocblas_cspr_batched(handle, uplo, n, alpha, & x, incx, AP, batch_count) end function rocblas_cspr_batched_fortran function rocblas_zspr_batched_fortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='rocblas_zspr_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zspr_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zspr_batched_fortran = & rocblas_zspr_batched(handle, uplo, n, alpha, & x, incx, AP, batch_count) end function rocblas_zspr_batched_fortran ! spr_batched_64 function rocblas_sspr_batched_64_fortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='rocblas_sspr_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspr_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspr_batched_64_fortran = & rocblas_sspr_batched_64(handle, uplo, n, alpha, & x, incx, AP, batch_count) end function rocblas_sspr_batched_64_fortran function rocblas_dspr_batched_64_fortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='rocblas_dspr_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspr_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspr_batched_64_fortran = & rocblas_dspr_batched_64(handle, uplo, n, alpha, & x, incx, AP, batch_count) end function rocblas_dspr_batched_64_fortran function rocblas_cspr_batched_64_fortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='rocblas_cspr_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cspr_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cspr_batched_64_fortran = & rocblas_cspr_batched_64(handle, uplo, n, alpha, & x, incx, AP, batch_count) end function rocblas_cspr_batched_64_fortran function rocblas_zspr_batched_64_fortran(handle, uplo, n, alpha, x, incx, AP, batch_count) & bind(c, name='rocblas_zspr_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zspr_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zspr_batched_64_fortran = & rocblas_zspr_batched_64(handle, uplo, n, alpha, & x, incx, AP, batch_count) end function rocblas_zspr_batched_64_fortran ! spr_strided_batched function rocblas_sspr_strided_batched_fortran(handle, uplo, n, alpha, x, incx, stride_x, & AP, stride_AP, batch_count) & bind(c, name='rocblas_sspr_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspr_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspr_strided_batched_fortran = & rocblas_sspr_strided_batched(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) end function rocblas_sspr_strided_batched_fortran function rocblas_dspr_strided_batched_fortran(handle, uplo, n, alpha, x, incx, stride_x, & AP, stride_AP, batch_count) & bind(c, name='rocblas_dspr_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspr_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspr_strided_batched_fortran = & rocblas_dspr_strided_batched(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) end function rocblas_dspr_strided_batched_fortran function rocblas_cspr_strided_batched_fortran(handle, uplo, n, alpha, x, incx, stride_x, & AP, stride_AP, batch_count) & bind(c, name='rocblas_cspr_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cspr_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cspr_strided_batched_fortran = & rocblas_cspr_strided_batched(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) end function rocblas_cspr_strided_batched_fortran function rocblas_zspr_strided_batched_fortran(handle, uplo, n, alpha, x, incx, stride_x, & AP, stride_AP, batch_count) & bind(c, name='rocblas_zspr_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zspr_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zspr_strided_batched_fortran = & rocblas_zspr_strided_batched(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) end function rocblas_zspr_strided_batched_fortran ! spr_strided_batched_64 function rocblas_sspr_strided_batched_64_fortran(handle, uplo, n, alpha, x, incx, stride_x, & AP, stride_AP, batch_count) & bind(c, name='rocblas_sspr_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspr_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspr_strided_batched_64_fortran = & rocblas_sspr_strided_batched_64(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) end function rocblas_sspr_strided_batched_64_fortran function rocblas_dspr_strided_batched_64_fortran(handle, uplo, n, alpha, x, incx, stride_x, & AP, stride_AP, batch_count) & bind(c, name='rocblas_dspr_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspr_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspr_strided_batched_64_fortran = & rocblas_dspr_strided_batched_64(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) end function rocblas_dspr_strided_batched_64_fortran function rocblas_cspr_strided_batched_64_fortran(handle, uplo, n, alpha, x, incx, stride_x, & AP, stride_AP, batch_count) & bind(c, name='rocblas_cspr_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cspr_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_cspr_strided_batched_64_fortran = & rocblas_cspr_strided_batched_64(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) end function rocblas_cspr_strided_batched_64_fortran function rocblas_zspr_strided_batched_64_fortran(handle, uplo, n, alpha, x, incx, stride_x, & AP, stride_AP, batch_count) & bind(c, name='rocblas_zspr_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zspr_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zspr_strided_batched_64_fortran = & rocblas_zspr_strided_batched_64(handle, uplo, n, alpha, & x, incx, stride_x, AP, stride_AP, batch_count) end function rocblas_zspr_strided_batched_64_fortran ! spr2 function rocblas_sspr2_fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP) & bind(c, name='rocblas_sspr2_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspr2_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspr2_fortran = & rocblas_sspr2(handle, uplo, n, alpha, & x, incx, y, incy, AP) end function rocblas_sspr2_fortran function rocblas_dspr2_fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP) & bind(c, name='rocblas_dspr2_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspr2_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspr2_fortran = & rocblas_dspr2(handle, uplo, n, alpha, & x, incx, y, incy, AP) end function rocblas_dspr2_fortran ! spr2_64 function rocblas_sspr2_64_fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP) & bind(c, name='rocblas_sspr2_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspr2_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspr2_64_fortran = & rocblas_sspr2_64(handle, uplo, n, alpha, & x, incx, y, incy, AP) end function rocblas_sspr2_64_fortran function rocblas_dspr2_64_fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP) & bind(c, name='rocblas_dspr2_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspr2_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspr2_64_fortran = & rocblas_dspr2_64(handle, uplo, n, alpha, & x, incx, y, incy, AP) end function rocblas_dspr2_64_fortran ! spr2_batched function rocblas_sspr2_batched_fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP, batch_count) & bind(c, name='rocblas_sspr2_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspr2_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspr2_batched_fortran = & rocblas_sspr2_batched(handle, uplo, n, alpha, & x, incx, y, incy, AP, batch_count) end function rocblas_sspr2_batched_fortran function rocblas_dspr2_batched_fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP, batch_count) & bind(c, name='rocblas_dspr2_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspr2_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspr2_batched_fortran = & rocblas_dspr2_batched(handle, uplo, n, alpha, & x, incx, y, incy, AP, batch_count) end function rocblas_dspr2_batched_fortran ! spr2_batched_64 function rocblas_sspr2_batched_64_fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP, batch_count) & bind(c, name='rocblas_sspr2_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspr2_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspr2_batched_64_fortran = & rocblas_sspr2_batched_64(handle, uplo, n, alpha, & x, incx, y, incy, AP, batch_count) end function rocblas_sspr2_batched_64_fortran function rocblas_dspr2_batched_64_fortran(handle, uplo, n, alpha, x, incx, & y, incy, AP, batch_count) & bind(c, name='rocblas_dspr2_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspr2_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspr2_batched_64_fortran = & rocblas_dspr2_batched_64(handle, uplo, n, alpha, & x, incx, y, incy, AP, batch_count) end function rocblas_dspr2_batched_64_fortran ! spr2_strided_batched function rocblas_sspr2_strided_batched_fortran(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='rocblas_sspr2_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspr2_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspr2_strided_batched_fortran = & rocblas_sspr2_strided_batched(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) end function rocblas_sspr2_strided_batched_fortran function rocblas_dspr2_strided_batched_fortran(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='rocblas_dspr2_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspr2_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspr2_strided_batched_fortran = & rocblas_dspr2_strided_batched(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) end function rocblas_dspr2_strided_batched_fortran ! spr2_strided_batched_64 function rocblas_sspr2_strided_batched_64_fortran(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='rocblas_sspr2_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sspr2_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_sspr2_strided_batched_64_fortran = & rocblas_sspr2_strided_batched_64(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) end function rocblas_sspr2_strided_batched_64_fortran function rocblas_dspr2_strided_batched_64_fortran(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, AP, stride_AP, batch_count) & bind(c, name='rocblas_dspr2_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dspr2_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dspr2_strided_batched_64_fortran = & rocblas_dspr2_strided_batched_64(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, AP, stride_AP, batch_count) end function rocblas_dspr2_strided_batched_64_fortran ! syr function rocblas_ssyr_fortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='rocblas_ssyr_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssyr_fortran = & rocblas_ssyr(handle, uplo, n, alpha, & x, incx, A, lda) end function rocblas_ssyr_fortran function rocblas_dsyr_fortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='rocblas_dsyr_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsyr_fortran = & rocblas_dsyr(handle, uplo, n, alpha, & x, incx, A, lda) end function rocblas_dsyr_fortran function rocblas_csyr_fortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='rocblas_csyr_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csyr_fortran = & rocblas_csyr(handle, uplo, n, alpha, & x, incx, A, lda) end function rocblas_csyr_fortran function rocblas_zsyr_fortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='rocblas_zsyr_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsyr_fortran = & rocblas_zsyr(handle, uplo, n, alpha, & x, incx, A, lda) end function rocblas_zsyr_fortran ! syr_64 function rocblas_ssyr_64_fortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='rocblas_ssyr_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssyr_64_fortran = & rocblas_ssyr_64(handle, uplo, n, alpha, & x, incx, A, lda) end function rocblas_ssyr_64_fortran function rocblas_dsyr_64_fortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='rocblas_dsyr_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsyr_64_fortran = & rocblas_dsyr_64(handle, uplo, n, alpha, & x, incx, A, lda) end function rocblas_dsyr_64_fortran function rocblas_csyr_64_fortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='rocblas_csyr_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csyr_64_fortran = & rocblas_csyr_64(handle, uplo, n, alpha, & x, incx, A, lda) end function rocblas_csyr_64_fortran function rocblas_zsyr_64_fortran(handle, uplo, n, alpha, x, incx, A, lda) & bind(c, name='rocblas_zsyr_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsyr_64_fortran = & rocblas_zsyr_64(handle, uplo, n, alpha, & x, incx, A, lda) end function rocblas_zsyr_64_fortran ! syr_batched function rocblas_ssyr_batched_fortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='rocblas_ssyr_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssyr_batched_fortran = & rocblas_ssyr_batched(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) end function rocblas_ssyr_batched_fortran function rocblas_dsyr_batched_fortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='rocblas_dsyr_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsyr_batched_fortran = & rocblas_dsyr_batched(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) end function rocblas_dsyr_batched_fortran function rocblas_csyr_batched_fortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='rocblas_csyr_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csyr_batched_fortran = & rocblas_csyr_batched(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) end function rocblas_csyr_batched_fortran function rocblas_zsyr_batched_fortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='rocblas_zsyr_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsyr_batched_fortran = & rocblas_zsyr_batched(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) end function rocblas_zsyr_batched_fortran ! syr_batched_64 function rocblas_ssyr_batched_64_fortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='rocblas_ssyr_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssyr_batched_64_fortran = & rocblas_ssyr_batched_64(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) end function rocblas_ssyr_batched_64_fortran function rocblas_dsyr_batched_64_fortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='rocblas_dsyr_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsyr_batched_64_fortran = & rocblas_dsyr_batched_64(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) end function rocblas_dsyr_batched_64_fortran function rocblas_csyr_batched_64_fortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='rocblas_csyr_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csyr_batched_64_fortran = & rocblas_csyr_batched_64(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) end function rocblas_csyr_batched_64_fortran function rocblas_zsyr_batched_64_fortran(handle, uplo, n, alpha, x, incx, A, lda, batch_count) & bind(c, name='rocblas_zsyr_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsyr_batched_64_fortran = & rocblas_zsyr_batched_64(handle, uplo, n, alpha, & x, incx, A, lda, batch_count) end function rocblas_zsyr_batched_64_fortran ! syr_strided_batched function rocblas_ssyr_strided_batched_fortran(handle, uplo, n, alpha, x, incx, stride_x, & A, lda, stride_A, batch_count) & bind(c, name='rocblas_ssyr_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssyr_strided_batched_fortran = & rocblas_ssyr_strided_batched(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) end function rocblas_ssyr_strided_batched_fortran function rocblas_dsyr_strided_batched_fortran(handle, uplo, n, alpha, x, incx, stride_x, & A, lda, stride_A, batch_count) & bind(c, name='rocblas_dsyr_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsyr_strided_batched_fortran = & rocblas_dsyr_strided_batched(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) end function rocblas_dsyr_strided_batched_fortran function rocblas_csyr_strided_batched_fortran(handle, uplo, n, alpha, x, incx, stride_x, & A, lda, stride_A, batch_count) & bind(c, name='rocblas_csyr_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csyr_strided_batched_fortran = & rocblas_csyr_strided_batched(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) end function rocblas_csyr_strided_batched_fortran function rocblas_zsyr_strided_batched_fortran(handle, uplo, n, alpha, x, incx, stride_x, & A, lda, stride_A, batch_count) & bind(c, name='rocblas_zsyr_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsyr_strided_batched_fortran = & rocblas_zsyr_strided_batched(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) end function rocblas_zsyr_strided_batched_fortran ! syr_strided_batched_64 function rocblas_ssyr_strided_batched_64_fortran(handle, uplo, n, alpha, x, incx, stride_x, & A, lda, stride_A, batch_count) & bind(c, name='rocblas_ssyr_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssyr_strided_batched_64_fortran = & rocblas_ssyr_strided_batched_64(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) end function rocblas_ssyr_strided_batched_64_fortran function rocblas_dsyr_strided_batched_64_fortran(handle, uplo, n, alpha, x, incx, stride_x, & A, lda, stride_A, batch_count) & bind(c, name='rocblas_dsyr_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsyr_strided_batched_64_fortran = & rocblas_dsyr_strided_batched_64(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) end function rocblas_dsyr_strided_batched_64_fortran function rocblas_csyr_strided_batched_64_fortran(handle, uplo, n, alpha, x, incx, stride_x, & A, lda, stride_A, batch_count) & bind(c, name='rocblas_csyr_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csyr_strided_batched_64_fortran = & rocblas_csyr_strided_batched_64(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) end function rocblas_csyr_strided_batched_64_fortran function rocblas_zsyr_strided_batched_64_fortran(handle, uplo, n, alpha, x, incx, stride_x, & A, lda, stride_A, batch_count) & bind(c, name='rocblas_zsyr_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsyr_strided_batched_64_fortran = & rocblas_zsyr_strided_batched_64(handle, uplo, n, alpha, & x, incx, stride_x, A, lda, stride_A, batch_count) end function rocblas_zsyr_strided_batched_64_fortran ! syr2 function rocblas_ssyr2_fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_ssyr2_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr2_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssyr2_fortran = & rocblas_ssyr2(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_ssyr2_fortran function rocblas_dsyr2_fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_dsyr2_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr2_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsyr2_fortran = & rocblas_dsyr2(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_dsyr2_fortran function rocblas_csyr2_fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_csyr2_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr2_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csyr2_fortran = & rocblas_csyr2(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_csyr2_fortran function rocblas_zsyr2_fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_zsyr2_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr2_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsyr2_fortran = & rocblas_zsyr2(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_zsyr2_fortran ! syr2_64 function rocblas_ssyr2_64_fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_ssyr2_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr2_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssyr2_64_fortran = & rocblas_ssyr2_64(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_ssyr2_64_fortran function rocblas_dsyr2_64_fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_dsyr2_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr2_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsyr2_64_fortran = & rocblas_dsyr2_64(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_dsyr2_64_fortran function rocblas_csyr2_64_fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_csyr2_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr2_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csyr2_64_fortran = & rocblas_csyr2_64(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_csyr2_64_fortran function rocblas_zsyr2_64_fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda) & bind(c, name='rocblas_zsyr2_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr2_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsyr2_64_fortran = & rocblas_zsyr2_64(handle, uplo, n, alpha, & x, incx, y, incy, A, lda) end function rocblas_zsyr2_64_fortran ! syr2_batched function rocblas_ssyr2_batched_fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_ssyr2_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr2_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssyr2_batched_fortran = & rocblas_ssyr2_batched(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_ssyr2_batched_fortran function rocblas_dsyr2_batched_fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_dsyr2_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr2_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsyr2_batched_fortran = & rocblas_dsyr2_batched(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_dsyr2_batched_fortran function rocblas_csyr2_batched_fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_csyr2_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr2_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csyr2_batched_fortran = & rocblas_csyr2_batched(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_csyr2_batched_fortran function rocblas_zsyr2_batched_fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_zsyr2_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr2_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsyr2_batched_fortran = & rocblas_zsyr2_batched(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_zsyr2_batched_fortran ! syr2_batched_64 function rocblas_ssyr2_batched_64_fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_ssyr2_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr2_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssyr2_batched_64_fortran = & rocblas_ssyr2_batched_64(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_ssyr2_batched_64_fortran function rocblas_dsyr2_batched_64_fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_dsyr2_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr2_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsyr2_batched_64_fortran = & rocblas_dsyr2_batched_64(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_dsyr2_batched_64_fortran function rocblas_csyr2_batched_64_fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_csyr2_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr2_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csyr2_batched_64_fortran = & rocblas_csyr2_batched_64(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_csyr2_batched_64_fortran function rocblas_zsyr2_batched_64_fortran(handle, uplo, n, alpha, x, incx, & y, incy, A, lda, batch_count) & bind(c, name='rocblas_zsyr2_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr2_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsyr2_batched_64_fortran = & rocblas_zsyr2_batched_64(handle, uplo, n, alpha, & x, incx, y, incy, A, lda, batch_count) end function rocblas_zsyr2_batched_64_fortran ! syr2_strided_batched function rocblas_ssyr2_strided_batched_fortran(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_ssyr2_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr2_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssyr2_strided_batched_fortran = & rocblas_ssyr2_strided_batched(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_ssyr2_strided_batched_fortran function rocblas_dsyr2_strided_batched_fortran(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_dsyr2_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr2_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsyr2_strided_batched_fortran = & rocblas_dsyr2_strided_batched(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_dsyr2_strided_batched_fortran function rocblas_csyr2_strided_batched_fortran(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_csyr2_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr2_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csyr2_strided_batched_fortran = & rocblas_csyr2_strided_batched(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_csyr2_strided_batched_fortran function rocblas_zsyr2_strided_batched_fortran(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_zsyr2_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr2_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsyr2_strided_batched_fortran = & rocblas_zsyr2_strided_batched(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_zsyr2_strided_batched_fortran ! syr2_strided_batched_64 function rocblas_ssyr2_strided_batched_64_fortran(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_ssyr2_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr2_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_ssyr2_strided_batched_64_fortran = & rocblas_ssyr2_strided_batched_64(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_ssyr2_strided_batched_64_fortran function rocblas_dsyr2_strided_batched_64_fortran(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_dsyr2_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr2_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_dsyr2_strided_batched_64_fortran = & rocblas_dsyr2_strided_batched_64(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_dsyr2_strided_batched_64_fortran function rocblas_csyr2_strided_batched_64_fortran(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_csyr2_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr2_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_csyr2_strided_batched_64_fortran = & rocblas_csyr2_strided_batched_64(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_csyr2_strided_batched_64_fortran function rocblas_zsyr2_strided_batched_64_fortran(handle, uplo, n, alpha, x, incx, stride_x, & y, incy, stride_y, A, lda, stride_A, batch_count) & bind(c, name='rocblas_zsyr2_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr2_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_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 rocblas_zsyr2_strided_batched_64_fortran = & rocblas_zsyr2_strided_batched_64(handle, uplo, n, alpha, & x, incx, stride_x, y, incy, stride_y, A, lda, stride_A, batch_count) end function rocblas_zsyr2_strided_batched_64_fortran !--------! ! blas 3 ! !--------! ! gemm function rocblas_hgemm_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_hgemm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hgemm_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_hgemm_fortran = & rocblas_hgemm(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_hgemm_fortran function rocblas_sgemm_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_sgemm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemm_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_sgemm_fortran = & rocblas_sgemm(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_sgemm_fortran function rocblas_dgemm_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_dgemm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemm_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_dgemm_fortran = & rocblas_dgemm(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_dgemm_fortran function rocblas_cgemm_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_cgemm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemm_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_cgemm_fortran = & rocblas_cgemm(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_cgemm_fortran function rocblas_zgemm_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_zgemm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemm_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_zgemm_fortran = & rocblas_zgemm(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_zgemm_fortran ! gemm_64 function rocblas_hgemm_64_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_hgemm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hgemm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_hgemm_64_fortran = & rocblas_hgemm_64(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_hgemm_64_fortran function rocblas_sgemm_64_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_sgemm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_sgemm_64_fortran = & rocblas_sgemm_64(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_sgemm_64_fortran function rocblas_dgemm_64_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_dgemm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_dgemm_64_fortran = & rocblas_dgemm_64(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_dgemm_64_fortran function rocblas_cgemm_64_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_cgemm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_cgemm_64_fortran = & rocblas_cgemm_64(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_cgemm_64_fortran function rocblas_zgemm_64_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_zgemm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_zgemm_64_fortran = & rocblas_zgemm_64(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_zgemm_64_fortran ! gemm_batched function rocblas_hgemm_batched_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_hgemm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hgemm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_hgemm_batched_fortran = & rocblas_hgemm_batched(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_hgemm_batched_fortran function rocblas_sgemm_batched_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_sgemm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_sgemm_batched_fortran = & rocblas_sgemm_batched(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_sgemm_batched_fortran function rocblas_dgemm_batched_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_dgemm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_dgemm_batched_fortran = & rocblas_dgemm_batched(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_dgemm_batched_fortran function rocblas_cgemm_batched_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_cgemm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_cgemm_batched_fortran = & rocblas_cgemm_batched(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_cgemm_batched_fortran function rocblas_zgemm_batched_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_zgemm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_zgemm_batched_fortran = & rocblas_zgemm_batched(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_zgemm_batched_fortran ! gemm_batched_64 function rocblas_hgemm_batched_64_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_hgemm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hgemm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_hgemm_batched_64_fortran = & rocblas_hgemm_batched_64(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_hgemm_batched_64_fortran function rocblas_sgemm_batched_64_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_sgemm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_sgemm_batched_64_fortran = & rocblas_sgemm_batched_64(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_sgemm_batched_64_fortran function rocblas_dgemm_batched_64_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_dgemm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_dgemm_batched_64_fortran = & rocblas_dgemm_batched_64(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_dgemm_batched_64_fortran function rocblas_cgemm_batched_64_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_cgemm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_cgemm_batched_64_fortran = & rocblas_cgemm_batched_64(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_cgemm_batched_64_fortran function rocblas_zgemm_batched_64_fortran(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_zgemm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_zgemm_batched_64_fortran = & rocblas_zgemm_batched_64(handle, transA, transB, m, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_zgemm_batched_64_fortran ! gemm_strided_batched function rocblas_hgemm_strided_batched_fortran(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='rocblas_hgemm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hgemm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_hgemm_strided_batched_fortran = & rocblas_hgemm_strided_batched(handle, transA, transB, m, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_hgemm_strided_batched_fortran function rocblas_sgemm_strided_batched_fortran(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='rocblas_sgemm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_sgemm_strided_batched_fortran = & rocblas_sgemm_strided_batched(handle, transA, transB, m, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_sgemm_strided_batched_fortran function rocblas_dgemm_strided_batched_fortran(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='rocblas_dgemm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_dgemm_strided_batched_fortran = & rocblas_dgemm_strided_batched(handle, transA, transB, m, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_dgemm_strided_batched_fortran function rocblas_cgemm_strided_batched_fortran(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='rocblas_cgemm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_cgemm_strided_batched_fortran = & rocblas_cgemm_strided_batched(handle, transA, transB, m, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_cgemm_strided_batched_fortran function rocblas_zgemm_strided_batched_fortran(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='rocblas_zgemm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_zgemm_strided_batched_fortran = & rocblas_zgemm_strided_batched(handle, transA, transB, m, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_zgemm_strided_batched_fortran ! gemm_strided_batched_64 function rocblas_hgemm_strided_batched_64_fortran(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='rocblas_hgemm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_hgemm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_hgemm_strided_batched_64_fortran = & rocblas_hgemm_strided_batched_64(handle, transA, transB, m, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_hgemm_strided_batched_64_fortran function rocblas_sgemm_strided_batched_64_fortran(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='rocblas_sgemm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_sgemm_strided_batched_64_fortran = & rocblas_sgemm_strided_batched_64(handle, transA, transB, m, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_sgemm_strided_batched_64_fortran function rocblas_dgemm_strided_batched_64_fortran(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='rocblas_dgemm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_dgemm_strided_batched_64_fortran = & rocblas_dgemm_strided_batched_64(handle, transA, transB, m, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_dgemm_strided_batched_64_fortran function rocblas_cgemm_strided_batched_64_fortran(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='rocblas_cgemm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_cgemm_strided_batched_64_fortran = & rocblas_cgemm_strided_batched_64(handle, transA, transB, m, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_cgemm_strided_batched_64_fortran function rocblas_zgemm_strided_batched_64_fortran(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='rocblas_zgemm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_zgemm_strided_batched_64_fortran = & rocblas_zgemm_strided_batched_64(handle, transA, transB, m, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_zgemm_strided_batched_64_fortran ! gemmt function rocblas_sgemmt_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_sgemmt_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemmt_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_sgemmt_fortran = & rocblas_sgemmt(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_sgemmt_fortran function rocblas_dgemmt_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_dgemmt_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemmt_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_dgemmt_fortran = & rocblas_dgemmt(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_dgemmt_fortran function rocblas_cgemmt_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_cgemmt_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemmt_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_cgemmt_fortran = & rocblas_cgemmt(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_cgemmt_fortran function rocblas_zgemmt_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_zgemmt_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemmt_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_zgemmt_fortran = & rocblas_zgemmt(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_zgemmt_fortran ! gemmt_64 function rocblas_sgemmt_64_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_sgemmt_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemmt_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_sgemmt_64_fortran = & rocblas_sgemmt_64(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_sgemmt_64_fortran function rocblas_dgemmt_64_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_dgemmt_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemmt_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_dgemmt_64_fortran = & rocblas_dgemmt_64(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_dgemmt_64_fortran function rocblas_cgemmt_64_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_cgemmt_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemmt_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_cgemmt_64_fortran = & rocblas_cgemmt_64(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_cgemmt_64_fortran function rocblas_zgemmt_64_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_zgemmt_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemmt_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_zgemmt_64_fortran = & rocblas_zgemmt_64(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_zgemmt_64_fortran ! gemmt_batched function rocblas_sgemmt_batched_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_sgemmt_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemmt_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_sgemmt_batched_fortran = & rocblas_sgemmt_batched(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_sgemmt_batched_fortran function rocblas_dgemmt_batched_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_dgemmt_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemmt_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_dgemmt_batched_fortran = & rocblas_dgemmt_batched(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_dgemmt_batched_fortran function rocblas_cgemmt_batched_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_cgemmt_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemmt_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_cgemmt_batched_fortran = & rocblas_cgemmt_batched(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_cgemmt_batched_fortran function rocblas_zgemmt_batched_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_zgemmt_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemmt_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_zgemmt_batched_fortran = & rocblas_zgemmt_batched(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_zgemmt_batched_fortran ! gemmt_batched_64 function rocblas_sgemmt_batched_64_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_sgemmt_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemmt_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_sgemmt_batched_64_fortran = & rocblas_sgemmt_batched_64(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_sgemmt_batched_64_fortran function rocblas_dgemmt_batched_64_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_dgemmt_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemmt_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_dgemmt_batched_64_fortran = & rocblas_dgemmt_batched_64(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_dgemmt_batched_64_fortran function rocblas_cgemmt_batched_64_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_cgemmt_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemmt_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_cgemmt_batched_64_fortran = & rocblas_cgemmt_batched_64(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_cgemmt_batched_64_fortran function rocblas_zgemmt_batched_64_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_zgemmt_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemmt_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_zgemmt_batched_64_fortran = & rocblas_zgemmt_batched_64(handle, uplo, transA, transB, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_zgemmt_batched_64_fortran ! gemmt_strided_batched function rocblas_sgemmt_strided_batched_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_sgemmt_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemmt_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_sgemmt_strided_batched_fortran = & rocblas_sgemmt_strided_batched(handle, uplo, transA, transB, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_sgemmt_strided_batched_fortran function rocblas_dgemmt_strided_batched_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_dgemmt_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemmt_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_dgemmt_strided_batched_fortran = & rocblas_dgemmt_strided_batched(handle, uplo, transA, transB, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_dgemmt_strided_batched_fortran function rocblas_cgemmt_strided_batched_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_cgemmt_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemmt_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_cgemmt_strided_batched_fortran = & rocblas_cgemmt_strided_batched(handle, uplo, transA, transB, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_cgemmt_strided_batched_fortran function rocblas_zgemmt_strided_batched_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zgemmt_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemmt_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_zgemmt_strided_batched_fortran = & rocblas_zgemmt_strided_batched(handle, uplo, transA, transB, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_zgemmt_strided_batched_fortran ! gemmt_strided_batched_64 function rocblas_sgemmt_strided_batched_64_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_sgemmt_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgemmt_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_sgemmt_strided_batched_64_fortran = & rocblas_sgemmt_strided_batched_64(handle, uplo, transA, transB, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_sgemmt_strided_batched_64_fortran function rocblas_dgemmt_strided_batched_64_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_dgemmt_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgemmt_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_dgemmt_strided_batched_64_fortran = & rocblas_dgemmt_strided_batched_64(handle, uplo, transA, transB, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_dgemmt_strided_batched_64_fortran function rocblas_cgemmt_strided_batched_64_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_cgemmt_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgemmt_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_cgemmt_strided_batched_64_fortran = & rocblas_cgemmt_strided_batched_64(handle, uplo, transA, transB, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_cgemmt_strided_batched_64_fortran function rocblas_zgemmt_strided_batched_64_fortran(handle, uplo, transA, transB, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zgemmt_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgemmt_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), value :: transB 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 rocblas_zgemmt_strided_batched_64_fortran = & rocblas_zgemmt_strided_batched_64(handle, uplo, transA, transB, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_zgemmt_strided_batched_64_fortran ! syrkx function rocblas_ssyrkx_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_ssyrkx_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyrkx_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyrkx_fortran = & rocblas_ssyrkx(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_ssyrkx_fortran function rocblas_dsyrkx_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_dsyrkx_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyrkx_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyrkx_fortran = & rocblas_dsyrkx(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_dsyrkx_fortran function rocblas_csyrkx_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_csyrkx_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyrkx_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyrkx_fortran = & rocblas_csyrkx(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_csyrkx_fortran function rocblas_zsyrkx_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_zsyrkx_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyrkx_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyrkx_fortran = & rocblas_zsyrkx(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_zsyrkx_fortran ! syrkx_batched function rocblas_ssyrkx_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_ssyrkx_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyrkx_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyrkx_batched_fortran = & rocblas_ssyrkx_batched(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_ssyrkx_batched_fortran function rocblas_dsyrkx_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_dsyrkx_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyrkx_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyrkx_batched_fortran = & rocblas_dsyrkx_batched(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_dsyrkx_batched_fortran function rocblas_csyrkx_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_csyrkx_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyrkx_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyrkx_batched_fortran = & rocblas_csyrkx_batched(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_csyrkx_batched_fortran function rocblas_zsyrkx_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_zsyrkx_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyrkx_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyrkx_batched_fortran = & rocblas_zsyrkx_batched(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_zsyrkx_batched_fortran ! syrkx_strided_batched function rocblas_ssyrkx_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_ssyrkx_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyrkx_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyrkx_strided_batched_fortran = & rocblas_ssyrkx_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_ssyrkx_strided_batched_fortran function rocblas_dsyrkx_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_dsyrkx_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyrkx_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyrkx_strided_batched_fortran = & rocblas_dsyrkx_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_dsyrkx_strided_batched_fortran function rocblas_csyrkx_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_csyrkx_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyrkx_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyrkx_strided_batched_fortran = & rocblas_csyrkx_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_csyrkx_strided_batched_fortran function rocblas_zsyrkx_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zsyrkx_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyrkx_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyrkx_strided_batched_fortran = & rocblas_zsyrkx_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_zsyrkx_strided_batched_fortran ! syrkx_64 function rocblas_ssyrkx_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_ssyrkx_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyrkx_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyrkx_64_fortran = & rocblas_ssyrkx_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_ssyrkx_64_fortran function rocblas_dsyrkx_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_dsyrkx_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyrkx_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyrkx_64_fortran = & rocblas_dsyrkx_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_dsyrkx_64_fortran function rocblas_csyrkx_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_csyrkx_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyrkx_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyrkx_64_fortran = & rocblas_csyrkx_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_csyrkx_64_fortran function rocblas_zsyrkx_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_zsyrkx_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyrkx_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyrkx_64_fortran = & rocblas_zsyrkx_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_zsyrkx_64_fortran ! syrkx_batched_64 function rocblas_ssyrkx_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_ssyrkx_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyrkx_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyrkx_batched_64_fortran = & rocblas_ssyrkx_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_ssyrkx_batched_64_fortran function rocblas_dsyrkx_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_dsyrkx_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyrkx_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyrkx_batched_64_fortran = & rocblas_dsyrkx_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_dsyrkx_batched_64_fortran function rocblas_csyrkx_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_csyrkx_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyrkx_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyrkx_batched_64_fortran = & rocblas_csyrkx_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_csyrkx_batched_64_fortran function rocblas_zsyrkx_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_zsyrkx_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyrkx_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyrkx_batched_64_fortran = & rocblas_zsyrkx_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_zsyrkx_batched_64_fortran ! syrkx_strided_batched_64 function rocblas_ssyrkx_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_ssyrkx_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyrkx_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyrkx_strided_batched_64_fortran = & rocblas_ssyrkx_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_ssyrkx_strided_batched_64_fortran function rocblas_dsyrkx_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_dsyrkx_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyrkx_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyrkx_strided_batched_64_fortran = & rocblas_dsyrkx_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_dsyrkx_strided_batched_64_fortran function rocblas_csyrkx_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_csyrkx_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyrkx_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyrkx_strided_batched_64_fortran = & rocblas_csyrkx_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_csyrkx_strided_batched_64_fortran function rocblas_zsyrkx_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zsyrkx_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyrkx_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyrkx_strided_batched_64_fortran = & rocblas_zsyrkx_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_zsyrkx_strided_batched_64_fortran ! trmm function rocblas_strmm_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='rocblas_strmm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strmm_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strmm_fortran = & rocblas_strmm(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) end function rocblas_strmm_fortran function rocblas_dtrmm_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='rocblas_dtrmm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrmm_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrmm_fortran = & rocblas_dtrmm(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) end function rocblas_dtrmm_fortran function rocblas_ctrmm_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='rocblas_ctrmm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrmm_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrmm_fortran = & rocblas_ctrmm(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) end function rocblas_ctrmm_fortran function rocblas_ztrmm_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='rocblas_ztrmm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrmm_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrmm_fortran = & rocblas_ztrmm(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) end function rocblas_ztrmm_fortran ! trmm_64 function rocblas_strmm_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='rocblas_strmm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strmm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strmm_64_fortran = & rocblas_strmm_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) end function rocblas_strmm_64_fortran function rocblas_dtrmm_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='rocblas_dtrmm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrmm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrmm_64_fortran = & rocblas_dtrmm_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) end function rocblas_dtrmm_64_fortran function rocblas_ctrmm_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='rocblas_ctrmm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrmm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrmm_64_fortran = & rocblas_ctrmm_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) end function rocblas_ctrmm_64_fortran function rocblas_ztrmm_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) & bind(c, name='rocblas_ztrmm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrmm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrmm_64_fortran = & rocblas_ztrmm_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc) end function rocblas_ztrmm_64_fortran ! trmm_batched function rocblas_strmm_batched_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='rocblas_strmm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strmm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strmm_batched_fortran = & rocblas_strmm_batched(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc, batch_count) end function rocblas_strmm_batched_fortran function rocblas_dtrmm_batched_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='rocblas_dtrmm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrmm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrmm_batched_fortran = & rocblas_dtrmm_batched(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc, batch_count) end function rocblas_dtrmm_batched_fortran function rocblas_ctrmm_batched_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='rocblas_ctrmm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrmm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrmm_batched_fortran = & rocblas_ctrmm_batched(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc, batch_count) end function rocblas_ctrmm_batched_fortran function rocblas_ztrmm_batched_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='rocblas_ztrmm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrmm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrmm_batched_fortran = & rocblas_ztrmm_batched(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc, batch_count) end function rocblas_ztrmm_batched_fortran ! trmm_batched_64 function rocblas_strmm_batched_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='rocblas_strmm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strmm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strmm_batched_64_fortran = & rocblas_strmm_batched_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc, batch_count) end function rocblas_strmm_batched_64_fortran function rocblas_dtrmm_batched_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='rocblas_dtrmm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrmm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrmm_batched_64_fortran = & rocblas_dtrmm_batched_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc, batch_count) end function rocblas_dtrmm_batched_64_fortran function rocblas_ctrmm_batched_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='rocblas_ctrmm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrmm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrmm_batched_64_fortran = & rocblas_ctrmm_batched_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc, batch_count) end function rocblas_ctrmm_batched_64_fortran function rocblas_ztrmm_batched_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc, batch_count) & bind(c, name='rocblas_ztrmm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrmm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrmm_batched_64_fortran = & rocblas_ztrmm_batched_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, C, ldc, batch_count) end function rocblas_ztrmm_batched_64_fortran ! trmm_strided_batched function rocblas_strmm_strided_batched_fortran(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='rocblas_strmm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strmm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strmm_strided_batched_fortran = & rocblas_strmm_strided_batched(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) end function rocblas_strmm_strided_batched_fortran function rocblas_dtrmm_strided_batched_fortran(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='rocblas_dtrmm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrmm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrmm_strided_batched_fortran = & rocblas_dtrmm_strided_batched(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) end function rocblas_dtrmm_strided_batched_fortran function rocblas_ctrmm_strided_batched_fortran(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='rocblas_ctrmm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrmm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrmm_strided_batched_fortran = & rocblas_ctrmm_strided_batched(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) end function rocblas_ctrmm_strided_batched_fortran function rocblas_ztrmm_strided_batched_fortran(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='rocblas_ztrmm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrmm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrmm_strided_batched_fortran = & rocblas_ztrmm_strided_batched(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) end function rocblas_ztrmm_strided_batched_fortran ! trmm_strided_batched_64 function rocblas_strmm_strided_batched_64_fortran(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='rocblas_strmm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strmm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strmm_strided_batched_64_fortran = & rocblas_strmm_strided_batched_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) end function rocblas_strmm_strided_batched_64_fortran function rocblas_dtrmm_strided_batched_64_fortran(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='rocblas_dtrmm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrmm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrmm_strided_batched_64_fortran = & rocblas_dtrmm_strided_batched_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) end function rocblas_dtrmm_strided_batched_64_fortran function rocblas_ctrmm_strided_batched_64_fortran(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='rocblas_ctrmm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrmm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrmm_strided_batched_64_fortran = & rocblas_ctrmm_strided_batched_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) end function rocblas_ctrmm_strided_batched_64_fortran function rocblas_ztrmm_strided_batched_64_fortran(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='rocblas_ztrmm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrmm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrmm_strided_batched_64_fortran = & rocblas_ztrmm_strided_batched_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, C, ldc, stride_C, batch_count) end function rocblas_ztrmm_strided_batched_64_fortran ! hemm function rocblas_chemm_fortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_chemm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chemm_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_chemm_fortran = & rocblas_chemm(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_chemm_fortran function rocblas_zhemm_fortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_zhemm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhemm_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_zhemm_fortran = & rocblas_zhemm(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_zhemm_fortran ! hemm_batched function rocblas_chemm_batched_fortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_chemm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chemm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_chemm_batched_fortran = & rocblas_chemm_batched(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_chemm_batched_fortran function rocblas_zhemm_batched_fortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_zhemm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhemm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_zhemm_batched_fortran = & rocblas_zhemm_batched(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_zhemm_batched_fortran ! hemm_strided_batched function rocblas_chemm_strided_batched_fortran(handle, side, uplo, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_chemm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chemm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_chemm_strided_batched_fortran = & rocblas_chemm_strided_batched(handle, side, uplo, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_chemm_strided_batched_fortran function rocblas_zhemm_strided_batched_fortran(handle, side, uplo, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zhemm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhemm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_zhemm_strided_batched_fortran = & rocblas_zhemm_strided_batched(handle, side, uplo, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_zhemm_strided_batched_fortran ! hemm_64 function rocblas_chemm_64_fortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_chemm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chemm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_chemm_64_fortran = & rocblas_chemm_64(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_chemm_64_fortran function rocblas_zhemm_64_fortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_zhemm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhemm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_zhemm_64_fortran = & rocblas_zhemm_64(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_zhemm_64_fortran ! hemm_batched_64 function rocblas_chemm_batched_64_fortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_chemm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chemm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_chemm_batched_64_fortran = & rocblas_chemm_batched_64(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_chemm_batched_64_fortran function rocblas_zhemm_batched_64_fortran(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_zhemm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhemm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_zhemm_batched_64_fortran = & rocblas_zhemm_batched_64(handle, side, uplo, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_zhemm_batched_64_fortran ! hemm_strided_batched_64 function rocblas_chemm_strided_batched_64_fortran(handle, side, uplo, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_chemm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_chemm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_chemm_strided_batched_64_fortran = & rocblas_chemm_strided_batched_64(handle, side, uplo, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_chemm_strided_batched_64_fortran function rocblas_zhemm_strided_batched_64_fortran(handle, side, uplo, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zhemm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zhemm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_zhemm_strided_batched_64_fortran = & rocblas_zhemm_strided_batched_64(handle, side, uplo, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_zhemm_strided_batched_64_fortran ! herk function rocblas_cherk_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='rocblas_cherk_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cherk_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cherk_fortran = & rocblas_cherk(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) end function rocblas_cherk_fortran function rocblas_zherk_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='rocblas_zherk_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zherk_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zherk_fortran = & rocblas_zherk(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) end function rocblas_zherk_fortran ! herk_64 function rocblas_cherk_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='rocblas_cherk_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cherk_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cherk_64_fortran = & rocblas_cherk_64(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) end function rocblas_cherk_64_fortran function rocblas_zherk_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='rocblas_zherk_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zherk_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zherk_64_fortran = & rocblas_zherk_64(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) end function rocblas_zherk_64_fortran ! herk_batched function rocblas_cherk_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='rocblas_cherk_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cherk_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cherk_batched_fortran = & rocblas_cherk_batched(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) end function rocblas_cherk_batched_fortran function rocblas_zherk_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='rocblas_zherk_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zherk_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zherk_batched_fortran = & rocblas_zherk_batched(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) end function rocblas_zherk_batched_fortran ! herk_batched_64 function rocblas_cherk_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='rocblas_cherk_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cherk_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cherk_batched_64_fortran = & rocblas_cherk_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) end function rocblas_cherk_batched_64_fortran function rocblas_zherk_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='rocblas_zherk_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zherk_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zherk_batched_64_fortran = & rocblas_zherk_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) end function rocblas_zherk_batched_64_fortran ! herk_strided_batched function rocblas_cherk_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_cherk_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cherk_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cherk_strided_batched_fortran = & rocblas_cherk_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) end function rocblas_cherk_strided_batched_fortran function rocblas_zherk_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zherk_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zherk_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zherk_strided_batched_fortran = & rocblas_zherk_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) end function rocblas_zherk_strided_batched_fortran ! herk_strided_batched_64 function rocblas_cherk_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_cherk_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cherk_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cherk_strided_batched_64_fortran = & rocblas_cherk_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) end function rocblas_cherk_strided_batched_64_fortran function rocblas_zherk_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zherk_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zherk_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zherk_strided_batched_64_fortran = & rocblas_zherk_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) end function rocblas_zherk_strided_batched_64_fortran ! her2k function rocblas_cher2k_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_cher2k_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher2k_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cher2k_fortran = & rocblas_cher2k(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_cher2k_fortran function rocblas_zher2k_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_zher2k_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher2k_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zher2k_fortran = & rocblas_zher2k(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_zher2k_fortran ! her2k_batched function rocblas_cher2k_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_cher2k_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher2k_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cher2k_batched_fortran = & rocblas_cher2k_batched(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_cher2k_batched_fortran function rocblas_zher2k_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_zher2k_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher2k_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zher2k_batched_fortran = & rocblas_zher2k_batched(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_zher2k_batched_fortran ! her2k_strided_batched function rocblas_cher2k_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_cher2k_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher2k_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cher2k_strided_batched_fortran = & rocblas_cher2k_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_cher2k_strided_batched_fortran function rocblas_zher2k_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zher2k_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher2k_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zher2k_strided_batched_fortran = & rocblas_zher2k_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_zher2k_strided_batched_fortran ! her2k_64 function rocblas_cher2k_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_cher2k_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher2k_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cher2k_64_fortran = & rocblas_cher2k_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_cher2k_64_fortran function rocblas_zher2k_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_zher2k_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher2k_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zher2k_64_fortran = & rocblas_zher2k_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_zher2k_64_fortran ! her2k_batched_64 function rocblas_cher2k_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_cher2k_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher2k_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cher2k_batched_64_fortran = & rocblas_cher2k_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_cher2k_batched_64_fortran function rocblas_zher2k_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_zher2k_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher2k_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zher2k_batched_64_fortran = & rocblas_zher2k_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_zher2k_batched_64_fortran ! her2k_strided_batched_64 function rocblas_cher2k_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_cher2k_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cher2k_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cher2k_strided_batched_64_fortran = & rocblas_cher2k_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_cher2k_strided_batched_64_fortran function rocblas_zher2k_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zher2k_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zher2k_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zher2k_strided_batched_64_fortran = & rocblas_zher2k_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_zher2k_strided_batched_64_fortran ! herkx function rocblas_cherkx_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_cherkx_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cherkx_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cherkx_fortran = & rocblas_cherkx(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_cherkx_fortran function rocblas_zherkx_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_zherkx_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zherkx_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zherkx_fortran = & rocblas_zherkx(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_zherkx_fortran ! herkx_batched function rocblas_cherkx_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_cherkx_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cherkx_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cherkx_batched_fortran = & rocblas_cherkx_batched(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_cherkx_batched_fortran function rocblas_zherkx_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_zherkx_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zherkx_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zherkx_batched_fortran = & rocblas_zherkx_batched(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_zherkx_batched_fortran ! herkx_strided_batched function rocblas_cherkx_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_cherkx_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cherkx_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cherkx_strided_batched_fortran = & rocblas_cherkx_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_cherkx_strided_batched_fortran function rocblas_zherkx_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zherkx_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zherkx_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zherkx_strided_batched_fortran = & rocblas_zherkx_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_zherkx_strided_batched_fortran ! herkx_64 function rocblas_cherkx_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_cherkx_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cherkx_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cherkx_64_fortran = & rocblas_cherkx_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_cherkx_64_fortran function rocblas_zherkx_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_zherkx_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zherkx_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zherkx_64_fortran = & rocblas_zherkx_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_zherkx_64_fortran ! herkx_batched_64 function rocblas_cherkx_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_cherkx_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cherkx_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cherkx_batched_64_fortran = & rocblas_cherkx_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_cherkx_batched_64_fortran function rocblas_zherkx_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_zherkx_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zherkx_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zherkx_batched_64_fortran = & rocblas_zherkx_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_zherkx_batched_64_fortran ! herkx_strided_batched_64 function rocblas_cherkx_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_cherkx_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cherkx_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_cherkx_strided_batched_64_fortran = & rocblas_cherkx_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_cherkx_strided_batched_64_fortran function rocblas_zherkx_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zherkx_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zherkx_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zherkx_strided_batched_64_fortran = & rocblas_zherkx_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_zherkx_strided_batched_64_fortran ! symm function rocblas_ssymm_fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_ssymm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssymm_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_ssymm_fortran = & rocblas_ssymm(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_ssymm_fortran function rocblas_dsymm_fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_dsymm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsymm_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_dsymm_fortran = & rocblas_dsymm(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_dsymm_fortran function rocblas_csymm_fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_csymm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csymm_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_csymm_fortran = & rocblas_csymm(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_csymm_fortran function rocblas_zsymm_fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_zsymm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsymm_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_zsymm_fortran = & rocblas_zsymm(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_zsymm_fortran ! symm_batched function rocblas_ssymm_batched_fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_ssymm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssymm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_ssymm_batched_fortran = & rocblas_ssymm_batched(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_ssymm_batched_fortran function rocblas_dsymm_batched_fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_dsymm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsymm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_dsymm_batched_fortran = & rocblas_dsymm_batched(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_dsymm_batched_fortran function rocblas_csymm_batched_fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_csymm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csymm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_csymm_batched_fortran = & rocblas_csymm_batched(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_csymm_batched_fortran function rocblas_zsymm_batched_fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_zsymm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsymm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_zsymm_batched_fortran = & rocblas_zsymm_batched(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_zsymm_batched_fortran ! symm_strided_batched function rocblas_ssymm_strided_batched_fortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_ssymm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssymm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_ssymm_strided_batched_fortran = & rocblas_ssymm_strided_batched(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_ssymm_strided_batched_fortran function rocblas_dsymm_strided_batched_fortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_dsymm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsymm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_dsymm_strided_batched_fortran = & rocblas_dsymm_strided_batched(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_dsymm_strided_batched_fortran function rocblas_csymm_strided_batched_fortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_csymm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csymm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_csymm_strided_batched_fortran = & rocblas_csymm_strided_batched(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_csymm_strided_batched_fortran function rocblas_zsymm_strided_batched_fortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zsymm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsymm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_zsymm_strided_batched_fortran = & rocblas_zsymm_strided_batched(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_zsymm_strided_batched_fortran ! symm_64 function rocblas_ssymm_64_fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_ssymm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssymm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_ssymm_64_fortran = & rocblas_ssymm_64(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_ssymm_64_fortran function rocblas_dsymm_64_fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_dsymm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsymm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_dsymm_64_fortran = & rocblas_dsymm_64(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_dsymm_64_fortran function rocblas_csymm_64_fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_csymm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csymm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_csymm_64_fortran = & rocblas_csymm_64(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_csymm_64_fortran function rocblas_zsymm_64_fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_zsymm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsymm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_zsymm_64_fortran = & rocblas_zsymm_64(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_zsymm_64_fortran ! symm_batched_64 function rocblas_ssymm_batched_64_fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_ssymm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssymm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_ssymm_batched_64_fortran = & rocblas_ssymm_batched_64(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_ssymm_batched_64_fortran function rocblas_dsymm_batched_64_fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_dsymm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsymm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_dsymm_batched_64_fortran = & rocblas_dsymm_batched_64(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_dsymm_batched_64_fortran function rocblas_csymm_batched_64_fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_csymm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csymm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_csymm_batched_64_fortran = & rocblas_csymm_batched_64(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_csymm_batched_64_fortran function rocblas_zsymm_batched_64_fortran(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_zsymm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsymm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_zsymm_batched_64_fortran = & rocblas_zsymm_batched_64(handle, side, uplo, m, n, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_zsymm_batched_64_fortran ! symm_strided_batched_64 function rocblas_ssymm_strided_batched_64_fortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_ssymm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssymm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_ssymm_strided_batched_64_fortran = & rocblas_ssymm_strided_batched_64(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_ssymm_strided_batched_64_fortran function rocblas_dsymm_strided_batched_64_fortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_dsymm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsymm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_dsymm_strided_batched_64_fortran = & rocblas_dsymm_strided_batched_64(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_dsymm_strided_batched_64_fortran function rocblas_csymm_strided_batched_64_fortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_csymm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csymm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_csymm_strided_batched_64_fortran = & rocblas_csymm_strided_batched_64(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_csymm_strided_batched_64_fortran function rocblas_zsymm_strided_batched_64_fortran(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zsymm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsymm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_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 rocblas_zsymm_strided_batched_64_fortran = & rocblas_zsymm_strided_batched_64(handle, side, uplo, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_zsymm_strided_batched_64_fortran ! syrk function rocblas_ssyrk_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='rocblas_ssyrk_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyrk_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyrk_fortran = & rocblas_ssyrk(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) end function rocblas_ssyrk_fortran function rocblas_dsyrk_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='rocblas_dsyrk_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyrk_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyrk_fortran = & rocblas_dsyrk(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) end function rocblas_dsyrk_fortran function rocblas_csyrk_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='rocblas_csyrk_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyrk_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyrk_fortran = & rocblas_csyrk(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) end function rocblas_csyrk_fortran function rocblas_zsyrk_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='rocblas_zsyrk_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyrk_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyrk_fortran = & rocblas_zsyrk(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) end function rocblas_zsyrk_fortran ! syrk_batched function rocblas_ssyrk_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='rocblas_ssyrk_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyrk_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyrk_batched_fortran = & rocblas_ssyrk_batched(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) end function rocblas_ssyrk_batched_fortran function rocblas_dsyrk_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='rocblas_dsyrk_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyrk_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyrk_batched_fortran = & rocblas_dsyrk_batched(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) end function rocblas_dsyrk_batched_fortran function rocblas_csyrk_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='rocblas_csyrk_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyrk_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyrk_batched_fortran = & rocblas_csyrk_batched(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) end function rocblas_csyrk_batched_fortran function rocblas_zsyrk_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='rocblas_zsyrk_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyrk_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyrk_batched_fortran = & rocblas_zsyrk_batched(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) end function rocblas_zsyrk_batched_fortran ! syrk_strided_batched function rocblas_ssyrk_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_ssyrk_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyrk_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyrk_strided_batched_fortran = & rocblas_ssyrk_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) end function rocblas_ssyrk_strided_batched_fortran function rocblas_dsyrk_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_dsyrk_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyrk_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyrk_strided_batched_fortran = & rocblas_dsyrk_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) end function rocblas_dsyrk_strided_batched_fortran function rocblas_csyrk_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_csyrk_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyrk_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyrk_strided_batched_fortran = & rocblas_csyrk_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) end function rocblas_csyrk_strided_batched_fortran function rocblas_zsyrk_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zsyrk_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyrk_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyrk_strided_batched_fortran = & rocblas_zsyrk_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) end function rocblas_zsyrk_strided_batched_fortran ! syrk_64 function rocblas_ssyrk_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='rocblas_ssyrk_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyrk_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyrk_64_fortran = & rocblas_ssyrk_64(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) end function rocblas_ssyrk_64_fortran function rocblas_dsyrk_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='rocblas_dsyrk_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyrk_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyrk_64_fortran = & rocblas_dsyrk_64(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) end function rocblas_dsyrk_64_fortran function rocblas_csyrk_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='rocblas_csyrk_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyrk_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyrk_64_fortran = & rocblas_csyrk_64(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) end function rocblas_csyrk_64_fortran function rocblas_zsyrk_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) & bind(c, name='rocblas_zsyrk_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyrk_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyrk_64_fortran = & rocblas_zsyrk_64(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc) end function rocblas_zsyrk_64_fortran ! syrk_batched_64 function rocblas_ssyrk_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='rocblas_ssyrk_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyrk_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyrk_batched_64_fortran = & rocblas_ssyrk_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) end function rocblas_ssyrk_batched_64_fortran function rocblas_dsyrk_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='rocblas_dsyrk_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyrk_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyrk_batched_64_fortran = & rocblas_dsyrk_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) end function rocblas_dsyrk_batched_64_fortran function rocblas_csyrk_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='rocblas_csyrk_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyrk_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyrk_batched_64_fortran = & rocblas_csyrk_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) end function rocblas_csyrk_batched_64_fortran function rocblas_zsyrk_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) & bind(c, name='rocblas_zsyrk_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyrk_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyrk_batched_64_fortran = & rocblas_zsyrk_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, beta, C, ldc, batch_count) end function rocblas_zsyrk_batched_64_fortran ! syrk_strided_batched_64 function rocblas_ssyrk_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_ssyrk_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyrk_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyrk_strided_batched_64_fortran = & rocblas_ssyrk_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) end function rocblas_ssyrk_strided_batched_64_fortran function rocblas_dsyrk_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_dsyrk_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyrk_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyrk_strided_batched_64_fortran = & rocblas_dsyrk_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) end function rocblas_dsyrk_strided_batched_64_fortran function rocblas_csyrk_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_csyrk_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyrk_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyrk_strided_batched_64_fortran = & rocblas_csyrk_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) end function rocblas_csyrk_strided_batched_64_fortran function rocblas_zsyrk_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zsyrk_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyrk_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyrk_strided_batched_64_fortran = & rocblas_zsyrk_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, beta, C, ldc, stride_C, batch_count) end function rocblas_zsyrk_strided_batched_64_fortran ! syr2k function rocblas_ssyr2k_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_ssyr2k_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr2k_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyr2k_fortran = & rocblas_ssyr2k(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_ssyr2k_fortran function rocblas_dsyr2k_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_dsyr2k_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr2k_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyr2k_fortran = & rocblas_dsyr2k(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_dsyr2k_fortran function rocblas_csyr2k_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_csyr2k_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr2k_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyr2k_fortran = & rocblas_csyr2k(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_csyr2k_fortran function rocblas_zsyr2k_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_zsyr2k_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr2k_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyr2k_fortran = & rocblas_zsyr2k(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_zsyr2k_fortran ! syr2k_batched function rocblas_ssyr2k_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_ssyr2k_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr2k_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyr2k_batched_fortran = & rocblas_ssyr2k_batched(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_ssyr2k_batched_fortran function rocblas_dsyr2k_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_dsyr2k_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr2k_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyr2k_batched_fortran = & rocblas_dsyr2k_batched(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_dsyr2k_batched_fortran function rocblas_csyr2k_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_csyr2k_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr2k_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyr2k_batched_fortran = & rocblas_csyr2k_batched(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_csyr2k_batched_fortran function rocblas_zsyr2k_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_zsyr2k_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr2k_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyr2k_batched_fortran = & rocblas_zsyr2k_batched(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_zsyr2k_batched_fortran ! syr2k_strided_batched function rocblas_ssyr2k_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_ssyr2k_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr2k_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyr2k_strided_batched_fortran = & rocblas_ssyr2k_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_ssyr2k_strided_batched_fortran function rocblas_dsyr2k_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_dsyr2k_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr2k_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyr2k_strided_batched_fortran = & rocblas_dsyr2k_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_dsyr2k_strided_batched_fortran function rocblas_csyr2k_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_csyr2k_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr2k_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyr2k_strided_batched_fortran = & rocblas_csyr2k_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_csyr2k_strided_batched_fortran function rocblas_zsyr2k_strided_batched_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zsyr2k_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr2k_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyr2k_strided_batched_fortran = & rocblas_zsyr2k_strided_batched(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_zsyr2k_strided_batched_fortran ! syr2k_64 function rocblas_ssyr2k_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_ssyr2k_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr2k_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyr2k_64_fortran = & rocblas_ssyr2k_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_ssyr2k_64_fortran function rocblas_dsyr2k_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_dsyr2k_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr2k_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyr2k_64_fortran = & rocblas_dsyr2k_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_dsyr2k_64_fortran function rocblas_csyr2k_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_csyr2k_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr2k_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyr2k_64_fortran = & rocblas_csyr2k_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_csyr2k_64_fortran function rocblas_zsyr2k_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) & bind(c, name='rocblas_zsyr2k_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr2k_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyr2k_64_fortran = & rocblas_zsyr2k_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc) end function rocblas_zsyr2k_64_fortran ! syr2k_batched_64 function rocblas_ssyr2k_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_ssyr2k_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr2k_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyr2k_batched_64_fortran = & rocblas_ssyr2k_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_ssyr2k_batched_64_fortran function rocblas_dsyr2k_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_dsyr2k_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr2k_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyr2k_batched_64_fortran = & rocblas_dsyr2k_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_dsyr2k_batched_64_fortran function rocblas_csyr2k_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_csyr2k_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr2k_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyr2k_batched_64_fortran = & rocblas_csyr2k_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_csyr2k_batched_64_fortran function rocblas_zsyr2k_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) & bind(c, name='rocblas_zsyr2k_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr2k_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyr2k_batched_64_fortran = & rocblas_zsyr2k_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, B, ldb, beta, C, ldc, batch_count) end function rocblas_zsyr2k_batched_64_fortran ! syr2k_strided_batched_64 function rocblas_ssyr2k_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_ssyr2k_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ssyr2k_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_ssyr2k_strided_batched_64_fortran = & rocblas_ssyr2k_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_ssyr2k_strided_batched_64_fortran function rocblas_dsyr2k_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_dsyr2k_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dsyr2k_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_dsyr2k_strided_batched_64_fortran = & rocblas_dsyr2k_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_dsyr2k_strided_batched_64_fortran function rocblas_csyr2k_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_csyr2k_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_csyr2k_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_csyr2k_strided_batched_64_fortran = & rocblas_csyr2k_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_csyr2k_strided_batched_64_fortran function rocblas_zsyr2k_strided_batched_64_fortran(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zsyr2k_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zsyr2k_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), 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 rocblas_zsyr2k_strided_batched_64_fortran = & rocblas_zsyr2k_strided_batched_64(handle, uplo, transA, n, k, alpha, & A, lda, stride_A, B, ldb, stride_B, beta, C, ldc, stride_C, batch_count) end function rocblas_zsyr2k_strided_batched_64_fortran ! dgmm function rocblas_sdgmm_fortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='rocblas_sdgmm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sdgmm_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_sdgmm_fortran = & rocblas_sdgmm(handle, side, m, n, & A, lda, x, incx, C, ldc) end function rocblas_sdgmm_fortran function rocblas_ddgmm_fortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='rocblas_ddgmm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ddgmm_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_ddgmm_fortran = & rocblas_ddgmm(handle, side, m, n, & A, lda, x, incx, C, ldc) end function rocblas_ddgmm_fortran function rocblas_cdgmm_fortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='rocblas_cdgmm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdgmm_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_cdgmm_fortran = & rocblas_cdgmm(handle, side, m, n, & A, lda, x, incx, C, ldc) end function rocblas_cdgmm_fortran function rocblas_zdgmm_fortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='rocblas_zdgmm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdgmm_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_zdgmm_fortran = & rocblas_zdgmm(handle, side, m, n, & A, lda, x, incx, C, ldc) end function rocblas_zdgmm_fortran ! dgmm_batched function rocblas_sdgmm_batched_fortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='rocblas_sdgmm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sdgmm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_sdgmm_batched_fortran = & rocblas_sdgmm_batched(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) end function rocblas_sdgmm_batched_fortran function rocblas_ddgmm_batched_fortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='rocblas_ddgmm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ddgmm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_ddgmm_batched_fortran = & rocblas_ddgmm_batched(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) end function rocblas_ddgmm_batched_fortran function rocblas_cdgmm_batched_fortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='rocblas_cdgmm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdgmm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_cdgmm_batched_fortran = & rocblas_cdgmm_batched(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) end function rocblas_cdgmm_batched_fortran function rocblas_zdgmm_batched_fortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='rocblas_zdgmm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdgmm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_zdgmm_batched_fortran = & rocblas_zdgmm_batched(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) end function rocblas_zdgmm_batched_fortran ! dgmm_strided_batched function rocblas_sdgmm_strided_batched_fortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_sdgmm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sdgmm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_sdgmm_strided_batched_fortran = & rocblas_sdgmm_strided_batched(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) end function rocblas_sdgmm_strided_batched_fortran function rocblas_ddgmm_strided_batched_fortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_ddgmm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ddgmm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_ddgmm_strided_batched_fortran = & rocblas_ddgmm_strided_batched(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) end function rocblas_ddgmm_strided_batched_fortran function rocblas_cdgmm_strided_batched_fortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_cdgmm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdgmm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_cdgmm_strided_batched_fortran = & rocblas_cdgmm_strided_batched(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) end function rocblas_cdgmm_strided_batched_fortran function rocblas_zdgmm_strided_batched_fortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zdgmm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdgmm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_zdgmm_strided_batched_fortran = & rocblas_zdgmm_strided_batched(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) end function rocblas_zdgmm_strided_batched_fortran ! dgmm_64 function rocblas_sdgmm_64_fortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='rocblas_sdgmm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sdgmm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_sdgmm_64_fortran = & rocblas_sdgmm_64(handle, side, m, n, & A, lda, x, incx, C, ldc) end function rocblas_sdgmm_64_fortran function rocblas_ddgmm_64_fortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='rocblas_ddgmm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ddgmm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_ddgmm_64_fortran = & rocblas_ddgmm_64(handle, side, m, n, & A, lda, x, incx, C, ldc) end function rocblas_ddgmm_64_fortran function rocblas_cdgmm_64_fortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='rocblas_cdgmm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdgmm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_cdgmm_64_fortran = & rocblas_cdgmm_64(handle, side, m, n, & A, lda, x, incx, C, ldc) end function rocblas_cdgmm_64_fortran function rocblas_zdgmm_64_fortran(handle, side, m, n, & A, lda, x, incx, C, ldc) & bind(c, name='rocblas_zdgmm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdgmm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_zdgmm_64_fortran = & rocblas_zdgmm_64(handle, side, m, n, & A, lda, x, incx, C, ldc) end function rocblas_zdgmm_64_fortran ! dgmm_batched_64 function rocblas_sdgmm_batched_64_fortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='rocblas_sdgmm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sdgmm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_sdgmm_batched_64_fortran = & rocblas_sdgmm_batched_64(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) end function rocblas_sdgmm_batched_64_fortran function rocblas_ddgmm_batched_64_fortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='rocblas_ddgmm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ddgmm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_ddgmm_batched_64_fortran = & rocblas_ddgmm_batched_64(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) end function rocblas_ddgmm_batched_64_fortran function rocblas_cdgmm_batched_64_fortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='rocblas_cdgmm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdgmm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_cdgmm_batched_64_fortran = & rocblas_cdgmm_batched_64(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) end function rocblas_cdgmm_batched_64_fortran function rocblas_zdgmm_batched_64_fortran(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) & bind(c, name='rocblas_zdgmm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdgmm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_zdgmm_batched_64_fortran = & rocblas_zdgmm_batched_64(handle, side, m, n, & A, lda, x, incx, C, ldc, batch_count) end function rocblas_zdgmm_batched_64_fortran ! dgmm_strided_batched_64 function rocblas_sdgmm_strided_batched_64_fortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_sdgmm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sdgmm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_sdgmm_strided_batched_64_fortran = & rocblas_sdgmm_strided_batched_64(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) end function rocblas_sdgmm_strided_batched_64_fortran function rocblas_ddgmm_strided_batched_64_fortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_ddgmm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ddgmm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_ddgmm_strided_batched_64_fortran = & rocblas_ddgmm_strided_batched_64(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) end function rocblas_ddgmm_strided_batched_64_fortran function rocblas_cdgmm_strided_batched_64_fortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_cdgmm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cdgmm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_cdgmm_strided_batched_64_fortran = & rocblas_cdgmm_strided_batched_64(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) end function rocblas_cdgmm_strided_batched_64_fortran function rocblas_zdgmm_strided_batched_64_fortran(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zdgmm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zdgmm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_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 rocblas_zdgmm_strided_batched_64_fortran = & rocblas_zdgmm_strided_batched_64(handle, side, m, n, & A, lda, stride_A, x, incx, stride_x, C, ldc, stride_C, batch_count) end function rocblas_zdgmm_strided_batched_64_fortran ! geam function rocblas_sgeam_fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='rocblas_sgeam_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgeam_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_sgeam_fortran = & rocblas_sgeam(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) end function rocblas_sgeam_fortran function rocblas_dgeam_fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='rocblas_dgeam_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgeam_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_dgeam_fortran = & rocblas_dgeam(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) end function rocblas_dgeam_fortran function rocblas_cgeam_fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='rocblas_cgeam_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgeam_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_cgeam_fortran = & rocblas_cgeam(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) end function rocblas_cgeam_fortran function rocblas_zgeam_fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='rocblas_zgeam_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgeam_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_zgeam_fortran = & rocblas_zgeam(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) end function rocblas_zgeam_fortran ! geam_batched function rocblas_sgeam_batched_fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='rocblas_sgeam_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgeam_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_sgeam_batched_fortran = & rocblas_sgeam_batched(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) end function rocblas_sgeam_batched_fortran function rocblas_dgeam_batched_fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='rocblas_dgeam_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgeam_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_dgeam_batched_fortran = & rocblas_dgeam_batched(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) end function rocblas_dgeam_batched_fortran function rocblas_cgeam_batched_fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='rocblas_cgeam_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgeam_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_cgeam_batched_fortran = & rocblas_cgeam_batched(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) end function rocblas_cgeam_batched_fortran function rocblas_zgeam_batched_fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='rocblas_zgeam_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgeam_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_zgeam_batched_fortran = & rocblas_zgeam_batched(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) end function rocblas_zgeam_batched_fortran ! geam_strided_batched function rocblas_sgeam_strided_batched_fortran(handle, transA, transB, m, n, alpha, & A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_sgeam_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgeam_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_sgeam_strided_batched_fortran = & rocblas_sgeam_strided_batched(handle, transA, transB, m, n, alpha, & A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) end function rocblas_sgeam_strided_batched_fortran function rocblas_dgeam_strided_batched_fortran(handle, transA, transB, m, n, alpha, & A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_dgeam_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgeam_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_dgeam_strided_batched_fortran = & rocblas_dgeam_strided_batched(handle, transA, transB, m, n, alpha, & A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) end function rocblas_dgeam_strided_batched_fortran function rocblas_cgeam_strided_batched_fortran(handle, transA, transB, m, n, alpha, & A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_cgeam_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgeam_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_cgeam_strided_batched_fortran = & rocblas_cgeam_strided_batched(handle, transA, transB, m, n, alpha, & A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) end function rocblas_cgeam_strided_batched_fortran function rocblas_zgeam_strided_batched_fortran(handle, transA, transB, m, n, alpha, & A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zgeam_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgeam_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_zgeam_strided_batched_fortran = & rocblas_zgeam_strided_batched(handle, transA, transB, m, n, alpha, & A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) end function rocblas_zgeam_strided_batched_fortran ! geam_64 function rocblas_sgeam_64_fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='rocblas_sgeam_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgeam_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_sgeam_64_fortran = & rocblas_sgeam_64(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) end function rocblas_sgeam_64_fortran function rocblas_dgeam_64_fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='rocblas_dgeam_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgeam_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_dgeam_64_fortran = & rocblas_dgeam_64(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) end function rocblas_dgeam_64_fortran function rocblas_cgeam_64_fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='rocblas_cgeam_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgeam_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_cgeam_64_fortran = & rocblas_cgeam_64(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) end function rocblas_cgeam_64_fortran function rocblas_zgeam_64_fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) & bind(c, name='rocblas_zgeam_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgeam_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_zgeam_64_fortran = & rocblas_zgeam_64(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc) end function rocblas_zgeam_64_fortran ! geam_batched_64 function rocblas_sgeam_batched_64_fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='rocblas_sgeam_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgeam_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_sgeam_batched_64_fortran = & rocblas_sgeam_batched_64(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) end function rocblas_sgeam_batched_64_fortran function rocblas_dgeam_batched_64_fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='rocblas_dgeam_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgeam_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_dgeam_batched_64_fortran = & rocblas_dgeam_batched_64(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) end function rocblas_dgeam_batched_64_fortran function rocblas_cgeam_batched_64_fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='rocblas_cgeam_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgeam_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_cgeam_batched_64_fortran = & rocblas_cgeam_batched_64(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) end function rocblas_cgeam_batched_64_fortran function rocblas_zgeam_batched_64_fortran(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) & bind(c, name='rocblas_zgeam_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgeam_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_zgeam_batched_64_fortran = & rocblas_zgeam_batched_64(handle, transA, transB, m, n, alpha, & A, lda, beta, B, ldb, C, ldc, batch_count) end function rocblas_zgeam_batched_64_fortran ! geam_strided_batched_64 function rocblas_sgeam_strided_batched_64_fortran(handle, transA, transB, m, n, alpha, & A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_sgeam_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_sgeam_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_sgeam_strided_batched_64_fortran = & rocblas_sgeam_strided_batched_64(handle, transA, transB, m, n, alpha, & A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) end function rocblas_sgeam_strided_batched_64_fortran function rocblas_dgeam_strided_batched_64_fortran(handle, transA, transB, m, n, alpha, & A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_dgeam_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dgeam_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_dgeam_strided_batched_64_fortran = & rocblas_dgeam_strided_batched_64(handle, transA, transB, m, n, alpha, & A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) end function rocblas_dgeam_strided_batched_64_fortran function rocblas_cgeam_strided_batched_64_fortran(handle, transA, transB, m, n, alpha, & A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_cgeam_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_cgeam_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_cgeam_strided_batched_64_fortran = & rocblas_cgeam_strided_batched_64(handle, transA, transB, m, n, alpha, & A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) end function rocblas_cgeam_strided_batched_64_fortran function rocblas_zgeam_strided_batched_64_fortran(handle, transA, transB, m, n, alpha, & A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) & bind(c, name='rocblas_zgeam_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_zgeam_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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 rocblas_zgeam_strided_batched_64_fortran = & rocblas_zgeam_strided_batched_64(handle, transA, transB, m, n, alpha, & A, lda, stride_A, beta, B, ldb, stride_B, C, ldc, stride_C, batch_count) end function rocblas_zgeam_strided_batched_64_fortran ! trsm function rocblas_strsm_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='rocblas_strsm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strsm_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strsm_fortran = & rocblas_strsm(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) end function rocblas_strsm_fortran function rocblas_dtrsm_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='rocblas_dtrsm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrsm_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrsm_fortran = & rocblas_dtrsm(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) end function rocblas_dtrsm_fortran function rocblas_ctrsm_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='rocblas_ctrsm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrsm_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrsm_fortran = & rocblas_ctrsm(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) end function rocblas_ctrsm_fortran function rocblas_ztrsm_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='rocblas_ztrsm_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrsm_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrsm_fortran = & rocblas_ztrsm(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) end function rocblas_ztrsm_fortran ! trsm_64 function rocblas_strsm_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='rocblas_strsm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strsm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strsm_64_fortran = & rocblas_strsm_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) end function rocblas_strsm_64_fortran function rocblas_dtrsm_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='rocblas_dtrsm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrsm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrsm_64_fortran = & rocblas_dtrsm_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) end function rocblas_dtrsm_64_fortran function rocblas_ctrsm_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='rocblas_ctrsm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrsm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrsm_64_fortran = & rocblas_ctrsm_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) end function rocblas_ctrsm_64_fortran function rocblas_ztrsm_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) & bind(c, name='rocblas_ztrsm_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrsm_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrsm_64_fortran = & rocblas_ztrsm_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb) end function rocblas_ztrsm_64_fortran ! trsm_batched function rocblas_strsm_batched_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count) & bind(c, name='rocblas_strsm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strsm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strsm_batched_fortran = & rocblas_strsm_batched(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count) end function rocblas_strsm_batched_fortran function rocblas_dtrsm_batched_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count) & bind(c, name='rocblas_dtrsm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrsm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrsm_batched_fortran = & rocblas_dtrsm_batched(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count) end function rocblas_dtrsm_batched_fortran function rocblas_ctrsm_batched_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count) & bind(c, name='rocblas_ctrsm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrsm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrsm_batched_fortran = & rocblas_ctrsm_batched(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count) end function rocblas_ctrsm_batched_fortran function rocblas_ztrsm_batched_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count) & bind(c, name='rocblas_ztrsm_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrsm_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrsm_batched_fortran = & rocblas_ztrsm_batched(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count) end function rocblas_ztrsm_batched_fortran ! trsm_batched_64 function rocblas_strsm_batched_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count) & bind(c, name='rocblas_strsm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strsm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strsm_batched_64_fortran = & rocblas_strsm_batched_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count) end function rocblas_strsm_batched_64_fortran function rocblas_dtrsm_batched_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count) & bind(c, name='rocblas_dtrsm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrsm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrsm_batched_64_fortran = & rocblas_dtrsm_batched_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count) end function rocblas_dtrsm_batched_64_fortran function rocblas_ctrsm_batched_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count) & bind(c, name='rocblas_ctrsm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrsm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrsm_batched_64_fortran = & rocblas_ctrsm_batched_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count) end function rocblas_ctrsm_batched_64_fortran function rocblas_ztrsm_batched_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count) & bind(c, name='rocblas_ztrsm_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrsm_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrsm_batched_64_fortran = & rocblas_ztrsm_batched_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count) end function rocblas_ztrsm_batched_64_fortran ! trsm_strided_batched function rocblas_strsm_strided_batched_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='rocblas_strsm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strsm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strsm_strided_batched_fortran = & rocblas_strsm_strided_batched(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, batch_count) end function rocblas_strsm_strided_batched_fortran function rocblas_dtrsm_strided_batched_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='rocblas_dtrsm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrsm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrsm_strided_batched_fortran = & rocblas_dtrsm_strided_batched(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, batch_count) end function rocblas_dtrsm_strided_batched_fortran function rocblas_ctrsm_strided_batched_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='rocblas_ctrsm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrsm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrsm_strided_batched_fortran = & rocblas_ctrsm_strided_batched(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, batch_count) end function rocblas_ctrsm_strided_batched_fortran function rocblas_ztrsm_strided_batched_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='rocblas_ztrsm_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrsm_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrsm_strided_batched_fortran = & rocblas_ztrsm_strided_batched(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, batch_count) end function rocblas_ztrsm_strided_batched_fortran ! trsm_strided_batched_64 function rocblas_strsm_strided_batched_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='rocblas_strsm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strsm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_strsm_strided_batched_64_fortran = & rocblas_strsm_strided_batched_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, batch_count) end function rocblas_strsm_strided_batched_64_fortran function rocblas_dtrsm_strided_batched_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='rocblas_dtrsm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrsm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_dtrsm_strided_batched_64_fortran = & rocblas_dtrsm_strided_batched_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, batch_count) end function rocblas_dtrsm_strided_batched_64_fortran function rocblas_ctrsm_strided_batched_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='rocblas_ctrsm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrsm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ctrsm_strided_batched_64_fortran = & rocblas_ctrsm_strided_batched_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, batch_count) end function rocblas_ctrsm_strided_batched_64_fortran function rocblas_ztrsm_strided_batched_64_fortran(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, batch_count) & bind(c, name='rocblas_ztrsm_strided_batched_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrsm_strided_batched_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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 rocblas_ztrsm_strided_batched_64_fortran = & rocblas_ztrsm_strided_batched_64(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, stride_A, B, ldb, stride_B, batch_count) end function rocblas_ztrsm_strided_batched_64_fortran ! trtri function rocblas_strtri_fortran(handle, uplo, diag, n, & A, lda, invA, ldinvA) & bind(c, name='rocblas_strtri_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strtri_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_diagonal_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 rocblas_strtri_fortran = & rocblas_strtri(handle, uplo, diag, n, & A, lda, invA, ldinvA) end function rocblas_strtri_fortran function rocblas_dtrtri_fortran(handle, uplo, diag, n, & A, lda, invA, ldinvA) & bind(c, name='rocblas_dtrtri_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrtri_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_diagonal_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 rocblas_dtrtri_fortran = & rocblas_dtrtri(handle, uplo, diag, n, & A, lda, invA, ldinvA) end function rocblas_dtrtri_fortran function rocblas_ctrtri_fortran(handle, uplo, diag, n, & A, lda, invA, ldinvA) & bind(c, name='rocblas_ctrtri_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrtri_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_diagonal_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 rocblas_ctrtri_fortran = & rocblas_ctrtri(handle, uplo, diag, n, & A, lda, invA, ldinvA) end function rocblas_ctrtri_fortran function rocblas_ztrtri_fortran(handle, uplo, diag, n, & A, lda, invA, ldinvA) & bind(c, name='rocblas_ztrtri_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrtri_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_diagonal_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 rocblas_ztrtri_fortran = & rocblas_ztrtri(handle, uplo, diag, n, & A, lda, invA, ldinvA) end function rocblas_ztrtri_fortran ! trtri_batched function rocblas_strtri_batched_fortran(handle, uplo, diag, n, & A, lda, invA, ldinvA, batch_count) & bind(c, name='rocblas_strtri_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strtri_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_diagonal_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 rocblas_strtri_batched_fortran = & rocblas_strtri_batched(handle, uplo, diag, n, & A, lda, invA, ldinvA, batch_count) end function rocblas_strtri_batched_fortran function rocblas_dtrtri_batched_fortran(handle, uplo, diag, n, & A, lda, invA, ldinvA, batch_count) & bind(c, name='rocblas_dtrtri_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrtri_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_diagonal_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 rocblas_dtrtri_batched_fortran = & rocblas_dtrtri_batched(handle, uplo, diag, n, & A, lda, invA, ldinvA, batch_count) end function rocblas_dtrtri_batched_fortran function rocblas_ctrtri_batched_fortran(handle, uplo, diag, n, & A, lda, invA, ldinvA, batch_count) & bind(c, name='rocblas_ctrtri_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrtri_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_diagonal_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 rocblas_ctrtri_batched_fortran = & rocblas_ctrtri_batched(handle, uplo, diag, n, & A, lda, invA, ldinvA, batch_count) end function rocblas_ctrtri_batched_fortran function rocblas_ztrtri_batched_fortran(handle, uplo, diag, n, & A, lda, invA, ldinvA, batch_count) & bind(c, name='rocblas_ztrtri_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrtri_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_diagonal_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 rocblas_ztrtri_batched_fortran = & rocblas_ztrtri_batched(handle, uplo, diag, n, & A, lda, invA, ldinvA, batch_count) end function rocblas_ztrtri_batched_fortran ! trtri_strided_batched function rocblas_strtri_strided_batched_fortran(handle, uplo, diag, n, & A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & bind(c, name='rocblas_strtri_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_strtri_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_diagonal_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 rocblas_strtri_strided_batched_fortran = & rocblas_strtri_strided_batched(handle, uplo, diag, n, & A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) end function rocblas_strtri_strided_batched_fortran function rocblas_dtrtri_strided_batched_fortran(handle, uplo, diag, n, & A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & bind(c, name='rocblas_dtrtri_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dtrtri_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_diagonal_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 rocblas_dtrtri_strided_batched_fortran = & rocblas_dtrtri_strided_batched(handle, uplo, diag, n, & A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) end function rocblas_dtrtri_strided_batched_fortran function rocblas_ctrtri_strided_batched_fortran(handle, uplo, diag, n, & A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & bind(c, name='rocblas_ctrtri_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ctrtri_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_diagonal_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 rocblas_ctrtri_strided_batched_fortran = & rocblas_ctrtri_strided_batched(handle, uplo, diag, n, & A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) end function rocblas_ctrtri_strided_batched_fortran function rocblas_ztrtri_strided_batched_fortran(handle, uplo, diag, n, & A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) & bind(c, name='rocblas_ztrtri_strided_batched_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_ztrtri_strided_batched_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_diagonal_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 rocblas_ztrtri_strided_batched_fortran = & rocblas_ztrtri_strided_batched(handle, uplo, diag, n, & A, lda, stride_A, invA, ldinvA, stride_invA, batch_count) end function rocblas_ztrtri_strided_batched_fortran !-----------------! ! blas Extensions ! !-----------------! ! geam_ex function rocblas_geam_ex_fortran(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & b, b_type, ldb, beta, c, c_type, ldc, d, d_type, ldd, & compute_type, geam_ex_op) & bind(c, name='rocblas_geam_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_geam_ex_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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(rocblas_datatype_f16_r)), value :: a_type integer(c_int), value :: lda type(c_ptr), value :: b integer(kind(rocblas_datatype_f16_r)), value :: b_type integer(c_int), value :: ldb type(c_ptr), value :: beta type(c_ptr), value :: c integer(kind(rocblas_datatype_f16_r)), value :: c_type integer(c_int), value :: ldc type(c_ptr), value :: d integer(kind(rocblas_datatype_f16_r)), value :: d_type integer(c_int), value :: ldd integer(kind(rocblas_datatype_f16_r)), value :: compute_type integer(kind(rocblas_geam_ex_operation_plus_min)), value :: geam_ex_op rocblas_geam_ex_fortran = & rocblas_geam_ex(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & b, b_type, ldb, beta, c, c_type, ldc, d, d_type, ldd, & compute_type, geam_ex_op) return end function rocblas_geam_ex_fortran ! axpy_ex function rocblas_axpy_ex_fortran(handle, n, alpha, alpha_type, x, x_type, incx, & y, y_type, incy, execution_type) & bind(c, name='rocblas_axpy_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_axpy_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: alpha integer(kind(rocblas_datatype_f16_r)), value :: alpha_type type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int), value :: incy integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_axpy_ex_fortran = & rocblas_axpy_ex(handle, n, alpha, alpha_type, x, x_type, incx, y, y_type, incy, execution_type) return end function rocblas_axpy_ex_fortran function rocblas_axpy_batched_ex_fortran(handle, n, alpha, alpha_type, x, x_type, incx, & y, y_type, incy, batch_count, execution_type) & bind(c, name='rocblas_axpy_batched_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_axpy_batched_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: alpha integer(kind(rocblas_datatype_f16_r)), value :: alpha_type type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int), value :: incy integer(c_int), value :: batch_count integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_axpy_batched_ex_fortran = & rocblas_axpy_batched_ex(handle, n, alpha, alpha_type, x, x_type, incx, & y, y_type, incy, batch_count, execution_type) return end function rocblas_axpy_batched_ex_fortran function rocblas_axpy_strided_batched_ex_fortran(handle, n, alpha, alpha_type, x, x_type, incx, stridex, & y, y_type, incy, stridey, batch_count, execution_type) & bind(c, name='rocblas_axpy_strided_batched_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_axpy_strided_batched_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: alpha integer(kind(rocblas_datatype_f16_r)), value :: alpha_type type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx integer(c_int64_t), value :: stridex type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int), value :: incy integer(c_int64_t), value :: stridey integer(c_int), value :: batch_count integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_axpy_strided_batched_ex_fortran = & rocblas_axpy_strided_batched_ex(handle, n, alpha, alpha_type, x, x_type, incx, stridex, & y, y_type, incy, stridey, batch_count, execution_type) return end function rocblas_axpy_strided_batched_ex_fortran ! axpy_ex_64 function rocblas_axpy_ex_64_fortran(handle, n, alpha, alpha_type, x, x_type, incx, & y, y_type, incy, execution_type) & bind(c, name='rocblas_axpy_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_axpy_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: alpha integer(kind(rocblas_datatype_f16_r)), value :: alpha_type type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int64_t), value :: incy integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_axpy_ex_64_fortran = & rocblas_axpy_ex_64(handle, n, alpha, alpha_type, x, x_type, incx, y, y_type, incy, execution_type) return end function rocblas_axpy_ex_64_fortran function rocblas_axpy_batched_ex_64_fortran(handle, n, alpha, alpha_type, x, x_type, incx, & y, y_type, incy, batch_count, execution_type) & bind(c, name='rocblas_axpy_batched_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_axpy_batched_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: alpha integer(kind(rocblas_datatype_f16_r)), value :: alpha_type type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int64_t), value :: incy integer(c_int64_t), value :: batch_count integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_axpy_batched_ex_64_fortran = & rocblas_axpy_batched_ex_64(handle, n, alpha, alpha_type, x, x_type, incx, & y, y_type, incy, batch_count, execution_type) return end function rocblas_axpy_batched_ex_64_fortran function rocblas_axpy_strided_batched_ex_64_fortran(handle, n, alpha, alpha_type, x, x_type, incx, stridex, & y, y_type, incy, stridey, batch_count, execution_type) & bind(c, name='rocblas_axpy_strided_batched_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_axpy_strided_batched_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: alpha integer(kind(rocblas_datatype_f16_r)), value :: alpha_type type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx integer(c_int64_t), value :: stridex type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int64_t), value :: incy integer(c_int64_t), value :: stridey integer(c_int64_t), value :: batch_count integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_axpy_strided_batched_ex_64_fortran = & rocblas_axpy_strided_batched_ex_64(handle, n, alpha, alpha_type, x, x_type, incx, stridex, & y, y_type, incy, stridey, batch_count, execution_type) return end function rocblas_axpy_strided_batched_ex_64_fortran ! dot_ex function rocblas_dot_ex_fortran(handle, n, x, x_type, incx, & y, y_type, incy, result, result_type, execution_type) & bind(c, name='rocblas_dot_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dot_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int), value :: incy type(c_ptr), value :: result integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_dot_ex_fortran = & rocblas_dot_ex(handle, n, x, x_type, incx, & y, y_type, incy, result, result_type, execution_type) return end function rocblas_dot_ex_fortran function rocblas_dot_ex_64_fortran(handle, n, x, x_type, incx, & y, y_type, incy, result, result_type, execution_type) & bind(c, name='rocblas_dot_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dot_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int64_t), value :: incy type(c_ptr), value :: result integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_dot_ex_64_fortran = & rocblas_dot_ex_64(handle, n, x, x_type, incx, & y, y_type, incy, result, result_type, execution_type) return end function rocblas_dot_ex_64_fortran function rocblas_dotc_ex_fortran(handle, n, x, x_type, incx, & y, y_type, incy, result, result_type, execution_type) & bind(c, name='rocblas_dotc_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dotc_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int), value :: incy type(c_ptr), value :: result integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_dotc_ex_fortran = & rocblas_dotc_ex(handle, n, x, x_type, incx, & y, y_type, incy, result, result_type, execution_type) return end function rocblas_dotc_ex_fortran function rocblas_dotc_ex_64_fortran(handle, n, x, x_type, incx, & y, y_type, incy, result, result_type, execution_type) & bind(c, name='rocblas_dotc_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dotc_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int64_t), value :: incy type(c_ptr), value :: result integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_dotc_ex_64_fortran = & rocblas_dotc_ex_64(handle, n, x, x_type, incx, & y, y_type, incy, result, result_type, execution_type) return end function rocblas_dotc_ex_64_fortran function rocblas_dot_batched_ex_fortran(handle, n, x, x_type, incx, & y, y_type, incy, batch_count, result, result_type, execution_type) & bind(c, name='rocblas_dot_batched_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dot_batched_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int), value :: incy integer(c_int), value :: batch_count type(c_ptr), value :: result integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_dot_batched_ex_fortran = & rocblas_dot_batched_ex(handle, n, x, x_type, incx, & y, y_type, incy, batch_count, result, result_type, execution_type) return end function rocblas_dot_batched_ex_fortran function rocblas_dot_batched_ex_64_fortran(handle, n, x, x_type, incx, & y, y_type, incy, batch_count, result, result_type, execution_type) & bind(c, name='rocblas_dot_batched_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dot_batched_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int64_t), value :: incy integer(c_int64_t), value :: batch_count type(c_ptr), value :: result integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_dot_batched_ex_64_fortran = & rocblas_dot_batched_ex_64(handle, n, x, x_type, incx, & y, y_type, incy, batch_count, result, result_type, execution_type) return end function rocblas_dot_batched_ex_64_fortran function rocblas_dotc_batched_ex_fortran(handle, n, x, x_type, incx, & y, y_type, incy, batch_count, result, result_type, execution_type) & bind(c, name='rocblas_dotc_batched_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dotc_batched_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int), value :: incy integer(c_int), value :: batch_count type(c_ptr), value :: result integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_dotc_batched_ex_fortran = & rocblas_dotc_batched_ex(handle, n, x, x_type, incx, & y, y_type, incy, batch_count, result, result_type, execution_type) return end function rocblas_dotc_batched_ex_fortran function rocblas_dotc_batched_ex_64_fortran(handle, n, x, x_type, incx, & y, y_type, incy, batch_count, result, result_type, execution_type) & bind(c, name='rocblas_dotc_batched_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dotc_batched_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int64_t), value :: incy integer(c_int64_t), value :: batch_count type(c_ptr), value :: result integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_dotc_batched_ex_64_fortran = & rocblas_dotc_batched_ex_64(handle, n, x, x_type, incx, & y, y_type, incy, batch_count, result, result_type, execution_type) return end function rocblas_dotc_batched_ex_64_fortran function rocblas_dot_strided_batched_ex_fortran(handle, n, x, x_type, incx, stride_x, & y, y_type, incy, stride_y, batch_count, result, result_type, execution_type) & bind(c, name='rocblas_dot_strided_batched_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dot_strided_batched_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx integer(c_int64_t), value :: stride_x type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int), value :: incy integer(c_int64_t), value :: stride_y integer(c_int), value :: batch_count type(c_ptr), value :: result integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_dot_strided_batched_ex_fortran = & rocblas_dot_strided_batched_ex(handle, n, x, x_type, incx, stride_x, & y, y_type, incy, stride_y, batch_count, result, result_type, execution_type) return end function rocblas_dot_strided_batched_ex_fortran function rocblas_dot_strided_batched_ex_64_fortran(handle, n, x, x_type, incx, stride_x, & y, y_type, incy, stride_y, batch_count, result, result_type, execution_type) & bind(c, name='rocblas_dot_strided_batched_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dot_strided_batched_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx integer(c_int64_t), value :: stride_x type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type 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 integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_dot_strided_batched_ex_64_fortran = & rocblas_dot_strided_batched_ex_64(handle, n, x, x_type, incx, stride_x, & y, y_type, incy, stride_y, batch_count, result, result_type, execution_type) return end function rocblas_dot_strided_batched_ex_64_fortran function rocblas_dotc_strided_batched_ex_fortran(handle, n, x, x_type, incx, stride_x, & y, y_type, incy, stride_y, batch_count, result, result_type, execution_type) & bind(c, name='rocblas_dotc_strided_batched_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dotc_strided_batched_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx integer(c_int64_t), value :: stride_x type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int), value :: incy integer(c_int64_t), value :: stride_y integer(c_int), value :: batch_count type(c_ptr), value :: result integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_dotc_strided_batched_ex_fortran = & rocblas_dotc_strided_batched_ex(handle, n, x, x_type, incx, stride_x, & y, y_type, incy, stride_y, batch_count, result, result_type, execution_type) return end function rocblas_dotc_strided_batched_ex_fortran function rocblas_dotc_strided_batched_ex_64_fortran(handle, n, x, x_type, incx, stride_x, & y, y_type, incy, stride_y, batch_count, result, result_type, execution_type) & bind(c, name='rocblas_dotc_strided_batched_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_dotc_strided_batched_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx integer(c_int64_t), value :: stride_x type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type 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 integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_dotc_strided_batched_ex_64_fortran = & rocblas_dotc_strided_batched_ex_64(handle, n, x, x_type, incx, stride_x, & y, y_type, incy, stride_y, batch_count, result, result_type, execution_type) return end function rocblas_dotc_strided_batched_ex_64_fortran ! nrm2_ex function rocblas_nrm2_ex_fortran(handle, n, x, x_type, incx, result, result_type, execution_type) & bind(c, name='rocblas_nrm2_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_nrm2_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx type(c_ptr), value :: result integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_nrm2_ex_fortran = & rocblas_nrm2_ex(handle, n, x, x_type, incx, result, result_type, execution_type) return end function rocblas_nrm2_ex_fortran function rocblas_nrm2_batched_ex_fortran(handle, n, x, x_type, incx, batch_count, & result, result_type, execution_type) & bind(c, name='rocblas_nrm2_batched_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_nrm2_batched_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx integer(c_int), value :: batch_count type(c_ptr), value :: result integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_nrm2_batched_ex_fortran = & rocblas_nrm2_batched_ex(handle, n, x, x_type, incx, batch_count, & result, result_type, execution_type) return end function rocblas_nrm2_batched_ex_fortran function rocblas_nrm2_strided_batched_ex_fortran(handle, n, x, x_type, incx, stride_x, batch_count, & result, result_type, execution_type) & bind(c, name='rocblas_nrm2_strided_batched_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_nrm2_strided_batched_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx integer(c_int64_t), value :: stride_x integer(c_int), value :: batch_count type(c_ptr), value :: result integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_nrm2_strided_batched_ex_fortran = & rocblas_nrm2_strided_batched_ex(handle, n, x, x_type, incx, stride_x, batch_count, & result, result_type, execution_type) return end function rocblas_nrm2_strided_batched_ex_fortran ! nrm2_ex_64 function rocblas_nrm2_ex_64_fortran(handle, n, x, x_type, incx, result, result_type, execution_type) & bind(c, name='rocblas_nrm2_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_nrm2_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx type(c_ptr), value :: result integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_nrm2_ex_64_fortran = & rocblas_nrm2_ex_64(handle, n, x, x_type, incx, result, result_type, execution_type) return end function rocblas_nrm2_ex_64_fortran function rocblas_nrm2_batched_ex_64_fortran(handle, n, x, x_type, incx, batch_count, & result, result_type, execution_type) & bind(c, name='rocblas_nrm2_batched_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_nrm2_batched_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx integer(c_int64_t), value :: batch_count type(c_ptr), value :: result integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_nrm2_batched_ex_64_fortran = & rocblas_nrm2_batched_ex_64(handle, n, x, x_type, incx, batch_count, & result, result_type, execution_type) return end function rocblas_nrm2_batched_ex_64_fortran function rocblas_nrm2_strided_batched_ex_64_fortran(handle, n, x, x_type, incx, stride_x, batch_count, & result, result_type, execution_type) & bind(c, name='rocblas_nrm2_strided_batched_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_nrm2_strided_batched_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type 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 integer(kind(rocblas_datatype_f16_r)), value :: result_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_nrm2_strided_batched_ex_64_fortran = & rocblas_nrm2_strided_batched_ex_64(handle, n, x, x_type, incx, stride_x, batch_count, & result, result_type, execution_type) return end function rocblas_nrm2_strided_batched_ex_64_fortran ! rot_ex function rocblas_rot_ex_fortran(handle, n, x, x_type, incx, y, y_type, incy, & c, s, cs_type, execution_type) & bind(c, name='rocblas_rot_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_rot_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int), value :: incy type(c_ptr), value :: c type(c_ptr), value :: s integer(kind(rocblas_datatype_f16_r)), value :: cs_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_rot_ex_fortran = & rocblas_rot_ex(handle, n, x, x_type, incx, y, y_type, incy, c, s, cs_type, execution_type) return end function rocblas_rot_ex_fortran function rocblas_rot_batched_ex_fortran(handle, n, x, x_type, incx, y, y_type, incy, & c, s, cs_type, batch_count, execution_type) & bind(c, name='rocblas_rot_batched_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_rot_batched_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int), value :: incy type(c_ptr), value :: c type(c_ptr), value :: s integer(kind(rocblas_datatype_f16_r)), value :: cs_type integer(c_int), value :: batch_count integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_rot_batched_ex_fortran = & rocblas_rot_batched_ex(handle, n, x, x_type, incx, y, y_type, incy, c, s, cs_type, batch_count, execution_type) return end function rocblas_rot_batched_ex_fortran function rocblas_rot_strided_batched_ex_fortran(handle, n, x, x_type, incx, stride_x, y, y_type, incy, stride_y, & c, s, cs_type, batch_count, execution_type) & bind(c, name='rocblas_rot_strided_batched_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_rot_strided_batched_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx integer(c_int64_t), value :: stride_x type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int), value :: incy integer(c_int64_t), value :: stride_y type(c_ptr), value :: c type(c_ptr), value :: s integer(kind(rocblas_datatype_f16_r)), value :: cs_type integer(c_int), value :: batch_count integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_rot_strided_batched_ex_fortran = & rocblas_rot_strided_batched_ex(handle, n, x, x_type, incx, stride_x, y, y_type, incy, stride_y, & c, s, cs_type, batch_count, execution_type) return end function rocblas_rot_strided_batched_ex_fortran ! rot_ex_64 function rocblas_rot_ex_64_fortran(handle, n, x, x_type, incx, y, y_type, incy, & c, s, cs_type, execution_type) & bind(c, name='rocblas_rot_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_rot_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int64_t), value :: incy type(c_ptr), value :: c type(c_ptr), value :: s integer(kind(rocblas_datatype_f16_r)), value :: cs_type integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_rot_ex_64_fortran = & rocblas_rot_ex_64(handle, n, x, x_type, incx, y, y_type, incy, c, s, cs_type, execution_type) return end function rocblas_rot_ex_64_fortran function rocblas_rot_batched_ex_64_fortran(handle, n, x, x_type, incx, y, y_type, incy, & c, s, cs_type, batch_count, execution_type) & bind(c, name='rocblas_rot_batched_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_rot_batched_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int64_t), value :: incy type(c_ptr), value :: c type(c_ptr), value :: s integer(kind(rocblas_datatype_f16_r)), value :: cs_type integer(c_int64_t), value :: batch_count integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_rot_batched_ex_64_fortran = & rocblas_rot_batched_ex_64(handle, n, x, x_type, incx, y, y_type, incy, c, s, cs_type, batch_count, execution_type) return end function rocblas_rot_batched_ex_64_fortran function rocblas_rot_strided_batched_ex_64_fortran(handle, n, x, x_type, incx, stride_x, y, y_type, incy, stride_y, & c, s, cs_type, batch_count, execution_type) & bind(c, name='rocblas_rot_strided_batched_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_rot_strided_batched_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx integer(c_int64_t), value :: stride_x type(c_ptr), value :: y integer(kind(rocblas_datatype_f16_r)), value :: y_type integer(c_int64_t), value :: incy integer(c_int64_t), value :: stride_y type(c_ptr), value :: c type(c_ptr), value :: s integer(kind(rocblas_datatype_f16_r)), value :: cs_type integer(c_int64_t), value :: batch_count integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_rot_strided_batched_ex_64_fortran = & rocblas_rot_strided_batched_ex_64(handle, n, x, x_type, incx, stride_x, y, y_type, incy, stride_y, & c, s, cs_type, batch_count, execution_type) return end function rocblas_rot_strided_batched_ex_64_fortran ! scal_ex function rocblas_scal_ex_fortran(handle, n, alpha, alpha_type, x, x_type, incx, execution_type) & bind(c, name='rocblas_scal_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scal_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: alpha integer(kind(rocblas_datatype_f16_r)), value :: alpha_type type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_scal_ex_fortran = & rocblas_scal_ex(handle, n, alpha, alpha_type, x, x_type, incx, execution_type) return end function rocblas_scal_ex_fortran function rocblas_scal_ex_64_fortran(handle, n, alpha, alpha_type, x, x_type, incx, execution_type) & bind(c, name='rocblas_scal_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scal_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: alpha integer(kind(rocblas_datatype_f16_r)), value :: alpha_type type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_scal_ex_64_fortran = & rocblas_scal_ex_64(handle, n, alpha, alpha_type, x, x_type, incx, execution_type) return end function rocblas_scal_ex_64_fortran function rocblas_scal_batched_ex_fortran(handle, n, alpha, alpha_type, x, x_type, incx, & batch_count, execution_type) & bind(c, name='rocblas_scal_batched_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scal_batched_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: alpha integer(kind(rocblas_datatype_f16_r)), value :: alpha_type type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx integer(c_int), value :: batch_count integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_scal_batched_ex_fortran = & rocblas_scal_batched_ex(handle, n, alpha, alpha_type, x, x_type, incx, batch_count, execution_type) return end function rocblas_scal_batched_ex_fortran function rocblas_scal_batched_ex_64_fortran(handle, n, alpha, alpha_type, x, x_type, incx, & batch_count, execution_type) & bind(c, name='rocblas_scal_batched_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scal_batched_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: alpha integer(kind(rocblas_datatype_f16_r)), value :: alpha_type type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx integer(c_int64_t), value :: batch_count integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_scal_batched_ex_64_fortran = & rocblas_scal_batched_ex_64(handle, n, alpha, alpha_type, x, x_type, incx, batch_count, execution_type) return end function rocblas_scal_batched_ex_64_fortran function rocblas_scal_strided_batched_ex_fortran(handle, n, alpha, alpha_type, x, x_type, incx, stridex, & batch_count, execution_type) & bind(c, name='rocblas_scal_strided_batched_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scal_strided_batched_ex_fortran type(c_ptr), value :: handle integer(c_int), value :: n type(c_ptr), value :: alpha integer(kind(rocblas_datatype_f16_r)), value :: alpha_type type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int), value :: incx integer(c_int64_t), value :: stridex integer(c_int), value :: batch_count integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_scal_strided_batched_ex_fortran = & rocblas_scal_strided_batched_ex(handle, n, alpha, alpha_type, x, x_type, incx, stridex, & batch_count, execution_type) return end function rocblas_scal_strided_batched_ex_fortran function rocblas_scal_strided_batched_ex_64_fortran(handle, n, alpha, alpha_type, x, x_type, incx, stridex, & batch_count, execution_type) & bind(c, name='rocblas_scal_strided_batched_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_scal_strided_batched_ex_64_fortran type(c_ptr), value :: handle integer(c_int64_t), value :: n type(c_ptr), value :: alpha integer(kind(rocblas_datatype_f16_r)), value :: alpha_type type(c_ptr), value :: x integer(kind(rocblas_datatype_f16_r)), value :: x_type integer(c_int64_t), value :: incx integer(c_int64_t), value :: stridex integer(c_int64_t), value :: batch_count integer(kind(rocblas_datatype_f16_r)), value :: execution_type rocblas_scal_strided_batched_ex_64_fortran = & rocblas_scal_strided_batched_ex_64(handle, n, alpha, alpha_type, x, x_type, incx, stridex, & batch_count, execution_type) return end function rocblas_scal_strided_batched_ex_64_fortran ! trsm_ex function rocblas_trsm_ex_fortran(handle, side, uplo, transA, diag, m, n, alpha, A, lda, & B, ldb, invA, invA_size, compute_type) & bind(c, name='rocblas_trsm_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_trsm_ex_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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(rocblas_datatype_f16_r)), value :: compute_type rocblas_trsm_ex_fortran = & rocblas_trsm_ex(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, invA, invA_size, compute_type) end function rocblas_trsm_ex_fortran function rocblas_trsm_batched_ex_fortran(handle, side, uplo, transA, diag, m, n, alpha, A, lda, & B, ldb, batch_count, invA, invA_size, compute_type) & bind(c, name='rocblas_trsm_batched_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_trsm_batched_ex_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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(rocblas_datatype_f16_r)), value :: compute_type rocblas_trsm_batched_ex_fortran = & rocblas_trsm_batched_ex(handle, side, uplo, transA, diag, m, n, alpha, & A, lda, B, ldb, batch_count, invA, invA_size, compute_type) end function rocblas_trsm_batched_ex_fortran function rocblas_trsm_strided_batched_ex_fortran(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='rocblas_trsm_strided_batched_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_trsm_strided_batched_ex_fortran type(c_ptr), value :: handle integer(kind(rocblas_side_left)), value :: side integer(kind(rocblas_fill_upper)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_diagonal_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(rocblas_datatype_f16_r)), value :: compute_type rocblas_trsm_strided_batched_ex_fortran = & rocblas_trsm_strided_batched_ex(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) end function rocblas_trsm_strided_batched_ex_fortran ! gemm_ex function rocblas_gemm_ex_fortran(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & b, b_type, ldb, beta, c, c_type, ldc, d, d_type, ldd, & compute_type, algo, solution_index, flags) & bind(c, name='rocblas_gemm_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_gemm_ex_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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(rocblas_datatype_f16_r)), value :: a_type integer(c_int), value :: lda type(c_ptr), value :: b integer(kind(rocblas_datatype_f16_r)), value :: b_type integer(c_int), value :: ldb type(c_ptr), value :: beta type(c_ptr), value :: c integer(kind(rocblas_datatype_f16_r)), value :: c_type integer(c_int), value :: ldc type(c_ptr), value :: d integer(kind(rocblas_datatype_f16_r)), value :: d_type integer(c_int), value :: ldd integer(kind(rocblas_datatype_f16_r)), value :: compute_type integer(kind(rocblas_gemm_algo_standard)), value :: algo integer(c_int32_t), value :: solution_index ! No unsigned types in fortran. If larger values are needed ! we will need a workaround. integer(c_int32_t), value :: flags rocblas_gemm_ex_fortran = & rocblas_gemm_ex(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & b, b_type, ldb, beta, c, c_type, ldc, d, d_type, ldd, & compute_type, algo, solution_index, flags) end function rocblas_gemm_ex_fortran ! gemm_ex_64 function rocblas_gemm_ex_64_fortran(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & b, b_type, ldb, beta, c, c_type, ldc, d, d_type, ldd, & compute_type, algo, solution_index, flags) & bind(c, name='rocblas_gemm_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_gemm_ex_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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(rocblas_datatype_f16_r)), value :: a_type integer(c_int64_t), value :: lda type(c_ptr), value :: b integer(kind(rocblas_datatype_f16_r)), value :: b_type integer(c_int64_t), value :: ldb type(c_ptr), value :: beta type(c_ptr), value :: c integer(kind(rocblas_datatype_f16_r)), value :: c_type integer(c_int64_t), value :: ldc type(c_ptr), value :: d integer(kind(rocblas_datatype_f16_r)), value :: d_type integer(c_int64_t), value :: ldd integer(kind(rocblas_datatype_f16_r)), value :: compute_type integer(kind(rocblas_gemm_algo_standard)), value :: algo integer(c_int32_t), value :: solution_index ! No unsigned types in fortran. If larger values are needed ! we will need a workaround. integer(c_int32_t), value :: flags rocblas_gemm_ex_64_fortran = & rocblas_gemm_ex_64(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & b, b_type, ldb, beta, c, c_type, ldc, d, d_type, ldd, & compute_type, algo, solution_index, flags) end function rocblas_gemm_ex_64_fortran function rocblas_gemm_batched_ex_fortran(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & b, b_type, ldb, beta, c, c_type, ldc, d, d_type, ldd, & batch_count, compute_type, algo, solution_index, flags) & bind(c, name='rocblas_gemm_batched_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_gemm_batched_ex_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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(rocblas_datatype_f16_r)), value :: a_type integer(c_int), value :: lda type(c_ptr), value :: b integer(kind(rocblas_datatype_f16_r)), value :: b_type integer(c_int), value :: ldb type(c_ptr), value :: beta type(c_ptr), value :: c integer(kind(rocblas_datatype_f16_r)), value :: c_type integer(c_int), value :: ldc type(c_ptr), value :: d integer(kind(rocblas_datatype_f16_r)), value :: d_type integer(c_int), value :: ldd integer(c_int), value :: batch_count integer(kind(rocblas_datatype_f16_r)), value :: compute_type integer(kind(rocblas_gemm_algo_standard)), value :: algo integer(c_int32_t), value :: solution_index ! No unsigned types in fortran. If larger values are needed ! we will need a workaround. integer(c_int32_t), value :: flags rocblas_gemm_batched_ex_fortran = & rocblas_gemm_batched_ex(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & b, b_type, ldb, beta, c, c_type, ldc, d, d_type, ldd, & batch_count, compute_type, algo, solution_index, flags) end function rocblas_gemm_batched_ex_fortran function rocblas_gemm_batched_ex_64_fortran(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & b, b_type, ldb, beta, c, c_type, ldc, d, d_type, ldd, & batch_count, compute_type, algo, solution_index, flags) & bind(c, name='rocblas_gemm_batched_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_gemm_batched_ex_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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(rocblas_datatype_f16_r)), value :: a_type integer(c_int64_t), value :: lda type(c_ptr), value :: b integer(kind(rocblas_datatype_f16_r)), value :: b_type integer(c_int64_t), value :: ldb type(c_ptr), value :: beta type(c_ptr), value :: c integer(kind(rocblas_datatype_f16_r)), value :: c_type integer(c_int64_t), value :: ldc type(c_ptr), value :: d integer(kind(rocblas_datatype_f16_r)), value :: d_type integer(c_int64_t), value :: ldd integer(c_int64_t), value :: batch_count integer(kind(rocblas_datatype_f16_r)), value :: compute_type integer(kind(rocblas_gemm_algo_standard)), value :: algo integer(c_int32_t), value :: solution_index ! No unsigned types in fortran. If larger values are needed ! we will need a workaround. integer(c_int32_t), value :: flags rocblas_gemm_batched_ex_64_fortran = & rocblas_gemm_batched_ex_64(handle, transA, transB, m, n, k, alpha, a, a_type, lda, & b, b_type, ldb, beta, c, c_type, ldc, d, d_type, ldd, & batch_count, compute_type, algo, solution_index, flags) end function rocblas_gemm_batched_ex_64_fortran function rocblas_gemm_strided_batched_ex_fortran(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, d, d_type, ldd, & stride_d, batch_count, compute_type, algo, solution_index, flags) & bind(c, name='rocblas_gemm_strided_batched_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_gemm_strided_batched_ex_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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(rocblas_datatype_f16_r)), value :: a_type integer(c_int), value :: lda integer(c_int64_t), value :: stride_a type(c_ptr), value :: b integer(kind(rocblas_datatype_f16_r)), 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(rocblas_datatype_f16_r)), value :: c_type integer(c_int), value :: ldc integer(c_int64_t), value :: stride_c type(c_ptr), value :: d integer(kind(rocblas_datatype_f16_r)), value :: d_type integer(c_int), value :: ldd integer(c_int64_t), value :: stride_d integer(c_int), value :: batch_count integer(kind(rocblas_datatype_f16_r)), value :: compute_type integer(kind(rocblas_gemm_algo_standard)), value :: algo integer(c_int32_t), value :: solution_index ! No unsigned types in fortran. If larger values are needed ! we will need a workaround. integer(c_int32_t), value :: flags rocblas_gemm_strided_batched_ex_fortran = & rocblas_gemm_strided_batched_ex(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, d, d_type, ldd, & stride_d, batch_count, compute_type, algo, solution_index, flags) end function rocblas_gemm_strided_batched_ex_fortran function rocblas_gemm_strided_batched_ex_64_fortran(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, d, d_type, ldd, & stride_d, batch_count, compute_type, algo, solution_index, flags) & bind(c, name='rocblas_gemm_strided_batched_ex_64_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_gemm_strided_batched_ex_64_fortran type(c_ptr), value :: handle integer(kind(rocblas_operation_none)), value :: transA integer(kind(rocblas_operation_none)), 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(rocblas_datatype_f16_r)), value :: a_type integer(c_int64_t), value :: lda integer(c_int64_t), value :: stride_a type(c_ptr), value :: b integer(kind(rocblas_datatype_f16_r)), 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(rocblas_datatype_f16_r)), value :: c_type integer(c_int64_t), value :: ldc integer(c_int64_t), value :: stride_c type(c_ptr), value :: d integer(kind(rocblas_datatype_f16_r)), value :: d_type integer(c_int64_t), value :: ldd integer(c_int64_t), value :: stride_d integer(c_int64_t), value :: batch_count integer(kind(rocblas_datatype_f16_r)), value :: compute_type integer(kind(rocblas_gemm_algo_standard)), value :: algo integer(c_int32_t), value :: solution_index ! No unsigned types in fortran. If larger values are needed ! we will need a workaround. integer(c_int32_t), value :: flags rocblas_gemm_strided_batched_ex_64_fortran = & rocblas_gemm_strided_batched_ex_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, d, d_type, ldd, & stride_d, batch_count, compute_type, algo, solution_index, flags) end function rocblas_gemm_strided_batched_ex_64_fortran ! syrk_ex function rocblas_syrk_ex_fortran(handle, uplo, transA, n, k, alpha, a, a_type, lda, & beta, c, c_type, ldc, & compute_type) & bind(c, name='rocblas_syrk_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_syrk_ex_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(c_int), value :: n integer(c_int), value :: k type(c_ptr), value :: alpha type(c_ptr), value :: a integer(kind(rocblas_datatype_f16_r)), value :: a_type integer(c_int), value :: lda type(c_ptr), value :: beta type(c_ptr), value :: c integer(kind(rocblas_datatype_f16_r)), value :: c_type integer(c_int), value :: ldc integer(kind(rocblas_datatype_f16_r)), value :: compute_type rocblas_syrk_ex_fortran = & rocblas_syrk_ex(handle, uplo, transA, n, k, alpha, a, a_type, lda, & beta, c, c_type, ldc, & compute_type) end function rocblas_syrk_ex_fortran ! herk_ex function rocblas_herk_ex_fortran(handle, uplo, transA, n, k, alpha, a, a_type, lda, & beta, c, c_type, ldc, & compute_type) & bind(c, name='rocblas_herk_ex_fortran') use iso_c_binding use rocblas_enums implicit none integer(kind(rocblas_status_success)) :: rocblas_herk_ex_fortran type(c_ptr), value :: handle integer(kind(rocblas_fill_full)), value :: uplo integer(kind(rocblas_operation_none)), value :: transA integer(c_int), value :: n integer(c_int), value :: k type(c_ptr), value :: alpha type(c_ptr), value :: a integer(kind(rocblas_datatype_f16_r)), value :: a_type integer(c_int), value :: lda type(c_ptr), value :: beta type(c_ptr), value :: c integer(kind(rocblas_datatype_f16_r)), value :: c_type integer(c_int), value :: ldc integer(kind(rocblas_datatype_f16_r)), value :: compute_type rocblas_herk_ex_fortran = & rocblas_herk_ex(handle, uplo, transA, n, k, alpha, a, a_type, lda, & beta, c, c_type, ldc, & compute_type) end function rocblas_herk_ex_fortran end module rocblas_interface