From c1943910098c747687b654c994eef7af71796542 Mon Sep 17 00:00:00 2001 From: Alexis Montoison Date: Wed, 7 Oct 2026 08:45:32 -0600 Subject: [PATCH] More typed forms, and the fixes a per-library audit found Regenerated with rocm-fortran 3b65cdb. Typed forms for scalar pointers that still needed c_loc(): the BLAS dot/nrm2/asum/iamax/iamin results and rotg/rotmg scalars (rocBLAS and hipBLAS) and hipBLAS rot's c/s; the sparse doti/dotci results, nnz counts, pivot positions and csr2ell_width's ell_width; hipBLAS getrs/geqrf/gels info (host); hipChooseDevice. The array overloads take the BLAS results and hipBLAS info typed and gain _rank_N_devptr twins that keep the type(c_ptr), so existing c_loc() calls still compile. Fixes: - rocSOLVER larf/larfg alpha/tau are device scalars and lose their _typed form, which would have handed the kernel a host address; - hipsolverRfBatchZeroPivot position (an array) and rocblas_set_solution_fitness_query fitness (a retained pointer) lose theirs too; - csrcolor's coloring/reordering are arrays again in the array overloads; - rocSPARSE's nullable `error` arguments are optional; - hipMalloc(..., source=) and its siblings report an allocation failure instead of the copy's status; - the compat hipsolver*gels/gesvd_bufferSize are no longer bound to cusolverDn symbols with different arguments under USE_CUDA_NAMES; - hipChooseDevice is a generic over hipChooseDeviceR0600's specifics instead of a second interface on the same binding label. Three tests take a result through the new typed forms: rocBLAS ddot, hipBLAS snrm2 and rocSPARSE ddoti (host pointer mode). Also regenerates the supported-API tables (only the generated diff: the variants column gains typed and devptr), and updates the changelog with the Scalar arguments section and tests of #583, the typed forms above and the fixes. --- CHANGELOG.md | 50 +- docs/doxygen/input/supported_api_hip.md | 10 +- docs/doxygen/input/supported_api_hipblas.md | 208 +- docs/doxygen/input/supported_api_hipsolver.md | 2 +- docs/doxygen/input/supported_api_hipsparse.md | 32 +- docs/doxygen/input/supported_api_rocblas.md | 138 +- docs/doxygen/input/supported_api_rocsolver.md | 16 +- docs/doxygen/input/supported_api_rocsparse.md | 50 +- lib/hipfort/hipfort.F90 | 92 +- lib/hipfort/hipfort_hipblas.F90 | 5634 +++++++++++++++-- lib/hipfort/hipfort_hipmalloc.F90 | 672 +- lib/hipfort/hipfort_hipsolver.F90 | 85 +- lib/hipfort/hipfort_hipsparse.F90 | 714 ++- lib/hipfort/hipfort_rocblas.F90 | 3166 +++++++-- lib/hipfort/hipfort_rocsolver.F90 | 736 ++- lib/hipfort/hipfort_rocsparse.F90 | 988 ++- test/CMakeLists.txt | 3 + test/f2003/hip/test_hip.F03 | 1 - test/f2003/hipblas/snrm2_typed.f03 | 77 + test/f2003/hipsolver/test_hipsolver.F03 | 4 +- test/f2003/rocblas/ddot_typed.f03 | 99 + test/f2003/rocsparse/ddoti_typed.f03 | 109 + 22 files changed, 11092 insertions(+), 1794 deletions(-) create mode 100644 test/f2003/hipblas/snrm2_typed.f03 create mode 100644 test/f2003/rocblas/ddot_typed.f03 create mode 100644 test/f2003/rocsparse/ddoti_typed.f03 diff --git a/CHANGELOG.md b/CHANGELOG.md index 7bf3f03d9..090ebac8f 100644 --- a/CHANGELOG.md +++ b/CHANGELOG.md @@ -23,8 +23,10 @@ the code only. * Tutorial pages of complete, runnable Fortran programs for rocBLAS, hipBLAS, rocRAND and hipRAND, and a *Fortran interface variants* how-to page covering - the `hipMalloc`/`hipMemcpy` array interfaces and the experimental Fortran 2018 - assumed-rank mode. + the `hipMalloc`/`hipMemcpy` array interfaces, the experimental Fortran 2018 + assumed-rank mode, and the two forms of a scalar passed by pointer: when to + pass the variable and when its address, the device pointer mode, and + hipSOLVER's `devInfo`. * Test coverage for: * the BLAS `nrm2`, `asum`, `iamax`/`iamin`, `ger`, `syrk`/`herk`, `symm`/`hemm`, `trmm`, `geam` and `gemm_ex` routines in rocBLAS and hipBLAS; @@ -34,7 +36,11 @@ * the version, pointer-mode, handle-state and descriptor getters of nine libraries; * the rocRAND and hipRAND `mrg32k3a`, `mtgp32` and `sobol32` generators and - the Poisson and log-normal distributions. + the Poisson and log-normal distributions; + * the `_typed` forms of scalar arguments, through rocBLAS, hipBLAS, rocSPARSE + and hipSPARSE tests that pass `alpha`, `beta` or a result as Fortran + variables, and hipSOLVER `getrf` tests that pass a device `devInfo` to the + array overloads. ### Changed @@ -51,21 +57,24 @@ ``` This covers: - * the scalars a library reads per its handle's pointer mode: `alpha` and - `beta` throughout rocBLAS, hipBLAS, rocSPARSE and hipSPARSE, - `nnzTotalDevHostPtr`, the rotation `c`/`s`, the coloring outputs. The - `type(c_ptr)` form makes `rocblas_pointer_mode_device` and its equivalents - usable from Fortran; + * the scalars a library reads or writes per its handle's pointer mode: + `alpha` and `beta` throughout rocBLAS, hipBLAS, rocSPARSE and hipSPARSE, + the `dot`, `nrm2`, `asum` and `iamax`/`iamin` results and the `rot`, `rotg` + and `rotmg` scalars of rocBLAS and hipBLAS, the sparse `doti`/`dotci` + results, `nnzTotalDevHostPtr`, the nnz counts of the `*_nnz` routines and + the pivot positions. The `type(c_ptr)` form makes + `rocblas_pointer_mode_device` and its equivalents usable from Fortran; * the host outputs: the HIP runtime queries (`hipStreamGetId`, `hipStreamGetCaptureInfo`, `hipFuncGetAttribute`, `hipDeviceGetP2PAttribute`, the `hipOccupancy*` and `hipGraph*` counts, ...), the version, pointer-mode, math-mode and handle-state getters of the BLAS, sparse and solver libraries, the hipSPARSE and rocSPARSE descriptor - getters, `hipblasGetProperty`, `hipfftGetProperty`, the hipSOLVER buffer - sizes, `*gels` `niters` and `*{sy,he}evdx`/`*{sy,he}gvdx` `nev`, and - `rocfft_cache_serialize`. An output the C API lets the caller skip is - `optional` in the `_typed` form; pass `c_null_ptr` to the `type(c_ptr)` - one. + getters, `hipblasGetProperty`, `hipfftGetProperty`, the hipBLAS + `getrs`/`geqrf`/`gels` `info`, the hipSOLVER buffer sizes, `*gels` + `niters` and `*{sy,he}evdx`/`*{sy,he}gvdx` `nev`, the `csrcolor` color + count, `hipChooseDevice`, and `rocfft_cache_serialize`. An output the C + API lets the caller skip is `optional` in the `_typed` form; pass + `c_null_ptr` to the `type(c_ptr)` one. Scalars that only ever live on the device, such as rocSOLVER `info` and hipSOLVER `devInfo`, keep the `type(c_ptr)` form only. @@ -73,6 +82,10 @@ The 28 rocSPARSE and hipSPARSE routines with both kinds (`alpha`/`beta` beside a buffer size) also get `_devptr`, for the device pointer mode: the pointer-mode scalars as `type(c_ptr)`, the host outputs typed. + + The array overloads take the BLAS results and the hipBLAS `info` as + variables too; their `_rank_N_devptr` variants keep the + `type(c_ptr)` these arguments have always taken there. * hipSOLVER `devInfo` is device memory. The `bind(C)` specific takes it as `type(c_ptr), value`, with no typed form: a host integer next to `type(c_ptr)` buffers would be written by the GPU. The array overloads take it as an @@ -175,6 +188,17 @@ SDDMM test is dropped, because rocSPARSE does not support batched SDDMM. * Fixed factual errors across the tutorial pages, and added the missing tutorials to the documentation landing page. +* The `source`/`dsource` forms of `hipMalloc`, `hipMallocManaged` and + `hipHostMalloc` copied even when the allocation had failed, and returned the + copy's status, so the allocation failure went unreported. They now copy only + after a successful allocation. +* The array overloads of `rocsparse_?csrcolor` and `hipsparse?csrcolor` took + `coloring` and `reordering` as scalars, although both are arrays of size `m`. +* rocSPARSE's nullable `error` arguments (`spgeam`, `spmv_set_input`, + `v2_spmv`, ...) are `optional`, so NULL can be passed by omitting them. +* Under `USE_CUDA_NAMES`, the compatibility-API `hipsolver?gesvd_bufferSize` + and `hipsolver??gels_bufferSize` were bound to the `cusolverDn` routines of + the same name, whose arguments differ. They are now ROCm-only. ## hipfort 0.9.0 for ROCm 10.0.0 diff --git a/docs/doxygen/input/supported_api_hip.md b/docs/doxygen/input/supported_api_hip.md index 56f6e5f3b..a52e6c78c 100644 --- a/docs/doxygen/input/supported_api_hip.md +++ b/docs/doxygen/input/supported_api_hip.md @@ -49,7 +49,7 @@ 45 | [hipDeviceSetSharedMemConfig](interfacehipfort_1_1hipdevicesetsharedmemconfig.html "Interface documentation") | C binding 46 | [hipSetDeviceFlags](interfacehipfort_1_1hipsetdeviceflags.html "Interface documentation") | C binding 47 | [hipInitDevice](interfacehipfort_1_1hipinitdevice.html "Interface documentation") | C binding -48 | [hipChooseDeviceR0600](interfacehipfort_1_1hipchoosedevicer0600.html "Interface documentation") | C binding +48 | [hipChooseDeviceR0600](interfacehipfort_1_1hipchoosedevicer0600.html "Interface documentation") | C binding, typed 49 | [hipExtGetLinkTypeAndHopCount](interfacehipfort_1_1hipextgetlinktypeandhopcount.html "Interface documentation") | C binding, typed 50 | [hipIpcGetMemHandle](interfacehipfort_1_1hipipcgetmemhandle.html "Interface documentation") | C binding 51 | [hipIpcOpenMemHandle](interfacehipfort_1_1hipipcopenmemhandle.html "Interface documentation") | C binding @@ -217,8 +217,8 @@ 213 | [hipDrvMemcpy3D](interfacehipfort_1_1hipdrvmemcpy3d.html "Interface documentation") | C binding 214 | [hipDrvMemcpy3DAsync](interfacehipfort_1_1hipdrvmemcpy3dasync.html "Interface documentation") | C binding 215 | [hipMemGetAddressRange](interfacehipfort_1_1hipmemgetaddressrange.html "Interface documentation") | C binding, typed -216 | [hipMemcpyBatchAsync](interfacehipfort_1_1hipmemcpybatchasync.html "Interface documentation") | C binding -217 | [hipMemcpy3DBatchAsync](interfacehipfort_1_1hipmemcpy3dbatchasync.html "Interface documentation") | C binding +216 | [hipMemcpyBatchAsync](interfacehipfort_1_1hipmemcpybatchasync.html "Interface documentation") | C binding, typed +217 | [hipMemcpy3DBatchAsync](interfacehipfort_1_1hipmemcpy3dbatchasync.html "Interface documentation") | C binding, typed 218 | [hipMemcpy3DPeer](interfacehipfort_1_1hipmemcpy3dpeer.html "Interface documentation") | C binding 219 | [hipMemcpy3DPeerAsync](interfacehipfort_1_1hipmemcpy3dpeerasync.html "Interface documentation") | C binding 220 | [hipMipmappedArrayGetMemoryRequirements](interfacehipfort_1_1hipmipmappedarraygetmemoryrequirements.html "Interface documentation") | C binding @@ -228,7 +228,7 @@ 224 | [hipMemcpyPeer](interfacehipfort_1_1hipmemcpypeer.html "Interface documentation") | C binding 225 | [hipMemcpyPeerAsync](interfacehipfort_1_1hipmemcpypeerasync.html "Interface documentation") | C binding 226 | [hipDeviceGetDevResource](interfacehipfort_1_1hipdevicegetdevresource.html "Interface documentation") | C binding -227 | [hipDevSmResourceSplitByCount](interfacehipfort_1_1hipdevsmresourcesplitbycount.html "Interface documentation") | C binding +227 | [hipDevSmResourceSplitByCount](interfacehipfort_1_1hipdevsmresourcesplitbycount.html "Interface documentation") | C binding, typed 228 | [hipDevSmResourceSplit](interfacehipfort_1_1hipdevsmresourcesplit.html "Interface documentation") | C binding 229 | [hipDevResourceGenerateDesc](interfacehipfort_1_1hipdevresourcegeneratedesc.html "Interface documentation") | C binding 230 | [hipGreenCtxCreate](interfacehipfort_1_1hipgreenctxcreate.html "Interface documentation") | C binding @@ -538,4 +538,4 @@ 534 | [hipLaunchHostFunc_spt](interfacehipfort_1_1hiplaunchhostfunc__spt.html "Interface documentation") | C binding 535 | [hipGetDriverEntryPoint_spt](interfacehipfort_1_1hipgetdriverentrypoint__spt.html "Interface documentation") | C binding 536 | [hipGetProcAddress_spt](interfacehipfort_1_1hipgetprocaddress__spt.html "Interface documentation") | C binding -537 | [hipChooseDevice](interfacehipfort_1_1hipchoosedevice.html "Interface documentation") | C binding +537 | [hipChooseDevice](interfacehipfort_1_1hipchoosedevice.html "Interface documentation") | C binding, typed diff --git a/docs/doxygen/input/supported_api_hipblas.md b/docs/doxygen/input/supported_api_hipblas.md index 79e62814e..120089273 100644 --- a/docs/doxygen/input/supported_api_hipblas.md +++ b/docs/doxygen/input/supported_api_hipblas.md @@ -19,14 +19,14 @@ 15 | [hipblasGetBatchAlphaStride](interfacehipfort__hipblas_1_1hipblasgetbatchalphastride.html "Interface documentation") | C binding, typed 16 | [hipblasSetBatchBetaStride](interfacehipfort__hipblas_1_1hipblassetbatchbetastride.html "Interface documentation") | C binding 17 | [hipblasGetBatchBetaStride](interfacehipfort__hipblas_1_1hipblasgetbatchbetastride.html "Interface documentation") | C binding, typed -18 | [hipblasIsamax](interfacehipfort__hipblas_1_1hipblasisamax.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -19 | [hipblasIdamax](interfacehipfort__hipblas_1_1hipblasidamax.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -20 | [hipblasIcamax](interfacehipfort__hipblas_1_1hipblasicamax.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -21 | [hipblasIzamax](interfacehipfort__hipblas_1_1hipblasizamax.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -22 | [hipblasIsamax_64](interfacehipfort__hipblas_1_1hipblasisamax__64.html "Interface documentation") | C binding -23 | [hipblasIdamax_64](interfacehipfort__hipblas_1_1hipblasidamax__64.html "Interface documentation") | C binding -24 | [hipblasIcamax_64](interfacehipfort__hipblas_1_1hipblasicamax__64.html "Interface documentation") | C binding -25 | [hipblasIzamax_64](interfacehipfort__hipblas_1_1hipblasizamax__64.html "Interface documentation") | C binding +18 | [hipblasIsamax](interfacehipfort__hipblas_1_1hipblasisamax.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +19 | [hipblasIdamax](interfacehipfort__hipblas_1_1hipblasidamax.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +20 | [hipblasIcamax](interfacehipfort__hipblas_1_1hipblasicamax.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +21 | [hipblasIzamax](interfacehipfort__hipblas_1_1hipblasizamax.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +22 | [hipblasIsamax_64](interfacehipfort__hipblas_1_1hipblasisamax__64.html "Interface documentation") | C binding, typed +23 | [hipblasIdamax_64](interfacehipfort__hipblas_1_1hipblasidamax__64.html "Interface documentation") | C binding, typed +24 | [hipblasIcamax_64](interfacehipfort__hipblas_1_1hipblasicamax__64.html "Interface documentation") | C binding, typed +25 | [hipblasIzamax_64](interfacehipfort__hipblas_1_1hipblasizamax__64.html "Interface documentation") | C binding, typed 26 | [hipblasIsamaxBatched](interfacehipfort__hipblas_1_1hipblasisamaxbatched.html "Interface documentation") | C binding 27 | [hipblasIdamaxBatched](interfacehipfort__hipblas_1_1hipblasidamaxbatched.html "Interface documentation") | C binding 28 | [hipblasIcamaxBatched](interfacehipfort__hipblas_1_1hipblasicamaxbatched.html "Interface documentation") | C binding @@ -43,14 +43,14 @@ 39 | [hipblasIdamaxStridedBatched_64](interfacehipfort__hipblas_1_1hipblasidamaxstridedbatched__64.html "Interface documentation") | C binding 40 | [hipblasIcamaxStridedBatched_64](interfacehipfort__hipblas_1_1hipblasicamaxstridedbatched__64.html "Interface documentation") | C binding 41 | [hipblasIzamaxStridedBatched_64](interfacehipfort__hipblas_1_1hipblasizamaxstridedbatched__64.html "Interface documentation") | C binding -42 | [hipblasIsamin](interfacehipfort__hipblas_1_1hipblasisamin.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -43 | [hipblasIdamin](interfacehipfort__hipblas_1_1hipblasidamin.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -44 | [hipblasIcamin](interfacehipfort__hipblas_1_1hipblasicamin.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -45 | [hipblasIzamin](interfacehipfort__hipblas_1_1hipblasizamin.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -46 | [hipblasIsamin_64](interfacehipfort__hipblas_1_1hipblasisamin__64.html "Interface documentation") | C binding -47 | [hipblasIdamin_64](interfacehipfort__hipblas_1_1hipblasidamin__64.html "Interface documentation") | C binding -48 | [hipblasIcamin_64](interfacehipfort__hipblas_1_1hipblasicamin__64.html "Interface documentation") | C binding -49 | [hipblasIzamin_64](interfacehipfort__hipblas_1_1hipblasizamin__64.html "Interface documentation") | C binding +42 | [hipblasIsamin](interfacehipfort__hipblas_1_1hipblasisamin.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +43 | [hipblasIdamin](interfacehipfort__hipblas_1_1hipblasidamin.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +44 | [hipblasIcamin](interfacehipfort__hipblas_1_1hipblasicamin.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +45 | [hipblasIzamin](interfacehipfort__hipblas_1_1hipblasizamin.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +46 | [hipblasIsamin_64](interfacehipfort__hipblas_1_1hipblasisamin__64.html "Interface documentation") | C binding, typed +47 | [hipblasIdamin_64](interfacehipfort__hipblas_1_1hipblasidamin__64.html "Interface documentation") | C binding, typed +48 | [hipblasIcamin_64](interfacehipfort__hipblas_1_1hipblasicamin__64.html "Interface documentation") | C binding, typed +49 | [hipblasIzamin_64](interfacehipfort__hipblas_1_1hipblasizamin__64.html "Interface documentation") | C binding, typed 50 | [hipblasIsaminBatched](interfacehipfort__hipblas_1_1hipblasisaminbatched.html "Interface documentation") | C binding 51 | [hipblasIdaminBatched](interfacehipfort__hipblas_1_1hipblasidaminbatched.html "Interface documentation") | C binding 52 | [hipblasIcaminBatched](interfacehipfort__hipblas_1_1hipblasicaminbatched.html "Interface documentation") | C binding @@ -67,14 +67,14 @@ 63 | [hipblasIdaminStridedBatched_64](interfacehipfort__hipblas_1_1hipblasidaminstridedbatched__64.html "Interface documentation") | C binding 64 | [hipblasIcaminStridedBatched_64](interfacehipfort__hipblas_1_1hipblasicaminstridedbatched__64.html "Interface documentation") | C binding 65 | [hipblasIzaminStridedBatched_64](interfacehipfort__hipblas_1_1hipblasizaminstridedbatched__64.html "Interface documentation") | C binding -66 | [hipblasSasum](interfacehipfort__hipblas_1_1hipblassasum.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -67 | [hipblasDasum](interfacehipfort__hipblas_1_1hipblasdasum.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -68 | [hipblasScasum](interfacehipfort__hipblas_1_1hipblasscasum.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -69 | [hipblasDzasum](interfacehipfort__hipblas_1_1hipblasdzasum.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -70 | [hipblasSasum_64](interfacehipfort__hipblas_1_1hipblassasum__64.html "Interface documentation") | C binding -71 | [hipblasDasum_64](interfacehipfort__hipblas_1_1hipblasdasum__64.html "Interface documentation") | C binding -72 | [hipblasScasum_64](interfacehipfort__hipblas_1_1hipblasscasum__64.html "Interface documentation") | C binding -73 | [hipblasDzasum_64](interfacehipfort__hipblas_1_1hipblasdzasum__64.html "Interface documentation") | C binding +66 | [hipblasSasum](interfacehipfort__hipblas_1_1hipblassasum.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +67 | [hipblasDasum](interfacehipfort__hipblas_1_1hipblasdasum.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +68 | [hipblasScasum](interfacehipfort__hipblas_1_1hipblasscasum.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +69 | [hipblasDzasum](interfacehipfort__hipblas_1_1hipblasdzasum.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +70 | [hipblasSasum_64](interfacehipfort__hipblas_1_1hipblassasum__64.html "Interface documentation") | C binding, typed +71 | [hipblasDasum_64](interfacehipfort__hipblas_1_1hipblasdasum__64.html "Interface documentation") | C binding, typed +72 | [hipblasScasum_64](interfacehipfort__hipblas_1_1hipblasscasum__64.html "Interface documentation") | C binding, typed +73 | [hipblasDzasum_64](interfacehipfort__hipblas_1_1hipblasdzasum__64.html "Interface documentation") | C binding, typed 74 | [hipblasSasumBatched](interfacehipfort__hipblas_1_1hipblassasumbatched.html "Interface documentation") | C binding 75 | [hipblasDasumBatched](interfacehipfort__hipblas_1_1hipblasdasumbatched.html "Interface documentation") | C binding 76 | [hipblasScasumBatched](interfacehipfort__hipblas_1_1hipblasscasumbatched.html "Interface documentation") | C binding @@ -147,20 +147,20 @@ 143 | [hipblasZcopyStridedBatched_64](interfacehipfort__hipblas_1_1hipblaszcopystridedbatched__64.html "Interface documentation") | C binding 144 | [hipblasHdot](interfacehipfort__hipblas_1_1hipblashdot.html "Interface documentation") | C binding 145 | [hipblasBfdot](interfacehipfort__hipblas_1_1hipblasbfdot.html "Interface documentation") | C binding -146 | [hipblasSdot](interfacehipfort__hipblas_1_1hipblassdot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -147 | [hipblasDdot](interfacehipfort__hipblas_1_1hipblasddot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -148 | [hipblasCdotc](interfacehipfort__hipblas_1_1hipblascdotc.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -149 | [hipblasCdotu](interfacehipfort__hipblas_1_1hipblascdotu.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -150 | [hipblasZdotc](interfacehipfort__hipblas_1_1hipblaszdotc.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -151 | [hipblasZdotu](interfacehipfort__hipblas_1_1hipblaszdotu.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank +146 | [hipblasSdot](interfacehipfort__hipblas_1_1hipblassdot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +147 | [hipblasDdot](interfacehipfort__hipblas_1_1hipblasddot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +148 | [hipblasCdotc](interfacehipfort__hipblas_1_1hipblascdotc.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +149 | [hipblasCdotu](interfacehipfort__hipblas_1_1hipblascdotu.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +150 | [hipblasZdotc](interfacehipfort__hipblas_1_1hipblaszdotc.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +151 | [hipblasZdotu](interfacehipfort__hipblas_1_1hipblaszdotu.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr 152 | [hipblasHdot_64](interfacehipfort__hipblas_1_1hipblashdot__64.html "Interface documentation") | C binding 153 | [hipblasBfdot_64](interfacehipfort__hipblas_1_1hipblasbfdot__64.html "Interface documentation") | C binding -154 | [hipblasSdot_64](interfacehipfort__hipblas_1_1hipblassdot__64.html "Interface documentation") | C binding -155 | [hipblasDdot_64](interfacehipfort__hipblas_1_1hipblasddot__64.html "Interface documentation") | C binding -156 | [hipblasCdotc_64](interfacehipfort__hipblas_1_1hipblascdotc__64.html "Interface documentation") | C binding -157 | [hipblasCdotu_64](interfacehipfort__hipblas_1_1hipblascdotu__64.html "Interface documentation") | C binding -158 | [hipblasZdotc_64](interfacehipfort__hipblas_1_1hipblaszdotc__64.html "Interface documentation") | C binding -159 | [hipblasZdotu_64](interfacehipfort__hipblas_1_1hipblaszdotu__64.html "Interface documentation") | C binding +154 | [hipblasSdot_64](interfacehipfort__hipblas_1_1hipblassdot__64.html "Interface documentation") | C binding, typed +155 | [hipblasDdot_64](interfacehipfort__hipblas_1_1hipblasddot__64.html "Interface documentation") | C binding, typed +156 | [hipblasCdotc_64](interfacehipfort__hipblas_1_1hipblascdotc__64.html "Interface documentation") | C binding, typed +157 | [hipblasCdotu_64](interfacehipfort__hipblas_1_1hipblascdotu__64.html "Interface documentation") | C binding, typed +158 | [hipblasZdotc_64](interfacehipfort__hipblas_1_1hipblaszdotc__64.html "Interface documentation") | C binding, typed +159 | [hipblasZdotu_64](interfacehipfort__hipblas_1_1hipblaszdotu__64.html "Interface documentation") | C binding, typed 160 | [hipblasHdotBatched](interfacehipfort__hipblas_1_1hipblashdotbatched.html "Interface documentation") | C binding 161 | [hipblasBfdotBatched](interfacehipfort__hipblas_1_1hipblasbfdotbatched.html "Interface documentation") | C binding 162 | [hipblasSdotBatched](interfacehipfort__hipblas_1_1hipblassdotbatched.html "Interface documentation") | C binding @@ -193,14 +193,14 @@ 189 | [hipblasCdotuStridedBatched_64](interfacehipfort__hipblas_1_1hipblascdotustridedbatched__64.html "Interface documentation") | C binding 190 | [hipblasZdotcStridedBatched_64](interfacehipfort__hipblas_1_1hipblaszdotcstridedbatched__64.html "Interface documentation") | C binding 191 | [hipblasZdotuStridedBatched_64](interfacehipfort__hipblas_1_1hipblaszdotustridedbatched__64.html "Interface documentation") | C binding -192 | [hipblasSnrm2](interfacehipfort__hipblas_1_1hipblassnrm2.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -193 | [hipblasDnrm2](interfacehipfort__hipblas_1_1hipblasdnrm2.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -194 | [hipblasScnrm2](interfacehipfort__hipblas_1_1hipblasscnrm2.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -195 | [hipblasDznrm2](interfacehipfort__hipblas_1_1hipblasdznrm2.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -196 | [hipblasSnrm2_64](interfacehipfort__hipblas_1_1hipblassnrm2__64.html "Interface documentation") | C binding -197 | [hipblasDnrm2_64](interfacehipfort__hipblas_1_1hipblasdnrm2__64.html "Interface documentation") | C binding -198 | [hipblasScnrm2_64](interfacehipfort__hipblas_1_1hipblasscnrm2__64.html "Interface documentation") | C binding -199 | [hipblasDznrm2_64](interfacehipfort__hipblas_1_1hipblasdznrm2__64.html "Interface documentation") | C binding +192 | [hipblasSnrm2](interfacehipfort__hipblas_1_1hipblassnrm2.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +193 | [hipblasDnrm2](interfacehipfort__hipblas_1_1hipblasdnrm2.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +194 | [hipblasScnrm2](interfacehipfort__hipblas_1_1hipblasscnrm2.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +195 | [hipblasDznrm2](interfacehipfort__hipblas_1_1hipblasdznrm2.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +196 | [hipblasSnrm2_64](interfacehipfort__hipblas_1_1hipblassnrm2__64.html "Interface documentation") | C binding, typed +197 | [hipblasDnrm2_64](interfacehipfort__hipblas_1_1hipblasdnrm2__64.html "Interface documentation") | C binding, typed +198 | [hipblasScnrm2_64](interfacehipfort__hipblas_1_1hipblasscnrm2__64.html "Interface documentation") | C binding, typed +199 | [hipblasDznrm2_64](interfacehipfort__hipblas_1_1hipblasdznrm2__64.html "Interface documentation") | C binding, typed 200 | [hipblasSnrm2Batched](interfacehipfort__hipblas_1_1hipblassnrm2batched.html "Interface documentation") | C binding 201 | [hipblasDnrm2Batched](interfacehipfort__hipblas_1_1hipblasdnrm2batched.html "Interface documentation") | C binding 202 | [hipblasScnrm2Batched](interfacehipfort__hipblas_1_1hipblasscnrm2batched.html "Interface documentation") | C binding @@ -217,18 +217,18 @@ 213 | [hipblasDnrm2StridedBatched_64](interfacehipfort__hipblas_1_1hipblasdnrm2stridedbatched__64.html "Interface documentation") | C binding 214 | [hipblasScnrm2StridedBatched_64](interfacehipfort__hipblas_1_1hipblasscnrm2stridedbatched__64.html "Interface documentation") | C binding 215 | [hipblasDznrm2StridedBatched_64](interfacehipfort__hipblas_1_1hipblasdznrm2stridedbatched__64.html "Interface documentation") | C binding -216 | [hipblasSrot](interfacehipfort__hipblas_1_1hipblassrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -217 | [hipblasDrot](interfacehipfort__hipblas_1_1hipblasdrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -218 | [hipblasCrot](interfacehipfort__hipblas_1_1hipblascrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -219 | [hipblasCsrot](interfacehipfort__hipblas_1_1hipblascsrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -220 | [hipblasZrot](interfacehipfort__hipblas_1_1hipblaszrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -221 | [hipblasZdrot](interfacehipfort__hipblas_1_1hipblaszdrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -222 | [hipblasSrot_64](interfacehipfort__hipblas_1_1hipblassrot__64.html "Interface documentation") | C binding -223 | [hipblasDrot_64](interfacehipfort__hipblas_1_1hipblasdrot__64.html "Interface documentation") | C binding -224 | [hipblasCrot_64](interfacehipfort__hipblas_1_1hipblascrot__64.html "Interface documentation") | C binding -225 | [hipblasCsrot_64](interfacehipfort__hipblas_1_1hipblascsrot__64.html "Interface documentation") | C binding -226 | [hipblasZrot_64](interfacehipfort__hipblas_1_1hipblaszrot__64.html "Interface documentation") | C binding -227 | [hipblasZdrot_64](interfacehipfort__hipblas_1_1hipblaszdrot__64.html "Interface documentation") | C binding +216 | [hipblasSrot](interfacehipfort__hipblas_1_1hipblassrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +217 | [hipblasDrot](interfacehipfort__hipblas_1_1hipblasdrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +218 | [hipblasCrot](interfacehipfort__hipblas_1_1hipblascrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +219 | [hipblasCsrot](interfacehipfort__hipblas_1_1hipblascsrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +220 | [hipblasZrot](interfacehipfort__hipblas_1_1hipblaszrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +221 | [hipblasZdrot](interfacehipfort__hipblas_1_1hipblaszdrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +222 | [hipblasSrot_64](interfacehipfort__hipblas_1_1hipblassrot__64.html "Interface documentation") | C binding, typed +223 | [hipblasDrot_64](interfacehipfort__hipblas_1_1hipblasdrot__64.html "Interface documentation") | C binding, typed +224 | [hipblasCrot_64](interfacehipfort__hipblas_1_1hipblascrot__64.html "Interface documentation") | C binding, typed +225 | [hipblasCsrot_64](interfacehipfort__hipblas_1_1hipblascsrot__64.html "Interface documentation") | C binding, typed +226 | [hipblasZrot_64](interfacehipfort__hipblas_1_1hipblaszrot__64.html "Interface documentation") | C binding, typed +227 | [hipblasZdrot_64](interfacehipfort__hipblas_1_1hipblaszdrot__64.html "Interface documentation") | C binding, typed 228 | [hipblasSrotBatched](interfacehipfort__hipblas_1_1hipblassrotbatched.html "Interface documentation") | C binding 229 | [hipblasDrotBatched](interfacehipfort__hipblas_1_1hipblasdrotbatched.html "Interface documentation") | C binding 230 | [hipblasCrotBatched](interfacehipfort__hipblas_1_1hipblascrotbatched.html "Interface documentation") | C binding @@ -253,14 +253,14 @@ 249 | [hipblasCsrotStridedBatched_64](interfacehipfort__hipblas_1_1hipblascsrotstridedbatched__64.html "Interface documentation") | C binding 250 | [hipblasZrotStridedBatched_64](interfacehipfort__hipblas_1_1hipblaszrotstridedbatched__64.html "Interface documentation") | C binding 251 | [hipblasZdrotStridedBatched_64](interfacehipfort__hipblas_1_1hipblaszdrotstridedbatched__64.html "Interface documentation") | C binding -252 | [hipblasSrotg](interfacehipfort__hipblas_1_1hipblassrotg.html "Interface documentation") | C binding -253 | [hipblasDrotg](interfacehipfort__hipblas_1_1hipblasdrotg.html "Interface documentation") | C binding -254 | [hipblasCrotg](interfacehipfort__hipblas_1_1hipblascrotg.html "Interface documentation") | C binding -255 | [hipblasZrotg](interfacehipfort__hipblas_1_1hipblaszrotg.html "Interface documentation") | C binding -256 | [hipblasSrotg_64](interfacehipfort__hipblas_1_1hipblassrotg__64.html "Interface documentation") | C binding -257 | [hipblasDrotg_64](interfacehipfort__hipblas_1_1hipblasdrotg__64.html "Interface documentation") | C binding -258 | [hipblasCrotg_64](interfacehipfort__hipblas_1_1hipblascrotg__64.html "Interface documentation") | C binding -259 | [hipblasZrotg_64](interfacehipfort__hipblas_1_1hipblaszrotg__64.html "Interface documentation") | C binding +252 | [hipblasSrotg](interfacehipfort__hipblas_1_1hipblassrotg.html "Interface documentation") | C binding, typed +253 | [hipblasDrotg](interfacehipfort__hipblas_1_1hipblasdrotg.html "Interface documentation") | C binding, typed +254 | [hipblasCrotg](interfacehipfort__hipblas_1_1hipblascrotg.html "Interface documentation") | C binding, typed +255 | [hipblasZrotg](interfacehipfort__hipblas_1_1hipblaszrotg.html "Interface documentation") | C binding, typed +256 | [hipblasSrotg_64](interfacehipfort__hipblas_1_1hipblassrotg__64.html "Interface documentation") | C binding, typed +257 | [hipblasDrotg_64](interfacehipfort__hipblas_1_1hipblasdrotg__64.html "Interface documentation") | C binding, typed +258 | [hipblasCrotg_64](interfacehipfort__hipblas_1_1hipblascrotg__64.html "Interface documentation") | C binding, typed +259 | [hipblasZrotg_64](interfacehipfort__hipblas_1_1hipblaszrotg__64.html "Interface documentation") | C binding, typed 260 | [hipblasSrotgBatched](interfacehipfort__hipblas_1_1hipblassrotgbatched.html "Interface documentation") | C binding 261 | [hipblasDrotgBatched](interfacehipfort__hipblas_1_1hipblasdrotgbatched.html "Interface documentation") | C binding 262 | [hipblasCrotgBatched](interfacehipfort__hipblas_1_1hipblascrotgbatched.html "Interface documentation") | C binding @@ -289,10 +289,10 @@ 285 | [hipblasDrotmStridedBatched](interfacehipfort__hipblas_1_1hipblasdrotmstridedbatched.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 286 | [hipblasSrotmStridedBatched_64](interfacehipfort__hipblas_1_1hipblassrotmstridedbatched__64.html "Interface documentation") | C binding 287 | [hipblasDrotmStridedBatched_64](interfacehipfort__hipblas_1_1hipblasdrotmstridedbatched__64.html "Interface documentation") | C binding -288 | [hipblasSrotmg](interfacehipfort__hipblas_1_1hipblassrotmg.html "Interface documentation") | C binding -289 | [hipblasDrotmg](interfacehipfort__hipblas_1_1hipblasdrotmg.html "Interface documentation") | C binding -290 | [hipblasSrotmg_64](interfacehipfort__hipblas_1_1hipblassrotmg__64.html "Interface documentation") | C binding -291 | [hipblasDrotmg_64](interfacehipfort__hipblas_1_1hipblasdrotmg__64.html "Interface documentation") | C binding +288 | [hipblasSrotmg](interfacehipfort__hipblas_1_1hipblassrotmg.html "Interface documentation") | C binding, typed +289 | [hipblasDrotmg](interfacehipfort__hipblas_1_1hipblasdrotmg.html "Interface documentation") | C binding, typed +290 | [hipblasSrotmg_64](interfacehipfort__hipblas_1_1hipblassrotmg__64.html "Interface documentation") | C binding, typed +291 | [hipblasDrotmg_64](interfacehipfort__hipblas_1_1hipblasdrotmg__64.html "Interface documentation") | C binding, typed 292 | [hipblasSrotmgBatched](interfacehipfort__hipblas_1_1hipblassrotmgbatched.html "Interface documentation") | C binding 293 | [hipblasDrotmgBatched](interfacehipfort__hipblas_1_1hipblasdrotmgbatched.html "Interface documentation") | C binding 294 | [hipblasSrotmgBatched_64](interfacehipfort__hipblas_1_1hipblassrotmgbatched__64.html "Interface documentation") | C binding @@ -1103,46 +1103,46 @@ 1099 | [hipblasDgetrfStridedBatched](interfacehipfort__hipblas_1_1hipblasdgetrfstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank 1100 | [hipblasCgetrfStridedBatched](interfacehipfort__hipblas_1_1hipblascgetrfstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank 1101 | [hipblasZgetrfStridedBatched](interfacehipfort__hipblas_1_1hipblaszgetrfstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -1102 | [hipblasSgetrs](interfacehipfort__hipblas_1_1hipblassgetrs.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -1103 | [hipblasDgetrs](interfacehipfort__hipblas_1_1hipblasdgetrs.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -1104 | [hipblasCgetrs](interfacehipfort__hipblas_1_1hipblascgetrs.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -1105 | [hipblasZgetrs](interfacehipfort__hipblas_1_1hipblaszgetrs.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -1106 | [hipblasSgetrsBatched](interfacehipfort__hipblas_1_1hipblassgetrsbatched.html "Interface documentation") | C binding -1107 | [hipblasDgetrsBatched](interfacehipfort__hipblas_1_1hipblasdgetrsbatched.html "Interface documentation") | C binding -1108 | [hipblasCgetrsBatched](interfacehipfort__hipblas_1_1hipblascgetrsbatched.html "Interface documentation") | C binding -1109 | [hipblasZgetrsBatched](interfacehipfort__hipblas_1_1hipblaszgetrsbatched.html "Interface documentation") | C binding -1110 | [hipblasSgetrsStridedBatched](interfacehipfort__hipblas_1_1hipblassgetrsstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -1111 | [hipblasDgetrsStridedBatched](interfacehipfort__hipblas_1_1hipblasdgetrsstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -1112 | [hipblasCgetrsStridedBatched](interfacehipfort__hipblas_1_1hipblascgetrsstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -1113 | [hipblasZgetrsStridedBatched](interfacehipfort__hipblas_1_1hipblaszgetrsstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank +1102 | [hipblasSgetrs](interfacehipfort__hipblas_1_1hipblassgetrs.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed, devptr +1103 | [hipblasDgetrs](interfacehipfort__hipblas_1_1hipblasdgetrs.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed, devptr +1104 | [hipblasCgetrs](interfacehipfort__hipblas_1_1hipblascgetrs.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed, devptr +1105 | [hipblasZgetrs](interfacehipfort__hipblas_1_1hipblaszgetrs.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed, devptr +1106 | [hipblasSgetrsBatched](interfacehipfort__hipblas_1_1hipblassgetrsbatched.html "Interface documentation") | C binding, typed +1107 | [hipblasDgetrsBatched](interfacehipfort__hipblas_1_1hipblasdgetrsbatched.html "Interface documentation") | C binding, typed +1108 | [hipblasCgetrsBatched](interfacehipfort__hipblas_1_1hipblascgetrsbatched.html "Interface documentation") | C binding, typed +1109 | [hipblasZgetrsBatched](interfacehipfort__hipblas_1_1hipblaszgetrsbatched.html "Interface documentation") | C binding, typed +1110 | [hipblasSgetrsStridedBatched](interfacehipfort__hipblas_1_1hipblassgetrsstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed, devptr +1111 | [hipblasDgetrsStridedBatched](interfacehipfort__hipblas_1_1hipblasdgetrsstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed, devptr +1112 | [hipblasCgetrsStridedBatched](interfacehipfort__hipblas_1_1hipblascgetrsstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed, devptr +1113 | [hipblasZgetrsStridedBatched](interfacehipfort__hipblas_1_1hipblaszgetrsstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed, devptr 1114 | [hipblasSgetriBatched](interfacehipfort__hipblas_1_1hipblassgetribatched.html "Interface documentation") | C binding 1115 | [hipblasDgetriBatched](interfacehipfort__hipblas_1_1hipblasdgetribatched.html "Interface documentation") | C binding 1116 | [hipblasCgetriBatched](interfacehipfort__hipblas_1_1hipblascgetribatched.html "Interface documentation") | C binding 1117 | [hipblasZgetriBatched](interfacehipfort__hipblas_1_1hipblaszgetribatched.html "Interface documentation") | C binding -1118 | [hipblasSgels](interfacehipfort__hipblas_1_1hipblassgels.html "Interface documentation") | C binding -1119 | [hipblasDgels](interfacehipfort__hipblas_1_1hipblasdgels.html "Interface documentation") | C binding -1120 | [hipblasCgels](interfacehipfort__hipblas_1_1hipblascgels.html "Interface documentation") | C binding -1121 | [hipblasZgels](interfacehipfort__hipblas_1_1hipblaszgels.html "Interface documentation") | C binding -1122 | [hipblasSgelsBatched](interfacehipfort__hipblas_1_1hipblassgelsbatched.html "Interface documentation") | C binding -1123 | [hipblasDgelsBatched](interfacehipfort__hipblas_1_1hipblasdgelsbatched.html "Interface documentation") | C binding -1124 | [hipblasCgelsBatched](interfacehipfort__hipblas_1_1hipblascgelsbatched.html "Interface documentation") | C binding -1125 | [hipblasZgelsBatched](interfacehipfort__hipblas_1_1hipblaszgelsbatched.html "Interface documentation") | C binding -1126 | [hipblasSgelsStridedBatched](interfacehipfort__hipblas_1_1hipblassgelsstridedbatched.html "Interface documentation") | C binding -1127 | [hipblasDgelsStridedBatched](interfacehipfort__hipblas_1_1hipblasdgelsstridedbatched.html "Interface documentation") | C binding -1128 | [hipblasCgelsStridedBatched](interfacehipfort__hipblas_1_1hipblascgelsstridedbatched.html "Interface documentation") | C binding -1129 | [hipblasZgelsStridedBatched](interfacehipfort__hipblas_1_1hipblaszgelsstridedbatched.html "Interface documentation") | C binding -1130 | [hipblasSgeqrf](interfacehipfort__hipblas_1_1hipblassgeqrf.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -1131 | [hipblasDgeqrf](interfacehipfort__hipblas_1_1hipblasdgeqrf.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -1132 | [hipblasCgeqrf](interfacehipfort__hipblas_1_1hipblascgeqrf.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -1133 | [hipblasZgeqrf](interfacehipfort__hipblas_1_1hipblaszgeqrf.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -1134 | [hipblasSgeqrfBatched](interfacehipfort__hipblas_1_1hipblassgeqrfbatched.html "Interface documentation") | C binding -1135 | [hipblasDgeqrfBatched](interfacehipfort__hipblas_1_1hipblasdgeqrfbatched.html "Interface documentation") | C binding -1136 | [hipblasCgeqrfBatched](interfacehipfort__hipblas_1_1hipblascgeqrfbatched.html "Interface documentation") | C binding -1137 | [hipblasZgeqrfBatched](interfacehipfort__hipblas_1_1hipblaszgeqrfbatched.html "Interface documentation") | C binding -1138 | [hipblasSgeqrfStridedBatched](interfacehipfort__hipblas_1_1hipblassgeqrfstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -1139 | [hipblasDgeqrfStridedBatched](interfacehipfort__hipblas_1_1hipblasdgeqrfstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -1140 | [hipblasCgeqrfStridedBatched](interfacehipfort__hipblas_1_1hipblascgeqrfstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -1141 | [hipblasZgeqrfStridedBatched](interfacehipfort__hipblas_1_1hipblaszgeqrfstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank +1118 | [hipblasSgels](interfacehipfort__hipblas_1_1hipblassgels.html "Interface documentation") | C binding, typed +1119 | [hipblasDgels](interfacehipfort__hipblas_1_1hipblasdgels.html "Interface documentation") | C binding, typed +1120 | [hipblasCgels](interfacehipfort__hipblas_1_1hipblascgels.html "Interface documentation") | C binding, typed +1121 | [hipblasZgels](interfacehipfort__hipblas_1_1hipblaszgels.html "Interface documentation") | C binding, typed +1122 | [hipblasSgelsBatched](interfacehipfort__hipblas_1_1hipblassgelsbatched.html "Interface documentation") | C binding, typed +1123 | [hipblasDgelsBatched](interfacehipfort__hipblas_1_1hipblasdgelsbatched.html "Interface documentation") | C binding, typed +1124 | [hipblasCgelsBatched](interfacehipfort__hipblas_1_1hipblascgelsbatched.html "Interface documentation") | C binding, typed +1125 | [hipblasZgelsBatched](interfacehipfort__hipblas_1_1hipblaszgelsbatched.html "Interface documentation") | C binding, typed +1126 | [hipblasSgelsStridedBatched](interfacehipfort__hipblas_1_1hipblassgelsstridedbatched.html "Interface documentation") | C binding, typed +1127 | [hipblasDgelsStridedBatched](interfacehipfort__hipblas_1_1hipblasdgelsstridedbatched.html "Interface documentation") | C binding, typed +1128 | [hipblasCgelsStridedBatched](interfacehipfort__hipblas_1_1hipblascgelsstridedbatched.html "Interface documentation") | C binding, typed +1129 | [hipblasZgelsStridedBatched](interfacehipfort__hipblas_1_1hipblaszgelsstridedbatched.html "Interface documentation") | C binding, typed +1130 | [hipblasSgeqrf](interfacehipfort__hipblas_1_1hipblassgeqrf.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed, devptr +1131 | [hipblasDgeqrf](interfacehipfort__hipblas_1_1hipblasdgeqrf.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed, devptr +1132 | [hipblasCgeqrf](interfacehipfort__hipblas_1_1hipblascgeqrf.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed, devptr +1133 | [hipblasZgeqrf](interfacehipfort__hipblas_1_1hipblaszgeqrf.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed, devptr +1134 | [hipblasSgeqrfBatched](interfacehipfort__hipblas_1_1hipblassgeqrfbatched.html "Interface documentation") | C binding, typed +1135 | [hipblasDgeqrfBatched](interfacehipfort__hipblas_1_1hipblasdgeqrfbatched.html "Interface documentation") | C binding, typed +1136 | [hipblasCgeqrfBatched](interfacehipfort__hipblas_1_1hipblascgeqrfbatched.html "Interface documentation") | C binding, typed +1137 | [hipblasZgeqrfBatched](interfacehipfort__hipblas_1_1hipblaszgeqrfbatched.html "Interface documentation") | C binding, typed +1138 | [hipblasSgeqrfStridedBatched](interfacehipfort__hipblas_1_1hipblassgeqrfstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed, devptr +1139 | [hipblasDgeqrfStridedBatched](interfacehipfort__hipblas_1_1hipblasdgeqrfstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed, devptr +1140 | [hipblasCgeqrfStridedBatched](interfacehipfort__hipblas_1_1hipblascgeqrfstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed, devptr +1141 | [hipblasZgeqrfStridedBatched](interfacehipfort__hipblas_1_1hipblaszgeqrfstridedbatched.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed, devptr 1142 | [hipblasGemmEx](interfacehipfort__hipblas_1_1hipblasgemmex.html "Interface documentation") | C binding 1143 | [hipblasGemmExWithFlags](interfacehipfort__hipblas_1_1hipblasgemmexwithflags.html "Interface documentation") | C binding 1144 | [hipblasGemmEx_64](interfacehipfort__hipblas_1_1hipblasgemmex__64.html "Interface documentation") | C binding diff --git a/docs/doxygen/input/supported_api_hipsolver.md b/docs/doxygen/input/supported_api_hipsolver.md index 08d9d8321..985b7dc33 100644 --- a/docs/doxygen/input/supported_api_hipsolver.md +++ b/docs/doxygen/input/supported_api_hipsolver.md @@ -528,7 +528,7 @@ 524 | [hipsolverRfBatchRefactor](interfacehipfort__hipsolver_1_1hipsolverrfbatchrefactor.html "Interface documentation") | C binding 525 | [hipsolverRfBatchResetValues](interfacehipfort__hipsolver_1_1hipsolverrfbatchresetvalues.html "Interface documentation") | C binding 526 | [hipsolverRfBatchSolve](interfacehipfort__hipsolver_1_1hipsolverrfbatchsolve.html "Interface documentation") | C binding -527 | [hipsolverRfBatchZeroPivot](interfacehipfort__hipsolver_1_1hipsolverrfbatchzeropivot.html "Interface documentation") | C binding, typed +527 | [hipsolverRfBatchZeroPivot](interfacehipfort__hipsolver_1_1hipsolverrfbatchzeropivot.html "Interface documentation") | C binding 528 | [hipsolverSpCreate](interfacehipfort__hipsolver_1_1hipsolverspcreate.html "Interface documentation") | C binding 529 | [hipsolverSpDestroy](interfacehipfort__hipsolver_1_1hipsolverspdestroy.html "Interface documentation") | C binding 530 | [hipsolverSpSetStream](interfacehipfort__hipsolver_1_1hipsolverspsetstream.html "Interface documentation") | C binding diff --git a/docs/doxygen/input/supported_api_hipsparse.md b/docs/doxygen/input/supported_api_hipsparse.md index 6127679ae..5d10f4e75 100644 --- a/docs/doxygen/input/supported_api_hipsparse.md +++ b/docs/doxygen/input/supported_api_hipsparse.md @@ -53,12 +53,12 @@ 49 | [hipsparseDaxpyi](interfacehipfort__hipsparse_1_1hipsparsedaxpyi.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 50 | [hipsparseCaxpyi](interfacehipfort__hipsparse_1_1hipsparsecaxpyi.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 51 | [hipsparseZaxpyi](interfacehipfort__hipsparse_1_1hipsparsezaxpyi.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -52 | [hipsparseCdotci](interfacehipfort__hipsparse_1_1hipsparsecdotci.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -53 | [hipsparseZdotci](interfacehipfort__hipsparse_1_1hipsparsezdotci.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -54 | [hipsparseSdoti](interfacehipfort__hipsparse_1_1hipsparsesdoti.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -55 | [hipsparseDdoti](interfacehipfort__hipsparse_1_1hipsparseddoti.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -56 | [hipsparseCdoti](interfacehipfort__hipsparse_1_1hipsparsecdoti.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -57 | [hipsparseZdoti](interfacehipfort__hipsparse_1_1hipsparsezdoti.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank +52 | [hipsparseCdotci](interfacehipfort__hipsparse_1_1hipsparsecdotci.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +53 | [hipsparseZdotci](interfacehipfort__hipsparse_1_1hipsparsezdotci.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +54 | [hipsparseSdoti](interfacehipfort__hipsparse_1_1hipsparsesdoti.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +55 | [hipsparseDdoti](interfacehipfort__hipsparse_1_1hipsparseddoti.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +56 | [hipsparseCdoti](interfacehipfort__hipsparse_1_1hipsparsecdoti.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +57 | [hipsparseZdoti](interfacehipfort__hipsparse_1_1hipsparsezdoti.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 58 | [hipsparseSgthr](interfacehipfort__hipsparse_1_1hipsparsesgthr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 59 | [hipsparseDgthr](interfacehipfort__hipsparse_1_1hipsparsedgthr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 60 | [hipsparseCgthr](interfacehipfort__hipsparse_1_1hipsparsecgthr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank @@ -324,7 +324,7 @@ 320 | [hipsparseZcsc2dense](interfacehipfort__hipsparse_1_1hipsparsezcsc2dense.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank 321 | [hipsparseXcscsort_bufferSizeExt](interfacehipfort__hipsparse_1_1hipsparsexcscsort__buffersizeext.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 322 | [hipsparseXcscsort](interfacehipfort__hipsparse_1_1hipsparsexcscsort.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -323 | [hipsparseXcsr2bsrNnz](interfacehipfort__hipsparse_1_1hipsparsexcsr2bsrnnz.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank +323 | [hipsparseXcsr2bsrNnz](interfacehipfort__hipsparse_1_1hipsparsexcsr2bsrnnz.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 324 | [hipsparseScsr2bsr](interfacehipfort__hipsparse_1_1hipsparsescsr2bsr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 325 | [hipsparseDcsr2bsr](interfacehipfort__hipsparse_1_1hipsparsedcsr2bsr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 326 | [hipsparseCcsr2bsr](interfacehipfort__hipsparse_1_1hipsparseccsr2bsr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank @@ -352,7 +352,7 @@ 348 | [hipsparseDcsr2gebsr_bufferSize](interfacehipfort__hipsparse_1_1hipsparsedcsr2gebsr__buffersize.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 349 | [hipsparseCcsr2gebsr_bufferSize](interfacehipfort__hipsparse_1_1hipsparseccsr2gebsr__buffersize.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 350 | [hipsparseZcsr2gebsr_bufferSize](interfacehipfort__hipsparse_1_1hipsparsezcsr2gebsr__buffersize.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -351 | [hipsparseXcsr2gebsrNnz](interfacehipfort__hipsparse_1_1hipsparsexcsr2gebsrnnz.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank +351 | [hipsparseXcsr2gebsrNnz](interfacehipfort__hipsparse_1_1hipsparsexcsr2gebsrnnz.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 352 | [hipsparseScsr2gebsr](interfacehipfort__hipsparse_1_1hipsparsescsr2gebsr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 353 | [hipsparseDcsr2gebsr](interfacehipfort__hipsparse_1_1hipsparsedcsr2gebsr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 354 | [hipsparseCcsr2gebsr](interfacehipfort__hipsparse_1_1hipsparseccsr2gebsr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank @@ -408,10 +408,10 @@ 404 | [hipsparseDnnz](interfacehipfort__hipsparse_1_1hipsparsednnz.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed 405 | [hipsparseCnnz](interfacehipfort__hipsparse_1_1hipsparsecnnz.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed 406 | [hipsparseZnnz](interfacehipfort__hipsparse_1_1hipsparseznnz.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed -407 | [hipsparseSnnz_compress](interfacehipfort__hipsparse_1_1hipsparsesnnz__compress.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -408 | [hipsparseDnnz_compress](interfacehipfort__hipsparse_1_1hipsparsednnz__compress.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -409 | [hipsparseCnnz_compress](interfacehipfort__hipsparse_1_1hipsparsecnnz__compress.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -410 | [hipsparseZnnz_compress](interfacehipfort__hipsparse_1_1hipsparseznnz__compress.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank +407 | [hipsparseSnnz_compress](interfacehipfort__hipsparse_1_1hipsparsesnnz__compress.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +408 | [hipsparseDnnz_compress](interfacehipfort__hipsparse_1_1hipsparsednnz__compress.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +409 | [hipsparseCnnz_compress](interfacehipfort__hipsparse_1_1hipsparsecnnz__compress.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +410 | [hipsparseZnnz_compress](interfacehipfort__hipsparse_1_1hipsparseznnz__compress.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 411 | [hipsparseSpruneCsr2csr_bufferSize](interfacehipfort__hipsparse_1_1hipsparsesprunecsr2csr__buffersize.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 412 | [hipsparseDpruneCsr2csr_bufferSize](interfacehipfort__hipsparse_1_1hipsparsedprunecsr2csr__buffersize.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 413 | [hipsparseSpruneCsr2csr_bufferSizeExt](interfacehipfort__hipsparse_1_1hipsparsesprunecsr2csr__buffersizeext.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed @@ -444,10 +444,10 @@ 440 | [hipsparseDpruneDense2csrNnzByPercentage](interfacehipfort__hipsparse_1_1hipsparsedprunedense2csrnnzbypercentage.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed 441 | [hipsparseSpruneDense2csrByPercentage](interfacehipfort__hipsparse_1_1hipsparsesprunedense2csrbypercentage.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank 442 | [hipsparseDpruneDense2csrByPercentage](interfacehipfort__hipsparse_1_1hipsparsedprunedense2csrbypercentage.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -443 | [hipsparseScsrcolor](interfacehipfort__hipsparse_1_1hipsparsescsrcolor.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -444 | [hipsparseDcsrcolor](interfacehipfort__hipsparse_1_1hipsparsedcsrcolor.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -445 | [hipsparseCcsrcolor](interfacehipfort__hipsparse_1_1hipsparseccsrcolor.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -446 | [hipsparseZcsrcolor](interfacehipfort__hipsparse_1_1hipsparsezcsrcolor.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +443 | [hipsparseScsrcolor](interfacehipfort__hipsparse_1_1hipsparsescsrcolor.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +444 | [hipsparseDcsrcolor](interfacehipfort__hipsparse_1_1hipsparsedcsrcolor.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +445 | [hipsparseCcsrcolor](interfacehipfort__hipsparse_1_1hipsparseccsrcolor.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +446 | [hipsparseZcsrcolor](interfacehipfort__hipsparse_1_1hipsparsezcsrcolor.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr 447 | [hipsparseCreateSpVec](interfacehipfort__hipsparse_1_1hipsparsecreatespvec.html "Interface documentation") | C binding 448 | [hipsparseCreateConstSpVec](interfacehipfort__hipsparse_1_1hipsparsecreateconstspvec.html "Interface documentation") | C binding 449 | [hipsparseDestroySpVec](interfacehipfort__hipsparse_1_1hipsparsedestroyspvec.html "Interface documentation") | C binding diff --git a/docs/doxygen/input/supported_api_rocblas.md b/docs/doxygen/input/supported_api_rocblas.md index 5a2d7a248..88a53b4c7 100644 --- a/docs/doxygen/input/supported_api_rocblas.md +++ b/docs/doxygen/input/supported_api_rocblas.md @@ -26,7 +26,7 @@ 22 | [rocblas_set_matrix_async_64](interfacehipfort__rocblas_1_1rocblas__set__matrix__async__64.html "Interface documentation") | C binding 23 | [rocblas_get_matrix_async_64](interfacehipfort__rocblas_1_1rocblas__get__matrix__async__64.html "Interface documentation") | C binding 24 | [rocblas_set_start_stop_events](interfacehipfort__rocblas_1_1rocblas__set__start__stop__events.html "Interface documentation") | C binding -25 | [rocblas_set_solution_fitness_query](interfacehipfort__rocblas_1_1rocblas__set__solution__fitness__query.html "Interface documentation") | C binding, typed +25 | [rocblas_set_solution_fitness_query](interfacehipfort__rocblas_1_1rocblas__set__solution__fitness__query.html "Interface documentation") | C binding 26 | [rocblas_set_performance_metric](interfacehipfort__rocblas_1_1rocblas__set__performance__metric.html "Interface documentation") | C binding 27 | [rocblas_get_performance_metric](interfacehipfort__rocblas_1_1rocblas__get__performance__metric.html "Interface documentation") | C binding, typed 28 | [rocblas_sscal](interfacehipfort__rocblas_1_1rocblas__sscal.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed @@ -89,22 +89,22 @@ 85 | [rocblas_dcopy_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__dcopy__strided__batched__64.html "Interface documentation") | C binding 86 | [rocblas_ccopy_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__ccopy__strided__batched__64.html "Interface documentation") | C binding 87 | [rocblas_zcopy_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__zcopy__strided__batched__64.html "Interface documentation") | C binding -88 | [rocblas_sdot](interfacehipfort__rocblas_1_1rocblas__sdot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -89 | [rocblas_ddot](interfacehipfort__rocblas_1_1rocblas__ddot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank +88 | [rocblas_sdot](interfacehipfort__rocblas_1_1rocblas__sdot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +89 | [rocblas_ddot](interfacehipfort__rocblas_1_1rocblas__ddot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr 90 | [rocblas_hdot](interfacehipfort__rocblas_1_1rocblas__hdot.html "Interface documentation") | C binding 91 | [rocblas_bfdot](interfacehipfort__rocblas_1_1rocblas__bfdot.html "Interface documentation") | C binding -92 | [rocblas_cdotu](interfacehipfort__rocblas_1_1rocblas__cdotu.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -93 | [rocblas_zdotu](interfacehipfort__rocblas_1_1rocblas__zdotu.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -94 | [rocblas_cdotc](interfacehipfort__rocblas_1_1rocblas__cdotc.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -95 | [rocblas_zdotc](interfacehipfort__rocblas_1_1rocblas__zdotc.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -96 | [rocblas_sdot_64](interfacehipfort__rocblas_1_1rocblas__sdot__64.html "Interface documentation") | C binding -97 | [rocblas_ddot_64](interfacehipfort__rocblas_1_1rocblas__ddot__64.html "Interface documentation") | C binding +92 | [rocblas_cdotu](interfacehipfort__rocblas_1_1rocblas__cdotu.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +93 | [rocblas_zdotu](interfacehipfort__rocblas_1_1rocblas__zdotu.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +94 | [rocblas_cdotc](interfacehipfort__rocblas_1_1rocblas__cdotc.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +95 | [rocblas_zdotc](interfacehipfort__rocblas_1_1rocblas__zdotc.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +96 | [rocblas_sdot_64](interfacehipfort__rocblas_1_1rocblas__sdot__64.html "Interface documentation") | C binding, typed +97 | [rocblas_ddot_64](interfacehipfort__rocblas_1_1rocblas__ddot__64.html "Interface documentation") | C binding, typed 98 | [rocblas_hdot_64](interfacehipfort__rocblas_1_1rocblas__hdot__64.html "Interface documentation") | C binding 99 | [rocblas_bfdot_64](interfacehipfort__rocblas_1_1rocblas__bfdot__64.html "Interface documentation") | C binding -100 | [rocblas_cdotu_64](interfacehipfort__rocblas_1_1rocblas__cdotu__64.html "Interface documentation") | C binding -101 | [rocblas_zdotu_64](interfacehipfort__rocblas_1_1rocblas__zdotu__64.html "Interface documentation") | C binding -102 | [rocblas_cdotc_64](interfacehipfort__rocblas_1_1rocblas__cdotc__64.html "Interface documentation") | C binding -103 | [rocblas_zdotc_64](interfacehipfort__rocblas_1_1rocblas__zdotc__64.html "Interface documentation") | C binding +100 | [rocblas_cdotu_64](interfacehipfort__rocblas_1_1rocblas__cdotu__64.html "Interface documentation") | C binding, typed +101 | [rocblas_zdotu_64](interfacehipfort__rocblas_1_1rocblas__zdotu__64.html "Interface documentation") | C binding, typed +102 | [rocblas_cdotc_64](interfacehipfort__rocblas_1_1rocblas__cdotc__64.html "Interface documentation") | C binding, typed +103 | [rocblas_zdotc_64](interfacehipfort__rocblas_1_1rocblas__zdotc__64.html "Interface documentation") | C binding, typed 104 | [rocblas_sdot_batched](interfacehipfort__rocblas_1_1rocblas__sdot__batched.html "Interface documentation") | C binding 105 | [rocblas_ddot_batched](interfacehipfort__rocblas_1_1rocblas__ddot__batched.html "Interface documentation") | C binding 106 | [rocblas_hdot_batched](interfacehipfort__rocblas_1_1rocblas__hdot__batched.html "Interface documentation") | C binding @@ -191,14 +191,14 @@ 187 | [rocblas_daxpy_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__daxpy__strided__batched__64.html "Interface documentation") | C binding, typed 188 | [rocblas_caxpy_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__caxpy__strided__batched__64.html "Interface documentation") | C binding, typed 189 | [rocblas_zaxpy_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__zaxpy__strided__batched__64.html "Interface documentation") | C binding, typed -190 | [rocblas_sasum](interfacehipfort__rocblas_1_1rocblas__sasum.html "Interface documentation") | C binding -191 | [rocblas_dasum](interfacehipfort__rocblas_1_1rocblas__dasum.html "Interface documentation") | C binding -192 | [rocblas_scasum](interfacehipfort__rocblas_1_1rocblas__scasum.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -193 | [rocblas_dzasum](interfacehipfort__rocblas_1_1rocblas__dzasum.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -194 | [rocblas_sasum_64](interfacehipfort__rocblas_1_1rocblas__sasum__64.html "Interface documentation") | C binding -195 | [rocblas_dasum_64](interfacehipfort__rocblas_1_1rocblas__dasum__64.html "Interface documentation") | C binding -196 | [rocblas_scasum_64](interfacehipfort__rocblas_1_1rocblas__scasum__64.html "Interface documentation") | C binding -197 | [rocblas_dzasum_64](interfacehipfort__rocblas_1_1rocblas__dzasum__64.html "Interface documentation") | C binding +190 | [rocblas_sasum](interfacehipfort__rocblas_1_1rocblas__sasum.html "Interface documentation") | C binding, typed +191 | [rocblas_dasum](interfacehipfort__rocblas_1_1rocblas__dasum.html "Interface documentation") | C binding, typed +192 | [rocblas_scasum](interfacehipfort__rocblas_1_1rocblas__scasum.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +193 | [rocblas_dzasum](interfacehipfort__rocblas_1_1rocblas__dzasum.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +194 | [rocblas_sasum_64](interfacehipfort__rocblas_1_1rocblas__sasum__64.html "Interface documentation") | C binding, typed +195 | [rocblas_dasum_64](interfacehipfort__rocblas_1_1rocblas__dasum__64.html "Interface documentation") | C binding, typed +196 | [rocblas_scasum_64](interfacehipfort__rocblas_1_1rocblas__scasum__64.html "Interface documentation") | C binding, typed +197 | [rocblas_dzasum_64](interfacehipfort__rocblas_1_1rocblas__dzasum__64.html "Interface documentation") | C binding, typed 198 | [rocblas_sasum_batched](interfacehipfort__rocblas_1_1rocblas__sasum__batched.html "Interface documentation") | C binding 199 | [rocblas_dasum_batched](interfacehipfort__rocblas_1_1rocblas__dasum__batched.html "Interface documentation") | C binding 200 | [rocblas_scasum_batched](interfacehipfort__rocblas_1_1rocblas__scasum__batched.html "Interface documentation") | C binding @@ -215,14 +215,14 @@ 211 | [rocblas_dasum_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__dasum__strided__batched__64.html "Interface documentation") | C binding 212 | [rocblas_scasum_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__scasum__strided__batched__64.html "Interface documentation") | C binding 213 | [rocblas_dzasum_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__dzasum__strided__batched__64.html "Interface documentation") | C binding -214 | [rocblas_snrm2](interfacehipfort__rocblas_1_1rocblas__snrm2.html "Interface documentation") | C binding -215 | [rocblas_dnrm2](interfacehipfort__rocblas_1_1rocblas__dnrm2.html "Interface documentation") | C binding -216 | [rocblas_scnrm2](interfacehipfort__rocblas_1_1rocblas__scnrm2.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -217 | [rocblas_dznrm2](interfacehipfort__rocblas_1_1rocblas__dznrm2.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -218 | [rocblas_snrm2_64](interfacehipfort__rocblas_1_1rocblas__snrm2__64.html "Interface documentation") | C binding -219 | [rocblas_dnrm2_64](interfacehipfort__rocblas_1_1rocblas__dnrm2__64.html "Interface documentation") | C binding -220 | [rocblas_scnrm2_64](interfacehipfort__rocblas_1_1rocblas__scnrm2__64.html "Interface documentation") | C binding -221 | [rocblas_dznrm2_64](interfacehipfort__rocblas_1_1rocblas__dznrm2__64.html "Interface documentation") | C binding +214 | [rocblas_snrm2](interfacehipfort__rocblas_1_1rocblas__snrm2.html "Interface documentation") | C binding, typed +215 | [rocblas_dnrm2](interfacehipfort__rocblas_1_1rocblas__dnrm2.html "Interface documentation") | C binding, typed +216 | [rocblas_scnrm2](interfacehipfort__rocblas_1_1rocblas__scnrm2.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +217 | [rocblas_dznrm2](interfacehipfort__rocblas_1_1rocblas__dznrm2.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +218 | [rocblas_snrm2_64](interfacehipfort__rocblas_1_1rocblas__snrm2__64.html "Interface documentation") | C binding, typed +219 | [rocblas_dnrm2_64](interfacehipfort__rocblas_1_1rocblas__dnrm2__64.html "Interface documentation") | C binding, typed +220 | [rocblas_scnrm2_64](interfacehipfort__rocblas_1_1rocblas__scnrm2__64.html "Interface documentation") | C binding, typed +221 | [rocblas_dznrm2_64](interfacehipfort__rocblas_1_1rocblas__dznrm2__64.html "Interface documentation") | C binding, typed 222 | [rocblas_snrm2_batched](interfacehipfort__rocblas_1_1rocblas__snrm2__batched.html "Interface documentation") | C binding 223 | [rocblas_dnrm2_batched](interfacehipfort__rocblas_1_1rocblas__dnrm2__batched.html "Interface documentation") | C binding 224 | [rocblas_scnrm2_batched](interfacehipfort__rocblas_1_1rocblas__scnrm2__batched.html "Interface documentation") | C binding @@ -239,14 +239,14 @@ 235 | [rocblas_dnrm2_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__dnrm2__strided__batched__64.html "Interface documentation") | C binding 236 | [rocblas_scnrm2_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__scnrm2__strided__batched__64.html "Interface documentation") | C binding 237 | [rocblas_dznrm2_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__dznrm2__strided__batched__64.html "Interface documentation") | C binding -238 | [rocblas_isamax](interfacehipfort__rocblas_1_1rocblas__isamax.html "Interface documentation") | C binding -239 | [rocblas_idamax](interfacehipfort__rocblas_1_1rocblas__idamax.html "Interface documentation") | C binding -240 | [rocblas_icamax](interfacehipfort__rocblas_1_1rocblas__icamax.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -241 | [rocblas_izamax](interfacehipfort__rocblas_1_1rocblas__izamax.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -242 | [rocblas_isamax_64](interfacehipfort__rocblas_1_1rocblas__isamax__64.html "Interface documentation") | C binding -243 | [rocblas_idamax_64](interfacehipfort__rocblas_1_1rocblas__idamax__64.html "Interface documentation") | C binding -244 | [rocblas_icamax_64](interfacehipfort__rocblas_1_1rocblas__icamax__64.html "Interface documentation") | C binding -245 | [rocblas_izamax_64](interfacehipfort__rocblas_1_1rocblas__izamax__64.html "Interface documentation") | C binding +238 | [rocblas_isamax](interfacehipfort__rocblas_1_1rocblas__isamax.html "Interface documentation") | C binding, typed +239 | [rocblas_idamax](interfacehipfort__rocblas_1_1rocblas__idamax.html "Interface documentation") | C binding, typed +240 | [rocblas_icamax](interfacehipfort__rocblas_1_1rocblas__icamax.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +241 | [rocblas_izamax](interfacehipfort__rocblas_1_1rocblas__izamax.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +242 | [rocblas_isamax_64](interfacehipfort__rocblas_1_1rocblas__isamax__64.html "Interface documentation") | C binding, typed +243 | [rocblas_idamax_64](interfacehipfort__rocblas_1_1rocblas__idamax__64.html "Interface documentation") | C binding, typed +244 | [rocblas_icamax_64](interfacehipfort__rocblas_1_1rocblas__icamax__64.html "Interface documentation") | C binding, typed +245 | [rocblas_izamax_64](interfacehipfort__rocblas_1_1rocblas__izamax__64.html "Interface documentation") | C binding, typed 246 | [rocblas_isamax_batched](interfacehipfort__rocblas_1_1rocblas__isamax__batched.html "Interface documentation") | C binding 247 | [rocblas_idamax_batched](interfacehipfort__rocblas_1_1rocblas__idamax__batched.html "Interface documentation") | C binding 248 | [rocblas_icamax_batched](interfacehipfort__rocblas_1_1rocblas__icamax__batched.html "Interface documentation") | C binding @@ -263,14 +263,14 @@ 259 | [rocblas_idamax_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__idamax__strided__batched__64.html "Interface documentation") | C binding 260 | [rocblas_icamax_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__icamax__strided__batched__64.html "Interface documentation") | C binding 261 | [rocblas_izamax_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__izamax__strided__batched__64.html "Interface documentation") | C binding -262 | [rocblas_isamin](interfacehipfort__rocblas_1_1rocblas__isamin.html "Interface documentation") | C binding -263 | [rocblas_idamin](interfacehipfort__rocblas_1_1rocblas__idamin.html "Interface documentation") | C binding -264 | [rocblas_icamin](interfacehipfort__rocblas_1_1rocblas__icamin.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -265 | [rocblas_izamin](interfacehipfort__rocblas_1_1rocblas__izamin.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -266 | [rocblas_isamin_64](interfacehipfort__rocblas_1_1rocblas__isamin__64.html "Interface documentation") | C binding -267 | [rocblas_idamin_64](interfacehipfort__rocblas_1_1rocblas__idamin__64.html "Interface documentation") | C binding -268 | [rocblas_icamin_64](interfacehipfort__rocblas_1_1rocblas__icamin__64.html "Interface documentation") | C binding -269 | [rocblas_izamin_64](interfacehipfort__rocblas_1_1rocblas__izamin__64.html "Interface documentation") | C binding +262 | [rocblas_isamin](interfacehipfort__rocblas_1_1rocblas__isamin.html "Interface documentation") | C binding, typed +263 | [rocblas_idamin](interfacehipfort__rocblas_1_1rocblas__idamin.html "Interface documentation") | C binding, typed +264 | [rocblas_icamin](interfacehipfort__rocblas_1_1rocblas__icamin.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +265 | [rocblas_izamin](interfacehipfort__rocblas_1_1rocblas__izamin.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +266 | [rocblas_isamin_64](interfacehipfort__rocblas_1_1rocblas__isamin__64.html "Interface documentation") | C binding, typed +267 | [rocblas_idamin_64](interfacehipfort__rocblas_1_1rocblas__idamin__64.html "Interface documentation") | C binding, typed +268 | [rocblas_icamin_64](interfacehipfort__rocblas_1_1rocblas__icamin__64.html "Interface documentation") | C binding, typed +269 | [rocblas_izamin_64](interfacehipfort__rocblas_1_1rocblas__izamin__64.html "Interface documentation") | C binding, typed 270 | [rocblas_isamin_batched](interfacehipfort__rocblas_1_1rocblas__isamin__batched.html "Interface documentation") | C binding 271 | [rocblas_idamin_batched](interfacehipfort__rocblas_1_1rocblas__idamin__batched.html "Interface documentation") | C binding 272 | [rocblas_icamin_batched](interfacehipfort__rocblas_1_1rocblas__icamin__batched.html "Interface documentation") | C binding @@ -287,12 +287,12 @@ 283 | [rocblas_idamin_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__idamin__strided__batched__64.html "Interface documentation") | C binding 284 | [rocblas_icamin_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__icamin__strided__batched__64.html "Interface documentation") | C binding 285 | [rocblas_izamin_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__izamin__strided__batched__64.html "Interface documentation") | C binding -286 | [rocblas_srot](interfacehipfort__rocblas_1_1rocblas__srot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -287 | [rocblas_drot](interfacehipfort__rocblas_1_1rocblas__drot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -288 | [rocblas_crot](interfacehipfort__rocblas_1_1rocblas__crot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -289 | [rocblas_csrot](interfacehipfort__rocblas_1_1rocblas__csrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -290 | [rocblas_zrot](interfacehipfort__rocblas_1_1rocblas__zrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -291 | [rocblas_zdrot](interfacehipfort__rocblas_1_1rocblas__zdrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +286 | [rocblas_srot](interfacehipfort__rocblas_1_1rocblas__srot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +287 | [rocblas_drot](interfacehipfort__rocblas_1_1rocblas__drot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +288 | [rocblas_crot](interfacehipfort__rocblas_1_1rocblas__crot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +289 | [rocblas_csrot](interfacehipfort__rocblas_1_1rocblas__csrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +290 | [rocblas_zrot](interfacehipfort__rocblas_1_1rocblas__zrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +291 | [rocblas_zdrot](interfacehipfort__rocblas_1_1rocblas__zdrot.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr 292 | [rocblas_srot_64](interfacehipfort__rocblas_1_1rocblas__srot__64.html "Interface documentation") | C binding, typed 293 | [rocblas_drot_64](interfacehipfort__rocblas_1_1rocblas__drot__64.html "Interface documentation") | C binding, typed 294 | [rocblas_crot_64](interfacehipfort__rocblas_1_1rocblas__crot__64.html "Interface documentation") | C binding, typed @@ -311,26 +311,26 @@ 307 | [rocblas_csrot_batched_64](interfacehipfort__rocblas_1_1rocblas__csrot__batched__64.html "Interface documentation") | C binding, typed 308 | [rocblas_zrot_batched_64](interfacehipfort__rocblas_1_1rocblas__zrot__batched__64.html "Interface documentation") | C binding, typed 309 | [rocblas_zdrot_batched_64](interfacehipfort__rocblas_1_1rocblas__zdrot__batched__64.html "Interface documentation") | C binding, typed -310 | [rocblas_srot_strided_batched](interfacehipfort__rocblas_1_1rocblas__srot__strided__batched.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -311 | [rocblas_drot_strided_batched](interfacehipfort__rocblas_1_1rocblas__drot__strided__batched.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -312 | [rocblas_crot_strided_batched](interfacehipfort__rocblas_1_1rocblas__crot__strided__batched.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -313 | [rocblas_csrot_strided_batched](interfacehipfort__rocblas_1_1rocblas__csrot__strided__batched.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -314 | [rocblas_zrot_strided_batched](interfacehipfort__rocblas_1_1rocblas__zrot__strided__batched.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -315 | [rocblas_zdrot_strided_batched](interfacehipfort__rocblas_1_1rocblas__zdrot__strided__batched.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +310 | [rocblas_srot_strided_batched](interfacehipfort__rocblas_1_1rocblas__srot__strided__batched.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +311 | [rocblas_drot_strided_batched](interfacehipfort__rocblas_1_1rocblas__drot__strided__batched.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +312 | [rocblas_crot_strided_batched](interfacehipfort__rocblas_1_1rocblas__crot__strided__batched.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +313 | [rocblas_csrot_strided_batched](interfacehipfort__rocblas_1_1rocblas__csrot__strided__batched.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +314 | [rocblas_zrot_strided_batched](interfacehipfort__rocblas_1_1rocblas__zrot__strided__batched.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +315 | [rocblas_zdrot_strided_batched](interfacehipfort__rocblas_1_1rocblas__zdrot__strided__batched.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr 316 | [rocblas_srot_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__srot__strided__batched__64.html "Interface documentation") | C binding, typed 317 | [rocblas_drot_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__drot__strided__batched__64.html "Interface documentation") | C binding, typed 318 | [rocblas_crot_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__crot__strided__batched__64.html "Interface documentation") | C binding, typed 319 | [rocblas_csrot_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__csrot__strided__batched__64.html "Interface documentation") | C binding, typed 320 | [rocblas_zrot_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__zrot__strided__batched__64.html "Interface documentation") | C binding, typed 321 | [rocblas_zdrot_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__zdrot__strided__batched__64.html "Interface documentation") | C binding, typed -322 | [rocblas_srotg](interfacehipfort__rocblas_1_1rocblas__srotg.html "Interface documentation") | C binding -323 | [rocblas_drotg](interfacehipfort__rocblas_1_1rocblas__drotg.html "Interface documentation") | C binding -324 | [rocblas_crotg](interfacehipfort__rocblas_1_1rocblas__crotg.html "Interface documentation") | C binding -325 | [rocblas_zrotg](interfacehipfort__rocblas_1_1rocblas__zrotg.html "Interface documentation") | C binding -326 | [rocblas_srotg_64](interfacehipfort__rocblas_1_1rocblas__srotg__64.html "Interface documentation") | C binding -327 | [rocblas_drotg_64](interfacehipfort__rocblas_1_1rocblas__drotg__64.html "Interface documentation") | C binding -328 | [rocblas_crotg_64](interfacehipfort__rocblas_1_1rocblas__crotg__64.html "Interface documentation") | C binding -329 | [rocblas_zrotg_64](interfacehipfort__rocblas_1_1rocblas__zrotg__64.html "Interface documentation") | C binding +322 | [rocblas_srotg](interfacehipfort__rocblas_1_1rocblas__srotg.html "Interface documentation") | C binding, typed +323 | [rocblas_drotg](interfacehipfort__rocblas_1_1rocblas__drotg.html "Interface documentation") | C binding, typed +324 | [rocblas_crotg](interfacehipfort__rocblas_1_1rocblas__crotg.html "Interface documentation") | C binding, typed +325 | [rocblas_zrotg](interfacehipfort__rocblas_1_1rocblas__zrotg.html "Interface documentation") | C binding, typed +326 | [rocblas_srotg_64](interfacehipfort__rocblas_1_1rocblas__srotg__64.html "Interface documentation") | C binding, typed +327 | [rocblas_drotg_64](interfacehipfort__rocblas_1_1rocblas__drotg__64.html "Interface documentation") | C binding, typed +328 | [rocblas_crotg_64](interfacehipfort__rocblas_1_1rocblas__crotg__64.html "Interface documentation") | C binding, typed +329 | [rocblas_zrotg_64](interfacehipfort__rocblas_1_1rocblas__zrotg__64.html "Interface documentation") | C binding, typed 330 | [rocblas_srotg_batched](interfacehipfort__rocblas_1_1rocblas__srotg__batched.html "Interface documentation") | C binding 331 | [rocblas_drotg_batched](interfacehipfort__rocblas_1_1rocblas__drotg__batched.html "Interface documentation") | C binding 332 | [rocblas_crotg_batched](interfacehipfort__rocblas_1_1rocblas__crotg__batched.html "Interface documentation") | C binding @@ -359,10 +359,10 @@ 355 | [rocblas_drotm_strided_batched](interfacehipfort__rocblas_1_1rocblas__drotm__strided__batched.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 356 | [rocblas_srotm_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__srotm__strided__batched__64.html "Interface documentation") | C binding 357 | [rocblas_drotm_strided_batched_64](interfacehipfort__rocblas_1_1rocblas__drotm__strided__batched__64.html "Interface documentation") | C binding -358 | [rocblas_srotmg](interfacehipfort__rocblas_1_1rocblas__srotmg.html "Interface documentation") | C binding -359 | [rocblas_drotmg](interfacehipfort__rocblas_1_1rocblas__drotmg.html "Interface documentation") | C binding -360 | [rocblas_srotmg_64](interfacehipfort__rocblas_1_1rocblas__srotmg__64.html "Interface documentation") | C binding -361 | [rocblas_drotmg_64](interfacehipfort__rocblas_1_1rocblas__drotmg__64.html "Interface documentation") | C binding +358 | [rocblas_srotmg](interfacehipfort__rocblas_1_1rocblas__srotmg.html "Interface documentation") | C binding, typed +359 | [rocblas_drotmg](interfacehipfort__rocblas_1_1rocblas__drotmg.html "Interface documentation") | C binding, typed +360 | [rocblas_srotmg_64](interfacehipfort__rocblas_1_1rocblas__srotmg__64.html "Interface documentation") | C binding, typed +361 | [rocblas_drotmg_64](interfacehipfort__rocblas_1_1rocblas__drotmg__64.html "Interface documentation") | C binding, typed 362 | [rocblas_srotmg_batched](interfacehipfort__rocblas_1_1rocblas__srotmg__batched.html "Interface documentation") | C binding 363 | [rocblas_drotmg_batched](interfacehipfort__rocblas_1_1rocblas__drotmg__batched.html "Interface documentation") | C binding 364 | [rocblas_srotmg_batched_64](interfacehipfort__rocblas_1_1rocblas__srotmg__batched__64.html "Interface documentation") | C binding diff --git a/docs/doxygen/input/supported_api_rocsolver.md b/docs/doxygen/input/supported_api_rocsolver.md index 2e39b18ce..20010350a 100644 --- a/docs/doxygen/input/supported_api_rocsolver.md +++ b/docs/doxygen/input/supported_api_rocsolver.md @@ -37,10 +37,10 @@ 33 | [rocsolver_dlaswp](interfacehipfort__rocsolver_1_1rocsolver__dlaswp.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank 34 | [rocsolver_claswp](interfacehipfort__rocsolver_1_1rocsolver__claswp.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank 35 | [rocsolver_zlaswp](interfacehipfort__rocsolver_1_1rocsolver__zlaswp.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -36 | [rocsolver_slarfg](interfacehipfort__rocsolver_1_1rocsolver__slarfg.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -37 | [rocsolver_dlarfg](interfacehipfort__rocsolver_1_1rocsolver__dlarfg.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -38 | [rocsolver_clarfg](interfacehipfort__rocsolver_1_1rocsolver__clarfg.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -39 | [rocsolver_zlarfg](interfacehipfort__rocsolver_1_1rocsolver__zlarfg.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +36 | [rocsolver_slarfg](interfacehipfort__rocsolver_1_1rocsolver__slarfg.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, devptr +37 | [rocsolver_dlarfg](interfacehipfort__rocsolver_1_1rocsolver__dlarfg.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, devptr +38 | [rocsolver_clarfg](interfacehipfort__rocsolver_1_1rocsolver__clarfg.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, devptr +39 | [rocsolver_zlarfg](interfacehipfort__rocsolver_1_1rocsolver__zlarfg.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, devptr 40 | [rocsolver_slarfg_64](interfacehipfort__rocsolver_1_1rocsolver__slarfg__64.html "Interface documentation") | C binding, typed 41 | [rocsolver_dlarfg_64](interfacehipfort__rocsolver_1_1rocsolver__dlarfg__64.html "Interface documentation") | C binding, typed 42 | [rocsolver_clarfg_64](interfacehipfort__rocsolver_1_1rocsolver__clarfg__64.html "Interface documentation") | C binding, typed @@ -53,10 +53,10 @@ 49 | [rocsolver_dlarft_64](interfacehipfort__rocsolver_1_1rocsolver__dlarft__64.html "Interface documentation") | C binding 50 | [rocsolver_clarft_64](interfacehipfort__rocsolver_1_1rocsolver__clarft__64.html "Interface documentation") | C binding 51 | [rocsolver_zlarft_64](interfacehipfort__rocsolver_1_1rocsolver__zlarft__64.html "Interface documentation") | C binding -52 | [rocsolver_slarf](interfacehipfort__rocsolver_1_1rocsolver__slarf.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed -53 | [rocsolver_dlarf](interfacehipfort__rocsolver_1_1rocsolver__dlarf.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed -54 | [rocsolver_clarf](interfacehipfort__rocsolver_1_1rocsolver__clarf.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed -55 | [rocsolver_zlarf](interfacehipfort__rocsolver_1_1rocsolver__zlarf.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed +52 | [rocsolver_slarf](interfacehipfort__rocsolver_1_1rocsolver__slarf.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, devptr +53 | [rocsolver_dlarf](interfacehipfort__rocsolver_1_1rocsolver__dlarf.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, devptr +54 | [rocsolver_clarf](interfacehipfort__rocsolver_1_1rocsolver__clarf.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, devptr +55 | [rocsolver_zlarf](interfacehipfort__rocsolver_1_1rocsolver__zlarf.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, devptr 56 | [rocsolver_slarf_64](interfacehipfort__rocsolver_1_1rocsolver__slarf__64.html "Interface documentation") | C binding, typed 57 | [rocsolver_dlarf_64](interfacehipfort__rocsolver_1_1rocsolver__dlarf__64.html "Interface documentation") | C binding, typed 58 | [rocsolver_clarf_64](interfacehipfort__rocsolver_1_1rocsolver__clarf__64.html "Interface documentation") | C binding, typed diff --git a/docs/doxygen/input/supported_api_rocsparse.md b/docs/doxygen/input/supported_api_rocsparse.md index e86cc8dee..ad4f2bae4 100644 --- a/docs/doxygen/input/supported_api_rocsparse.md +++ b/docs/doxygen/input/supported_api_rocsparse.md @@ -198,7 +198,7 @@ 194 | [rocsparse_zcsc2dense](interfacehipfort__rocsparse_1_1rocsparse__zcsc2dense.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank 195 | [rocsparse_cscsort_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__cscsort__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 196 | [rocsparse_cscsort](interfacehipfort__rocsparse_1_1rocsparse__cscsort.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -197 | [rocsparse_csr2bsr_nnz](interfacehipfort__rocsparse_1_1rocsparse__csr2bsr__nnz.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank +197 | [rocsparse_csr2bsr_nnz](interfacehipfort__rocsparse_1_1rocsparse__csr2bsr__nnz.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 198 | [rocsparse_scsr2bsr](interfacehipfort__rocsparse_1_1rocsparse__scsr2bsr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 199 | [rocsparse_dcsr2bsr](interfacehipfort__rocsparse_1_1rocsparse__dcsr2bsr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 200 | [rocsparse_ccsr2bsr](interfacehipfort__rocsparse_1_1rocsparse__ccsr2bsr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank @@ -217,7 +217,7 @@ 213 | [rocsparse_dcsr2dense](interfacehipfort__rocsparse_1_1rocsparse__dcsr2dense.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank 214 | [rocsparse_ccsr2dense](interfacehipfort__rocsparse_1_1rocsparse__ccsr2dense.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank 215 | [rocsparse_zcsr2dense](interfacehipfort__rocsparse_1_1rocsparse__zcsr2dense.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -216 | [rocsparse_csr2ell_width](interfacehipfort__rocsparse_1_1rocsparse__csr2ell__width.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank +216 | [rocsparse_csr2ell_width](interfacehipfort__rocsparse_1_1rocsparse__csr2ell__width.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 217 | [rocsparse_scsr2ell](interfacehipfort__rocsparse_1_1rocsparse__scsr2ell.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 218 | [rocsparse_dcsr2ell](interfacehipfort__rocsparse_1_1rocsparse__dcsr2ell.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 219 | [rocsparse_ccsr2ell](interfacehipfort__rocsparse_1_1rocsparse__ccsr2ell.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank @@ -226,7 +226,7 @@ 222 | [rocsparse_dcsr2gebsr_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__dcsr2gebsr__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 223 | [rocsparse_ccsr2gebsr_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__ccsr2gebsr__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 224 | [rocsparse_zcsr2gebsr_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__zcsr2gebsr__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -225 | [rocsparse_csr2gebsr_nnz](interfacehipfort__rocsparse_1_1rocsparse__csr2gebsr__nnz.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank +225 | [rocsparse_csr2gebsr_nnz](interfacehipfort__rocsparse_1_1rocsparse__csr2gebsr__nnz.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr 226 | [rocsparse_scsr2gebsr](interfacehipfort__rocsparse_1_1rocsparse__scsr2gebsr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 227 | [rocsparse_dcsr2gebsr](interfacehipfort__rocsparse_1_1rocsparse__dcsr2gebsr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 228 | [rocsparse_ccsr2gebsr](interfacehipfort__rocsparse_1_1rocsparse__ccsr2gebsr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank @@ -249,7 +249,7 @@ 245 | [rocsparse_ddense2csr](interfacehipfort__rocsparse_1_1rocsparse__ddense2csr.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank 246 | [rocsparse_cdense2csr](interfacehipfort__rocsparse_1_1rocsparse__cdense2csr.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank 247 | [rocsparse_zdense2csr](interfacehipfort__rocsparse_1_1rocsparse__zdense2csr.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -248 | [rocsparse_ell2csr_nnz](interfacehipfort__rocsparse_1_1rocsparse__ell2csr__nnz.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank +248 | [rocsparse_ell2csr_nnz](interfacehipfort__rocsparse_1_1rocsparse__ell2csr__nnz.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 249 | [rocsparse_sell2csr](interfacehipfort__rocsparse_1_1rocsparse__sell2csr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 250 | [rocsparse_dell2csr](interfacehipfort__rocsparse_1_1rocsparse__dell2csr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 251 | [rocsparse_cell2csr](interfacehipfort__rocsparse_1_1rocsparse__cell2csr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank @@ -258,10 +258,10 @@ 254 | [rocsparse_dgebsr2csr](interfacehipfort__rocsparse_1_1rocsparse__dgebsr2csr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 255 | [rocsparse_cgebsr2csr](interfacehipfort__rocsparse_1_1rocsparse__cgebsr2csr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 256 | [rocsparse_zgebsr2csr](interfacehipfort__rocsparse_1_1rocsparse__zgebsr2csr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -257 | [rocsparse_sgebsr2gebsc_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__sgebsr2gebsc__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -258 | [rocsparse_dgebsr2gebsc_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__dgebsr2gebsc__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -259 | [rocsparse_cgebsr2gebsc_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__cgebsr2gebsc__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -260 | [rocsparse_zgebsr2gebsc_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__zgebsr2gebsc__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +257 | [rocsparse_sgebsr2gebsc_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__sgebsr2gebsc__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +258 | [rocsparse_dgebsr2gebsc_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__dgebsr2gebsc__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +259 | [rocsparse_cgebsr2gebsc_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__cgebsr2gebsc__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr +260 | [rocsparse_zgebsr2gebsc_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__zgebsr2gebsc__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr 261 | [rocsparse_sgebsr2gebsc](interfacehipfort__rocsparse_1_1rocsparse__sgebsr2gebsc.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 262 | [rocsparse_dgebsr2gebsc](interfacehipfort__rocsparse_1_1rocsparse__dgebsr2gebsc.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 263 | [rocsparse_cgebsr2gebsc](interfacehipfort__rocsparse_1_1rocsparse__cgebsr2gebsc.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank @@ -287,10 +287,10 @@ 283 | [rocsparse_dnnz](interfacehipfort__rocsparse_1_1rocsparse__dnnz.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed 284 | [rocsparse_cnnz](interfacehipfort__rocsparse_1_1rocsparse__cnnz.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed 285 | [rocsparse_znnz](interfacehipfort__rocsparse_1_1rocsparse__znnz.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed -286 | [rocsparse_snnz_compress](interfacehipfort__rocsparse_1_1rocsparse__snnz__compress.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -287 | [rocsparse_dnnz_compress](interfacehipfort__rocsparse_1_1rocsparse__dnnz__compress.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -288 | [rocsparse_cnnz_compress](interfacehipfort__rocsparse_1_1rocsparse__cnnz__compress.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -289 | [rocsparse_znnz_compress](interfacehipfort__rocsparse_1_1rocsparse__znnz__compress.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank +286 | [rocsparse_snnz_compress](interfacehipfort__rocsparse_1_1rocsparse__snnz__compress.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +287 | [rocsparse_dnnz_compress](interfacehipfort__rocsparse_1_1rocsparse__dnnz__compress.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +288 | [rocsparse_cnnz_compress](interfacehipfort__rocsparse_1_1rocsparse__cnnz__compress.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +289 | [rocsparse_znnz_compress](interfacehipfort__rocsparse_1_1rocsparse__znnz__compress.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 290 | [rocsparse_sprune_csr2csr_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__sprune__csr2csr__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr 291 | [rocsparse_dprune_csr2csr_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__dprune__csr2csr__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr 292 | [rocsparse_sprune_csr2csr_nnz](interfacehipfort__rocsparse_1_1rocsparse__sprune__csr2csr__nnz.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed @@ -315,7 +315,7 @@ 311 | [rocsparse_dprune_dense2csr_nnz_by_percentage](interfacehipfort__rocsparse_1_1rocsparse__dprune__dense2csr__nnz__by__percentage.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank, typed 312 | [rocsparse_sprune_dense2csr_by_percentage](interfacehipfort__rocsparse_1_1rocsparse__sprune__dense2csr__by__percentage.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank 313 | [rocsparse_dprune_dense2csr_by_percentage](interfacehipfort__rocsparse_1_1rocsparse__dprune__dense2csr__by__percentage.html "Interface documentation") | C binding, full_rank, rank_0, rank_1, assumed_rank -314 | [rocsparse_bsrgeam_nnzb](interfacehipfort__rocsparse_1_1rocsparse__bsrgeam__nnzb.html "Interface documentation") | C binding +314 | [rocsparse_bsrgeam_nnzb](interfacehipfort__rocsparse_1_1rocsparse__bsrgeam__nnzb.html "Interface documentation") | C binding, typed 315 | [rocsparse_sbsrgeam](interfacehipfort__rocsparse_1_1rocsparse__sbsrgeam.html "Interface documentation") | C binding, typed 316 | [rocsparse_dbsrgeam](interfacehipfort__rocsparse_1_1rocsparse__dbsrgeam.html "Interface documentation") | C binding, typed 317 | [rocsparse_cbsrgeam](interfacehipfort__rocsparse_1_1rocsparse__cbsrgeam.html "Interface documentation") | C binding, typed @@ -324,12 +324,12 @@ 320 | [rocsparse_dbsrgemm_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__dbsrgemm__buffer__size.html "Interface documentation") | C binding, typed 321 | [rocsparse_cbsrgemm_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__cbsrgemm__buffer__size.html "Interface documentation") | C binding, typed 322 | [rocsparse_zbsrgemm_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__zbsrgemm__buffer__size.html "Interface documentation") | C binding, typed -323 | [rocsparse_bsrgemm_nnzb](interfacehipfort__rocsparse_1_1rocsparse__bsrgemm__nnzb.html "Interface documentation") | C binding +323 | [rocsparse_bsrgemm_nnzb](interfacehipfort__rocsparse_1_1rocsparse__bsrgemm__nnzb.html "Interface documentation") | C binding, typed 324 | [rocsparse_sbsrgemm](interfacehipfort__rocsparse_1_1rocsparse__sbsrgemm.html "Interface documentation") | C binding, typed 325 | [rocsparse_dbsrgemm](interfacehipfort__rocsparse_1_1rocsparse__dbsrgemm.html "Interface documentation") | C binding, typed 326 | [rocsparse_cbsrgemm](interfacehipfort__rocsparse_1_1rocsparse__cbsrgemm.html "Interface documentation") | C binding, typed 327 | [rocsparse_zbsrgemm](interfacehipfort__rocsparse_1_1rocsparse__zbsrgemm.html "Interface documentation") | C binding, typed -328 | [rocsparse_csrgeam_nnz](interfacehipfort__rocsparse_1_1rocsparse__csrgeam__nnz.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank +328 | [rocsparse_csrgeam_nnz](interfacehipfort__rocsparse_1_1rocsparse__csrgeam__nnz.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 329 | [rocsparse_scsrgeam](interfacehipfort__rocsparse_1_1rocsparse__scsrgeam.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 330 | [rocsparse_dcsrgeam](interfacehipfort__rocsparse_1_1rocsparse__dcsrgeam.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 331 | [rocsparse_ccsrgeam](interfacehipfort__rocsparse_1_1rocsparse__ccsrgeam.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed @@ -338,7 +338,7 @@ 334 | [rocsparse_dcsrgemm_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__dcsrgemm__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr 335 | [rocsparse_ccsrgemm_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__ccsrgemm__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr 336 | [rocsparse_zcsrgemm_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__zcsrgemm__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed, devptr -337 | [rocsparse_csrgemm_nnz](interfacehipfort__rocsparse_1_1rocsparse__csrgemm__nnz.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank +337 | [rocsparse_csrgemm_nnz](interfacehipfort__rocsparse_1_1rocsparse__csrgemm__nnz.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 338 | [rocsparse_scsrgemm](interfacehipfort__rocsparse_1_1rocsparse__scsrgemm.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 339 | [rocsparse_dcsrgemm](interfacehipfort__rocsparse_1_1rocsparse__dcsrgemm.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 340 | [rocsparse_ccsrgemm](interfacehipfort__rocsparse_1_1rocsparse__ccsrgemm.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed @@ -391,12 +391,12 @@ 387 | [rocsparse_daxpyi](interfacehipfort__rocsparse_1_1rocsparse__daxpyi.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 388 | [rocsparse_caxpyi](interfacehipfort__rocsparse_1_1rocsparse__caxpyi.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 389 | [rocsparse_zaxpyi](interfacehipfort__rocsparse_1_1rocsparse__zaxpyi.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -390 | [rocsparse_cdotci](interfacehipfort__rocsparse_1_1rocsparse__cdotci.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -391 | [rocsparse_zdotci](interfacehipfort__rocsparse_1_1rocsparse__zdotci.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -392 | [rocsparse_sdoti](interfacehipfort__rocsparse_1_1rocsparse__sdoti.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -393 | [rocsparse_ddoti](interfacehipfort__rocsparse_1_1rocsparse__ddoti.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -394 | [rocsparse_cdoti](interfacehipfort__rocsparse_1_1rocsparse__cdoti.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank -395 | [rocsparse_zdoti](interfacehipfort__rocsparse_1_1rocsparse__zdoti.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank +390 | [rocsparse_cdotci](interfacehipfort__rocsparse_1_1rocsparse__cdotci.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +391 | [rocsparse_zdotci](interfacehipfort__rocsparse_1_1rocsparse__zdotci.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +392 | [rocsparse_sdoti](interfacehipfort__rocsparse_1_1rocsparse__sdoti.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +393 | [rocsparse_ddoti](interfacehipfort__rocsparse_1_1rocsparse__ddoti.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +394 | [rocsparse_cdoti](interfacehipfort__rocsparse_1_1rocsparse__cdoti.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed +395 | [rocsparse_zdoti](interfacehipfort__rocsparse_1_1rocsparse__zdoti.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 396 | [rocsparse_sgthr](interfacehipfort__rocsparse_1_1rocsparse__sgthr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 397 | [rocsparse_dgthr](interfacehipfort__rocsparse_1_1rocsparse__dgthr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 398 | [rocsparse_cgthr](interfacehipfort__rocsparse_1_1rocsparse__cgthr.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank @@ -443,7 +443,7 @@ 439 | [rocsparse_dcoomv](interfacehipfort__rocsparse_1_1rocsparse__dcoomv.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 440 | [rocsparse_ccoomv](interfacehipfort__rocsparse_1_1rocsparse__ccoomv.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed 441 | [rocsparse_zcoomv](interfacehipfort__rocsparse_1_1rocsparse__zcoomv.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed -442 | [rocsparse_csritsv_zero_pivot](interfacehipfort__rocsparse_1_1rocsparse__csritsv__zero__pivot.html "Interface documentation") | C binding +442 | [rocsparse_csritsv_zero_pivot](interfacehipfort__rocsparse_1_1rocsparse__csritsv__zero__pivot.html "Interface documentation") | C binding, typed 443 | [rocsparse_scsritsv_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__scsritsv__buffer__size.html "Interface documentation") | C binding, typed 444 | [rocsparse_dcsritsv_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__dcsritsv__buffer__size.html "Interface documentation") | C binding, typed 445 | [rocsparse_ccsritsv_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__ccsritsv__buffer__size.html "Interface documentation") | C binding, typed @@ -583,7 +583,7 @@ 579 | [rocsparse_cbsrilu0](interfacehipfort__rocsparse_1_1rocsparse__cbsrilu0.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 580 | [rocsparse_zbsrilu0](interfacehipfort__rocsparse_1_1rocsparse__zbsrilu0.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank 581 | [rocsparse_csric0_zero_pivot](interfacehipfort__rocsparse_1_1rocsparse__csric0__zero__pivot.html "Interface documentation") | C binding, typed -582 | [rocsparse_csric0_singular_pivot](interfacehipfort__rocsparse_1_1rocsparse__csric0__singular__pivot.html "Interface documentation") | C binding +582 | [rocsparse_csric0_singular_pivot](interfacehipfort__rocsparse_1_1rocsparse__csric0__singular__pivot.html "Interface documentation") | C binding, typed 583 | [rocsparse_csric0_set_tolerance](interfacehipfort__rocsparse_1_1rocsparse__csric0__set__tolerance.html "Interface documentation") | C binding 584 | [rocsparse_csric0_get_tolerance](interfacehipfort__rocsparse_1_1rocsparse__csric0__get__tolerance.html "Interface documentation") | C binding, typed 585 | [rocsparse_scsric0_buffer_size](interfacehipfort__rocsparse_1_1rocsparse__scsric0__buffer__size.html "Interface documentation") | C binding, rank_0, rank_1, assumed_rank, typed @@ -602,7 +602,7 @@ 598 | [rocsparse_csrilu0_zero_pivot](interfacehipfort__rocsparse_1_1rocsparse__csrilu0__zero__pivot.html "Interface documentation") | C binding, typed 599 | [rocsparse_csrilu0_set_tolerance](interfacehipfort__rocsparse_1_1rocsparse__csrilu0__set__tolerance.html "Interface documentation") | C binding 600 | [rocsparse_csrilu0_get_tolerance](interfacehipfort__rocsparse_1_1rocsparse__csrilu0__get__tolerance.html "Interface documentation") | C binding, typed -601 | [rocsparse_csrilu0_singular_pivot](interfacehipfort__rocsparse_1_1rocsparse__csrilu0__singular__pivot.html "Interface documentation") | C binding +601 | [rocsparse_csrilu0_singular_pivot](interfacehipfort__rocsparse_1_1rocsparse__csrilu0__singular__pivot.html "Interface documentation") | C binding, typed 602 | [rocsparse_scsrilu0_numeric_boost](interfacehipfort__rocsparse_1_1rocsparse__scsrilu0__numeric__boost.html "Interface documentation") | C binding, typed 603 | [rocsparse_dcsrilu0_numeric_boost](interfacehipfort__rocsparse_1_1rocsparse__dcsrilu0__numeric__boost.html "Interface documentation") | C binding, typed 604 | [rocsparse_ccsrilu0_numeric_boost](interfacehipfort__rocsparse_1_1rocsparse__ccsrilu0__numeric__boost.html "Interface documentation") | C binding, typed diff --git a/lib/hipfort/hipfort.F90 b/lib/hipfort/hipfort.F90 index e54827e09..39ee772eb 100644 --- a/lib/hipfort/hipfort.F90 +++ b/lib/hipfort/hipfort.F90 @@ -963,6 +963,8 @@ function hipChooseDeviceR0600_(device,prop) bind(c, name="hipChooseDeviceR0600") type(c_ptr),value :: device type(hipDeviceProp_t) :: prop end function + + module procedure hipChooseDeviceR0600_typed end interface !> @brief Returns the link type and hop count between two devices @@ -6203,6 +6205,8 @@ function hipMemcpyBatchAsync_(dsts,srcs,sizes,count,attrs,attrsIdxs,numAttrs,fai type(c_ptr),value :: failIdx type(c_ptr),value :: stream end function + + module procedure hipMemcpyBatchAsync_typed end interface !> @brief Perform Batch of 3D copies @@ -6234,6 +6238,8 @@ function hipMemcpy3DBatchAsync_(numOps,opList,failIdx,flags,stream) & integer(c_int64_t),value :: flags type(c_ptr),value :: stream end function + + module procedure hipMemcpy3DBatchAsync_typed end interface !> @brief Performs 3D memory copies between devices @@ -6529,6 +6535,8 @@ function hipDevSmResourceSplitByCount_(myResult,nbGroups,input,remainder,flags,m integer(c_int),value :: flags integer(c_int),value :: minCount end function + + module procedure hipDevSmResourceSplitByCount_typed end interface #endif @@ -14261,19 +14269,9 @@ function hipGetProcAddress_spt_(symbol,pfn,hipVersion,flags,symbolStatus) & !> !> @returns `hipSuccess`, `hipErrorInvalidValue` interface hipChooseDevice -#ifdef USE_CUDA_NAMES - function hipChooseDevice_(device,prop) bind(c, name="cudaChooseDevice") -#else - function hipChooseDevice_(device,prop) bind(c, name="hipChooseDeviceR0600") -#endif - use iso_c_binding - use hipfort_enums - use hipfort_types - implicit none - integer(kind(hipSuccess)) :: hipChooseDevice_ - type(c_ptr),value :: device - type(hipDeviceProp_t) :: prop - end function + procedure hipChooseDeviceR0600_ + + module procedure hipChooseDeviceR0600_typed end interface @@ -14466,6 +14464,18 @@ function hipGetDeviceFlags_typed(flags) hipGetDeviceFlags_typed = hipGetDeviceFlags_(c_loc(flags)) end function + function hipChooseDeviceR0600_typed(device,prop) + use iso_c_binding + use hipfort_enums + use hipfort_types + implicit none + integer(kind(hipSuccess)) :: hipChooseDeviceR0600_typed + integer(c_int),target :: device + type(hipDeviceProp_t) :: prop + ! + hipChooseDeviceR0600_typed = hipChooseDeviceR0600_(c_loc(device),prop) + end function + #ifndef USE_CUDA_NAMES function hipExtGetLinkTypeAndHopCount_typed(device1,device2,linktype,hopcount) use iso_c_binding @@ -14693,6 +14703,43 @@ function hipMemGetAddressRange_typed(pbase,psize,dptr) end function #endif + function hipMemcpyBatchAsync_typed(dsts,srcs,sizes,count,attrs,attrsIdxs,numAttrs,failIdx, & + stream) + use iso_c_binding + use hipfort_enums + use hipfort_types + implicit none + integer(kind(hipSuccess)) :: hipMemcpyBatchAsync_typed + type(c_ptr) :: dsts + type(c_ptr) :: srcs + type(c_ptr) :: sizes + integer(c_size_t) :: count + type(hipMemcpyAttributes) :: attrs + type(c_ptr) :: attrsIdxs + integer(c_size_t) :: numAttrs + integer(c_size_t),target :: failIdx + type(c_ptr) :: stream + ! + hipMemcpyBatchAsync_typed = hipMemcpyBatchAsync_(dsts,srcs,sizes,count,attrs,attrsIdxs, & + numAttrs,c_loc(failIdx),stream) + end function + + function hipMemcpy3DBatchAsync_typed(numOps,opList,failIdx,flags,stream) + use iso_c_binding + use hipfort_enums + use hipfort_types + implicit none + integer(kind(hipSuccess)) :: hipMemcpy3DBatchAsync_typed + integer(c_size_t) :: numOps + type(hipMemcpy3DBatchOp) :: opList + integer(c_size_t),target :: failIdx + integer(c_int64_t) :: flags + type(c_ptr) :: stream + ! + hipMemcpy3DBatchAsync_typed = hipMemcpy3DBatchAsync_(numOps,opList,c_loc(failIdx),flags, & + stream) + end function + function hipDeviceCanAccessPeer_typed(canAccessPeer,deviceId,peerDeviceId) use iso_c_binding use hipfort_enums @@ -14706,6 +14753,25 @@ function hipDeviceCanAccessPeer_typed(canAccessPeer,deviceId,peerDeviceId) peerDeviceId) end function +#ifndef USE_CUDA_NAMES + function hipDevSmResourceSplitByCount_typed(myResult,nbGroups,input,remainder,flags,minCount) + use iso_c_binding + use hipfort_enums + use hipfort_types + implicit none + integer(kind(hipSuccess)) :: hipDevSmResourceSplitByCount_typed + type(hipDevResource) :: myResult + integer(c_int),target :: nbGroups + type(hipDevResource) :: input + type(hipDevResource) :: remainder + integer(c_int) :: flags + integer(c_int) :: minCount + ! + hipDevSmResourceSplitByCount_typed = hipDevSmResourceSplitByCount_(myResult,c_loc(nbGroups), & + input,remainder,flags,minCount) + end function + +#endif #ifndef USE_CUDA_NAMES function hipExecutionCtxGetDevice_typed(device,ctx) use iso_c_binding diff --git a/lib/hipfort/hipfort_hipblas.F90 b/lib/hipfort/hipfort_hipblas.F90 index 01b04da96..8454ce13f 100644 --- a/lib/hipfort/hipfort_hipblas.F90 +++ b/lib/hipfort/hipfort_hipblas.F90 @@ -382,13 +382,19 @@ function hipblasIsamax_(handle,n,x,incx,myResult) bind(c, name="hipblasIsamax") type(c_ptr),value :: myResult end function + module procedure hipblasIsamax_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasIsamax_assumed_rank + module procedure & + hipblasIsamax_assumed_rank,& + hipblasIsamax_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIsamax_rank_0,& - hipblasIsamax_rank_1 + hipblasIsamax_rank_0_devptr,& + hipblasIsamax_rank_1,& + hipblasIsamax_rank_1_devptr #endif #endif end interface @@ -410,13 +416,19 @@ function hipblasIdamax_(handle,n,x,incx,myResult) bind(c, name="hipblasIdamax") type(c_ptr),value :: myResult end function + module procedure hipblasIdamax_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasIdamax_assumed_rank + module procedure & + hipblasIdamax_assumed_rank,& + hipblasIdamax_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIdamax_rank_0,& - hipblasIdamax_rank_1 + hipblasIdamax_rank_0_devptr,& + hipblasIdamax_rank_1,& + hipblasIdamax_rank_1_devptr #endif #endif end interface @@ -438,13 +450,19 @@ function hipblasIcamax_(handle,n,x,incx,myResult) bind(c, name="hipblasIcamax") type(c_ptr),value :: myResult end function + module procedure hipblasIcamax_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasIcamax_assumed_rank + module procedure & + hipblasIcamax_assumed_rank,& + hipblasIcamax_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIcamax_rank_0,& - hipblasIcamax_rank_1 + hipblasIcamax_rank_0_devptr,& + hipblasIcamax_rank_1,& + hipblasIcamax_rank_1_devptr #endif #endif end interface @@ -466,13 +484,19 @@ function hipblasIzamax_(handle,n,x,incx,myResult) bind(c, name="hipblasIzamax") type(c_ptr),value :: myResult end function + module procedure hipblasIzamax_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasIzamax_assumed_rank + module procedure & + hipblasIzamax_assumed_rank,& + hipblasIzamax_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIzamax_rank_0,& - hipblasIzamax_rank_1 + hipblasIzamax_rank_0_devptr,& + hipblasIzamax_rank_1,& + hipblasIzamax_rank_1_devptr #endif #endif end interface @@ -493,6 +517,8 @@ function hipblasIsamax_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIsamax integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure hipblasIsamax_64_typed end interface interface hipblasIdamax_64 @@ -511,6 +537,8 @@ function hipblasIdamax_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIdamax integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure hipblasIdamax_64_typed end interface interface hipblasIcamax_64 @@ -529,6 +557,8 @@ function hipblasIcamax_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIcamax integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure hipblasIcamax_64_typed end interface interface hipblasIzamax_64 @@ -547,6 +577,8 @@ function hipblasIzamax_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIzamax integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure hipblasIzamax_64_typed end interface !> \brief BLAS Level 1 API @@ -965,13 +997,19 @@ function hipblasIsamin_(handle,n,x,incx,myResult) bind(c, name="hipblasIsamin") type(c_ptr),value :: myResult end function + module procedure hipblasIsamin_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasIsamin_assumed_rank + module procedure & + hipblasIsamin_assumed_rank,& + hipblasIsamin_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIsamin_rank_0,& - hipblasIsamin_rank_1 + hipblasIsamin_rank_0_devptr,& + hipblasIsamin_rank_1,& + hipblasIsamin_rank_1_devptr #endif #endif end interface @@ -993,13 +1031,19 @@ function hipblasIdamin_(handle,n,x,incx,myResult) bind(c, name="hipblasIdamin") type(c_ptr),value :: myResult end function + module procedure hipblasIdamin_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasIdamin_assumed_rank + module procedure & + hipblasIdamin_assumed_rank,& + hipblasIdamin_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIdamin_rank_0,& - hipblasIdamin_rank_1 + hipblasIdamin_rank_0_devptr,& + hipblasIdamin_rank_1,& + hipblasIdamin_rank_1_devptr #endif #endif end interface @@ -1021,13 +1065,19 @@ function hipblasIcamin_(handle,n,x,incx,myResult) bind(c, name="hipblasIcamin") type(c_ptr),value :: myResult end function + module procedure hipblasIcamin_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasIcamin_assumed_rank + module procedure & + hipblasIcamin_assumed_rank,& + hipblasIcamin_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIcamin_rank_0,& - hipblasIcamin_rank_1 + hipblasIcamin_rank_0_devptr,& + hipblasIcamin_rank_1,& + hipblasIcamin_rank_1_devptr #endif #endif end interface @@ -1049,13 +1099,19 @@ function hipblasIzamin_(handle,n,x,incx,myResult) bind(c, name="hipblasIzamin") type(c_ptr),value :: myResult end function + module procedure hipblasIzamin_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasIzamin_assumed_rank + module procedure & + hipblasIzamin_assumed_rank,& + hipblasIzamin_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasIzamin_rank_0,& - hipblasIzamin_rank_1 + hipblasIzamin_rank_0_devptr,& + hipblasIzamin_rank_1,& + hipblasIzamin_rank_1_devptr #endif #endif end interface @@ -1076,6 +1132,8 @@ function hipblasIsamin_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIsamin integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure hipblasIsamin_64_typed end interface interface hipblasIdamin_64 @@ -1094,6 +1152,8 @@ function hipblasIdamin_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIdamin integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure hipblasIdamin_64_typed end interface interface hipblasIcamin_64 @@ -1112,6 +1172,8 @@ function hipblasIcamin_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIcamin integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure hipblasIcamin_64_typed end interface interface hipblasIzamin_64 @@ -1130,6 +1192,8 @@ function hipblasIzamin_64_(handle,n,x,incx,myResult) bind(c, name="hipblasIzamin integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure hipblasIzamin_64_typed end interface !> \brief BLAS Level 1 API @@ -1549,13 +1613,19 @@ function hipblasSasum_(handle,n,x,incx,myResult) bind(c, name="hipblasSasum") type(c_ptr),value :: myResult end function + module procedure hipblasSasum_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasSasum_assumed_rank + module procedure & + hipblasSasum_assumed_rank,& + hipblasSasum_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSasum_rank_0,& - hipblasSasum_rank_1 + hipblasSasum_rank_0_devptr,& + hipblasSasum_rank_1,& + hipblasSasum_rank_1_devptr #endif #endif end interface @@ -1577,13 +1647,19 @@ function hipblasDasum_(handle,n,x,incx,myResult) bind(c, name="hipblasDasum") type(c_ptr),value :: myResult end function + module procedure hipblasDasum_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasDasum_assumed_rank + module procedure & + hipblasDasum_assumed_rank,& + hipblasDasum_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDasum_rank_0,& - hipblasDasum_rank_1 + hipblasDasum_rank_0_devptr,& + hipblasDasum_rank_1,& + hipblasDasum_rank_1_devptr #endif #endif end interface @@ -1605,13 +1681,19 @@ function hipblasScasum_(handle,n,x,incx,myResult) bind(c, name="hipblasScasum") type(c_ptr),value :: myResult end function + module procedure hipblasScasum_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasScasum_assumed_rank + module procedure & + hipblasScasum_assumed_rank,& + hipblasScasum_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasScasum_rank_0,& - hipblasScasum_rank_1 + hipblasScasum_rank_0_devptr,& + hipblasScasum_rank_1,& + hipblasScasum_rank_1_devptr #endif #endif end interface @@ -1633,13 +1715,19 @@ function hipblasDzasum_(handle,n,x,incx,myResult) bind(c, name="hipblasDzasum") type(c_ptr),value :: myResult end function + module procedure hipblasDzasum_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasDzasum_assumed_rank + module procedure & + hipblasDzasum_assumed_rank,& + hipblasDzasum_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDzasum_rank_0,& - hipblasDzasum_rank_1 + hipblasDzasum_rank_0_devptr,& + hipblasDzasum_rank_1,& + hipblasDzasum_rank_1_devptr #endif #endif end interface @@ -1660,6 +1748,8 @@ function hipblasSasum_64_(handle,n,x,incx,myResult) bind(c, name="hipblasSasum_6 integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure hipblasSasum_64_typed end interface interface hipblasDasum_64 @@ -1678,6 +1768,8 @@ function hipblasDasum_64_(handle,n,x,incx,myResult) bind(c, name="hipblasDasum_6 integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure hipblasDasum_64_typed end interface interface hipblasScasum_64 @@ -1696,6 +1788,8 @@ function hipblasScasum_64_(handle,n,x,incx,myResult) bind(c, name="hipblasScasum integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure hipblasScasum_64_typed end interface interface hipblasDzasum_64 @@ -1714,6 +1808,8 @@ function hipblasDzasum_64_(handle,n,x,incx,myResult) bind(c, name="hipblasDzasum integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure hipblasDzasum_64_typed end interface !> \brief BLAS Level 1 API @@ -3642,13 +3738,19 @@ function hipblasSdot_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasSdot type(c_ptr),value :: myResult end function + module procedure hipblasSdot_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasSdot_assumed_rank + module procedure & + hipblasSdot_assumed_rank,& + hipblasSdot_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSdot_rank_0,& - hipblasSdot_rank_1 + hipblasSdot_rank_0_devptr,& + hipblasSdot_rank_1,& + hipblasSdot_rank_1_devptr #endif #endif end interface @@ -3672,13 +3774,19 @@ function hipblasDdot_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasDdot type(c_ptr),value :: myResult end function + module procedure hipblasDdot_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasDdot_assumed_rank + module procedure & + hipblasDdot_assumed_rank,& + hipblasDdot_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDdot_rank_0,& - hipblasDdot_rank_1 + hipblasDdot_rank_0_devptr,& + hipblasDdot_rank_1,& + hipblasDdot_rank_1_devptr #endif #endif end interface @@ -3702,13 +3810,19 @@ function hipblasCdotc_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasCdo type(c_ptr),value :: myResult end function + module procedure hipblasCdotc_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasCdotc_assumed_rank + module procedure & + hipblasCdotc_assumed_rank,& + hipblasCdotc_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCdotc_rank_0,& - hipblasCdotc_rank_1 + hipblasCdotc_rank_0_devptr,& + hipblasCdotc_rank_1,& + hipblasCdotc_rank_1_devptr #endif #endif end interface @@ -3732,13 +3846,19 @@ function hipblasCdotu_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasCdo type(c_ptr),value :: myResult end function + module procedure hipblasCdotu_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasCdotu_assumed_rank + module procedure & + hipblasCdotu_assumed_rank,& + hipblasCdotu_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCdotu_rank_0,& - hipblasCdotu_rank_1 + hipblasCdotu_rank_0_devptr,& + hipblasCdotu_rank_1,& + hipblasCdotu_rank_1_devptr #endif #endif end interface @@ -3762,13 +3882,19 @@ function hipblasZdotc_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasZdo type(c_ptr),value :: myResult end function + module procedure hipblasZdotc_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasZdotc_assumed_rank + module procedure & + hipblasZdotc_assumed_rank,& + hipblasZdotc_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZdotc_rank_0,& - hipblasZdotc_rank_1 + hipblasZdotc_rank_0_devptr,& + hipblasZdotc_rank_1,& + hipblasZdotc_rank_1_devptr #endif #endif end interface @@ -3792,13 +3918,19 @@ function hipblasZdotu_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasZdo type(c_ptr),value :: myResult end function + module procedure hipblasZdotu_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasZdotu_assumed_rank + module procedure & + hipblasZdotu_assumed_rank,& + hipblasZdotu_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZdotu_rank_0,& - hipblasZdotu_rank_1 + hipblasZdotu_rank_0_devptr,& + hipblasZdotu_rank_1,& + hipblasZdotu_rank_1_devptr #endif #endif end interface @@ -3857,6 +3989,8 @@ function hipblasSdot_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasS integer(c_int64_t),value :: incy type(c_ptr),value :: myResult end function + + module procedure hipblasSdot_64_typed end interface interface hipblasDdot_64 @@ -3877,6 +4011,8 @@ function hipblasDdot_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblasD integer(c_int64_t),value :: incy type(c_ptr),value :: myResult end function + + module procedure hipblasDdot_64_typed end interface interface hipblasCdotc_64 @@ -3897,6 +4033,8 @@ function hipblasCdotc_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblas integer(c_int64_t),value :: incy type(c_ptr),value :: myResult end function + + module procedure hipblasCdotc_64_typed end interface interface hipblasCdotu_64 @@ -3917,6 +4055,8 @@ function hipblasCdotu_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblas integer(c_int64_t),value :: incy type(c_ptr),value :: myResult end function + + module procedure hipblasCdotu_64_typed end interface interface hipblasZdotc_64 @@ -3937,6 +4077,8 @@ function hipblasZdotc_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblas integer(c_int64_t),value :: incy type(c_ptr),value :: myResult end function + + module procedure hipblasZdotc_64_typed end interface interface hipblasZdotu_64 @@ -3957,6 +4099,8 @@ function hipblasZdotu_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="hipblas integer(c_int64_t),value :: incy type(c_ptr),value :: myResult end function + + module procedure hipblasZdotu_64_typed end interface !> \brief BLAS Level 1 API @@ -4818,13 +4962,19 @@ function hipblasSnrm2_(handle,n,x,incx,myResult) bind(c, name="hipblasSnrm2") type(c_ptr),value :: myResult end function + module procedure hipblasSnrm2_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasSnrm2_assumed_rank + module procedure & + hipblasSnrm2_assumed_rank,& + hipblasSnrm2_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSnrm2_rank_0,& - hipblasSnrm2_rank_1 + hipblasSnrm2_rank_0_devptr,& + hipblasSnrm2_rank_1,& + hipblasSnrm2_rank_1_devptr #endif #endif end interface @@ -4846,13 +4996,19 @@ function hipblasDnrm2_(handle,n,x,incx,myResult) bind(c, name="hipblasDnrm2") type(c_ptr),value :: myResult end function + module procedure hipblasDnrm2_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasDnrm2_assumed_rank + module procedure & + hipblasDnrm2_assumed_rank,& + hipblasDnrm2_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDnrm2_rank_0,& - hipblasDnrm2_rank_1 + hipblasDnrm2_rank_0_devptr,& + hipblasDnrm2_rank_1,& + hipblasDnrm2_rank_1_devptr #endif #endif end interface @@ -4874,13 +5030,19 @@ function hipblasScnrm2_(handle,n,x,incx,myResult) bind(c, name="hipblasScnrm2") type(c_ptr),value :: myResult end function + module procedure hipblasScnrm2_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasScnrm2_assumed_rank + module procedure & + hipblasScnrm2_assumed_rank,& + hipblasScnrm2_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasScnrm2_rank_0,& - hipblasScnrm2_rank_1 + hipblasScnrm2_rank_0_devptr,& + hipblasScnrm2_rank_1,& + hipblasScnrm2_rank_1_devptr #endif #endif end interface @@ -4902,13 +5064,19 @@ function hipblasDznrm2_(handle,n,x,incx,myResult) bind(c, name="hipblasDznrm2") type(c_ptr),value :: myResult end function + module procedure hipblasDznrm2_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasDznrm2_assumed_rank + module procedure & + hipblasDznrm2_assumed_rank,& + hipblasDznrm2_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDznrm2_rank_0,& - hipblasDznrm2_rank_1 + hipblasDznrm2_rank_0_devptr,& + hipblasDznrm2_rank_1,& + hipblasDznrm2_rank_1_devptr #endif #endif end interface @@ -4929,6 +5097,8 @@ function hipblasSnrm2_64_(handle,n,x,incx,myResult) bind(c, name="hipblasSnrm2_6 integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure hipblasSnrm2_64_typed end interface interface hipblasDnrm2_64 @@ -4947,6 +5117,8 @@ function hipblasDnrm2_64_(handle,n,x,incx,myResult) bind(c, name="hipblasDnrm2_6 integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure hipblasDnrm2_64_typed end interface interface hipblasScnrm2_64 @@ -4965,6 +5137,8 @@ function hipblasScnrm2_64_(handle,n,x,incx,myResult) bind(c, name="hipblasScnrm2 integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure hipblasScnrm2_64_typed end interface interface hipblasDznrm2_64 @@ -4983,6 +5157,8 @@ function hipblasDznrm2_64_(handle,n,x,incx,myResult) bind(c, name="hipblasDznrm2 integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure hipblasDznrm2_64_typed end interface !> \brief BLAS Level 1 API @@ -5420,13 +5596,19 @@ function hipblasSrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasSrot") type(c_ptr),value :: s end function + module procedure hipblasSrot_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasSrot_assumed_rank + module procedure & + hipblasSrot_assumed_rank,& + hipblasSrot_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSrot_rank_0,& - hipblasSrot_rank_1 + hipblasSrot_rank_0_devptr,& + hipblasSrot_rank_1,& + hipblasSrot_rank_1_devptr #endif #endif end interface @@ -5451,13 +5633,19 @@ function hipblasDrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasDrot") type(c_ptr),value :: s end function + module procedure hipblasDrot_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasDrot_assumed_rank + module procedure & + hipblasDrot_assumed_rank,& + hipblasDrot_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDrot_rank_0,& - hipblasDrot_rank_1 + hipblasDrot_rank_0_devptr,& + hipblasDrot_rank_1,& + hipblasDrot_rank_1_devptr #endif #endif end interface @@ -5482,13 +5670,19 @@ function hipblasCrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasCrot") type(c_ptr),value :: s end function + module procedure hipblasCrot_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasCrot_assumed_rank + module procedure & + hipblasCrot_assumed_rank,& + hipblasCrot_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCrot_rank_0,& - hipblasCrot_rank_1 + hipblasCrot_rank_0_devptr,& + hipblasCrot_rank_1,& + hipblasCrot_rank_1_devptr #endif #endif end interface @@ -5513,13 +5707,19 @@ function hipblasCsrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasCsrot") type(c_ptr),value :: s end function + module procedure hipblasCsrot_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasCsrot_assumed_rank + module procedure & + hipblasCsrot_assumed_rank,& + hipblasCsrot_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCsrot_rank_0,& - hipblasCsrot_rank_1 + hipblasCsrot_rank_0_devptr,& + hipblasCsrot_rank_1,& + hipblasCsrot_rank_1_devptr #endif #endif end interface @@ -5544,13 +5744,19 @@ function hipblasZrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasZrot") type(c_ptr),value :: s end function + module procedure hipblasZrot_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasZrot_assumed_rank + module procedure & + hipblasZrot_assumed_rank,& + hipblasZrot_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZrot_rank_0,& - hipblasZrot_rank_1 + hipblasZrot_rank_0_devptr,& + hipblasZrot_rank_1,& + hipblasZrot_rank_1_devptr #endif #endif end interface @@ -5575,13 +5781,19 @@ function hipblasZdrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasZdrot") type(c_ptr),value :: s end function + module procedure hipblasZdrot_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasZdrot_assumed_rank + module procedure & + hipblasZdrot_assumed_rank,& + hipblasZdrot_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZdrot_rank_0,& - hipblasZdrot_rank_1 + hipblasZdrot_rank_0_devptr,& + hipblasZdrot_rank_1,& + hipblasZdrot_rank_1_devptr #endif #endif end interface @@ -5605,6 +5817,8 @@ function hipblasSrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasSrot_6 type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure hipblasSrot_64_typed end interface interface hipblasDrot_64 @@ -5626,6 +5840,8 @@ function hipblasDrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasDrot_6 type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure hipblasDrot_64_typed end interface interface hipblasCrot_64 @@ -5647,6 +5863,8 @@ function hipblasCrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasCrot_6 type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure hipblasCrot_64_typed end interface interface hipblasCsrot_64 @@ -5668,6 +5886,8 @@ function hipblasCsrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasCsrot type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure hipblasCsrot_64_typed end interface interface hipblasZrot_64 @@ -5689,6 +5909,8 @@ function hipblasZrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasZrot_6 type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure hipblasZrot_64_typed end interface interface hipblasZdrot_64 @@ -5710,6 +5932,8 @@ function hipblasZdrot_64_(handle,n,x,incx,y,incy,c,s) bind(c, name="hipblasZdrot type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure hipblasZdrot_64_typed end interface !> \brief BLAS Level 1 API @@ -6400,6 +6624,8 @@ function hipblasSrotg_(handle,a,b,c,s) bind(c, name="hipblasSrotg") type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure hipblasSrotg_typed end interface interface hipblasDrotg @@ -6418,6 +6644,8 @@ function hipblasDrotg_(handle,a,b,c,s) bind(c, name="hipblasDrotg") type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure hipblasDrotg_typed end interface interface hipblasCrotg @@ -6436,6 +6664,8 @@ function hipblasCrotg_(handle,a,b,c,s) bind(c, name="hipblasCrotg") type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure hipblasCrotg_typed end interface interface hipblasZrotg @@ -6454,6 +6684,8 @@ function hipblasZrotg_(handle,a,b,c,s) bind(c, name="hipblasZrotg") type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure hipblasZrotg_typed end interface #ifndef USE_CUDA_NAMES @@ -6469,6 +6701,8 @@ function hipblasSrotg_64_(handle,a,b,c,s) bind(c, name="hipblasSrotg_64") type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure hipblasSrotg_64_typed end interface #endif @@ -6485,6 +6719,8 @@ function hipblasDrotg_64_(handle,a,b,c,s) bind(c, name="hipblasDrotg_64") type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure hipblasDrotg_64_typed end interface #endif @@ -6501,6 +6737,8 @@ function hipblasCrotg_64_(handle,a,b,c,s) bind(c, name="hipblasCrotg_64") type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure hipblasCrotg_64_typed end interface #endif @@ -6517,6 +6755,8 @@ function hipblasZrotg_64_(handle,a,b,c,s) bind(c, name="hipblasZrotg_64") type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure hipblasZrotg_64_typed end interface #endif @@ -7360,6 +7600,8 @@ function hipblasSrotmg_(handle,d1,d2,x1,y1,param) bind(c, name="hipblasSrotmg") type(c_ptr),value :: y1 type(c_ptr),value :: param end function + + module procedure hipblasSrotmg_typed end interface interface hipblasDrotmg @@ -7379,6 +7621,8 @@ function hipblasDrotmg_(handle,d1,d2,x1,y1,param) bind(c, name="hipblasDrotmg") type(c_ptr),value :: y1 type(c_ptr),value :: param end function + + module procedure hipblasDrotmg_typed end interface #ifndef USE_CUDA_NAMES @@ -7395,6 +7639,8 @@ function hipblasSrotmg_64_(handle,d1,d2,x1,y1,param) bind(c, name="hipblasSrotmg type(c_ptr),value :: y1 type(c_ptr),value :: param end function + + module procedure hipblasSrotmg_64_typed end interface #endif @@ -7412,6 +7658,8 @@ function hipblasDrotmg_64_(handle,d1,d2,x1,y1,param) bind(c, name="hipblasDrotmg type(c_ptr),value :: y1 type(c_ptr),value :: param end function + + module procedure hipblasDrotmg_64_typed end interface #endif @@ -38479,14 +38727,21 @@ function hipblasSgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & type(c_ptr),value :: myInfo end function + module procedure hipblasSgetrs_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasSgetrs_assumed_rank + module procedure & + hipblasSgetrs_assumed_rank,& + hipblasSgetrs_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgetrs_rank_0,& + hipblasSgetrs_rank_0_devptr,& hipblasSgetrs_rank_1,& - hipblasSgetrs_full_rank + hipblasSgetrs_rank_1_devptr,& + hipblasSgetrs_full_rank,& + hipblasSgetrs_full_rank_devptr #endif #endif end interface @@ -38512,14 +38767,21 @@ function hipblasDgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & type(c_ptr),value :: myInfo end function + module procedure hipblasDgetrs_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasDgetrs_assumed_rank + module procedure & + hipblasDgetrs_assumed_rank,& + hipblasDgetrs_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgetrs_rank_0,& + hipblasDgetrs_rank_0_devptr,& hipblasDgetrs_rank_1,& - hipblasDgetrs_full_rank + hipblasDgetrs_rank_1_devptr,& + hipblasDgetrs_full_rank,& + hipblasDgetrs_full_rank_devptr #endif #endif end interface @@ -38545,14 +38807,21 @@ function hipblasCgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & type(c_ptr),value :: myInfo end function + module procedure hipblasCgetrs_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasCgetrs_assumed_rank + module procedure & + hipblasCgetrs_assumed_rank,& + hipblasCgetrs_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgetrs_rank_0,& + hipblasCgetrs_rank_0_devptr,& hipblasCgetrs_rank_1,& - hipblasCgetrs_full_rank + hipblasCgetrs_rank_1_devptr,& + hipblasCgetrs_full_rank,& + hipblasCgetrs_full_rank_devptr #endif #endif end interface @@ -38578,14 +38847,21 @@ function hipblasZgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) & type(c_ptr),value :: myInfo end function + module procedure hipblasZgetrs_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasZgetrs_assumed_rank + module procedure & + hipblasZgetrs_assumed_rank,& + hipblasZgetrs_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgetrs_rank_0,& + hipblasZgetrs_rank_0_devptr,& hipblasZgetrs_rank_1,& - hipblasZgetrs_full_rank + hipblasZgetrs_rank_1_devptr,& + hipblasZgetrs_full_rank,& + hipblasZgetrs_full_rank_devptr #endif #endif end interface @@ -38667,6 +38943,8 @@ function hipblasSgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batch type(c_ptr),value :: myInfo integer(c_int),value :: batchCount end function + + module procedure hipblasSgetrsBatched_typed end interface interface hipblasDgetrsBatched @@ -38693,6 +38971,8 @@ function hipblasDgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batch type(c_ptr),value :: myInfo integer(c_int),value :: batchCount end function + + module procedure hipblasDgetrsBatched_typed end interface interface hipblasCgetrsBatched @@ -38719,6 +38999,8 @@ function hipblasCgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batch type(c_ptr),value :: myInfo integer(c_int),value :: batchCount end function + + module procedure hipblasCgetrsBatched_typed end interface interface hipblasZgetrsBatched @@ -38745,6 +39027,8 @@ function hipblasZgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batch type(c_ptr),value :: myInfo integer(c_int),value :: batchCount end function + + module procedure hipblasZgetrsBatched_typed end interface !> \brief SOLVER API @@ -38837,14 +39121,21 @@ function hipblasSgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,str integer(c_int),value :: batchCount end function + module procedure hipblasSgetrsStridedBatched_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasSgetrsStridedBatched_assumed_rank + module procedure & + hipblasSgetrsStridedBatched_assumed_rank,& + hipblasSgetrsStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgetrsStridedBatched_rank_0,& + hipblasSgetrsStridedBatched_rank_0_devptr,& hipblasSgetrsStridedBatched_rank_1,& - hipblasSgetrsStridedBatched_full_rank + hipblasSgetrsStridedBatched_rank_1_devptr,& + hipblasSgetrsStridedBatched_full_rank,& + hipblasSgetrsStridedBatched_full_rank_devptr #endif #endif end interface @@ -38875,14 +39166,21 @@ function hipblasDgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,str integer(c_int),value :: batchCount end function + module procedure hipblasDgetrsStridedBatched_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasDgetrsStridedBatched_assumed_rank + module procedure & + hipblasDgetrsStridedBatched_assumed_rank,& + hipblasDgetrsStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgetrsStridedBatched_rank_0,& + hipblasDgetrsStridedBatched_rank_0_devptr,& hipblasDgetrsStridedBatched_rank_1,& - hipblasDgetrsStridedBatched_full_rank + hipblasDgetrsStridedBatched_rank_1_devptr,& + hipblasDgetrsStridedBatched_full_rank,& + hipblasDgetrsStridedBatched_full_rank_devptr #endif #endif end interface @@ -38913,14 +39211,21 @@ function hipblasCgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,str integer(c_int),value :: batchCount end function + module procedure hipblasCgetrsStridedBatched_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasCgetrsStridedBatched_assumed_rank + module procedure & + hipblasCgetrsStridedBatched_assumed_rank,& + hipblasCgetrsStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgetrsStridedBatched_rank_0,& + hipblasCgetrsStridedBatched_rank_0_devptr,& hipblasCgetrsStridedBatched_rank_1,& - hipblasCgetrsStridedBatched_full_rank + hipblasCgetrsStridedBatched_rank_1_devptr,& + hipblasCgetrsStridedBatched_full_rank,& + hipblasCgetrsStridedBatched_full_rank_devptr #endif #endif end interface @@ -38951,14 +39256,21 @@ function hipblasZgetrsStridedBatched_(handle,trans,n,nrhs,A,lda,strideA,ipiv,str integer(c_int),value :: batchCount end function + module procedure hipblasZgetrsStridedBatched_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasZgetrsStridedBatched_assumed_rank + module procedure & + hipblasZgetrsStridedBatched_assumed_rank,& + hipblasZgetrsStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgetrsStridedBatched_rank_0,& + hipblasZgetrsStridedBatched_rank_0_devptr,& hipblasZgetrsStridedBatched_rank_1,& - hipblasZgetrsStridedBatched_full_rank + hipblasZgetrsStridedBatched_rank_1_devptr,& + hipblasZgetrsStridedBatched_full_rank,& + hipblasZgetrsStridedBatched_full_rank_devptr #endif #endif end interface @@ -39186,6 +39498,8 @@ function hipblasSgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) & type(c_ptr),value :: myInfo type(c_ptr),value :: deviceInfo end function + + module procedure hipblasSgels_typed end interface #endif @@ -39209,6 +39523,8 @@ function hipblasDgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) & type(c_ptr),value :: myInfo type(c_ptr),value :: deviceInfo end function + + module procedure hipblasDgels_typed end interface #endif @@ -39232,6 +39548,8 @@ function hipblasCgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) & type(c_ptr),value :: myInfo type(c_ptr),value :: deviceInfo end function + + module procedure hipblasCgels_typed end interface #endif @@ -39255,6 +39573,8 @@ function hipblasZgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) & type(c_ptr),value :: myInfo type(c_ptr),value :: deviceInfo end function + + module procedure hipblasZgels_typed end interface #endif @@ -39357,6 +39677,8 @@ function hipblasSgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInf type(c_ptr),value :: deviceInfo integer(c_int),value :: batchCount end function + + module procedure hipblasSgelsBatched_typed end interface interface hipblasDgelsBatched @@ -39384,6 +39706,8 @@ function hipblasDgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInf type(c_ptr),value :: deviceInfo integer(c_int),value :: batchCount end function + + module procedure hipblasDgelsBatched_typed end interface interface hipblasCgelsBatched @@ -39411,6 +39735,8 @@ function hipblasCgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInf type(c_ptr),value :: deviceInfo integer(c_int),value :: batchCount end function + + module procedure hipblasCgelsBatched_typed end interface interface hipblasZgelsBatched @@ -39438,6 +39764,8 @@ function hipblasZgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInf type(c_ptr),value :: deviceInfo integer(c_int),value :: batchCount end function + + module procedure hipblasZgelsBatched_typed end interface !> \brief SOLVER API @@ -39544,6 +39872,8 @@ function hipblasSgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,s type(c_ptr),value :: deviceInfo integer(c_int),value :: batchCount end function + + module procedure hipblasSgelsStridedBatched_typed end interface #endif @@ -39571,6 +39901,8 @@ function hipblasDgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,s type(c_ptr),value :: deviceInfo integer(c_int),value :: batchCount end function + + module procedure hipblasDgelsStridedBatched_typed end interface #endif @@ -39598,6 +39930,8 @@ function hipblasCgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,s type(c_ptr),value :: deviceInfo integer(c_int),value :: batchCount end function + + module procedure hipblasCgelsStridedBatched_typed end interface #endif @@ -39625,6 +39959,8 @@ function hipblasZgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,s type(c_ptr),value :: deviceInfo integer(c_int),value :: batchCount end function + + module procedure hipblasZgelsStridedBatched_typed end interface #endif @@ -39694,14 +40030,21 @@ function hipblasSgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasSgeqr type(c_ptr),value :: myInfo end function + module procedure hipblasSgeqrf_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasSgeqrf_assumed_rank + module procedure & + hipblasSgeqrf_assumed_rank,& + hipblasSgeqrf_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgeqrf_rank_0,& + hipblasSgeqrf_rank_0_devptr,& hipblasSgeqrf_rank_1,& - hipblasSgeqrf_full_rank + hipblasSgeqrf_rank_1_devptr,& + hipblasSgeqrf_full_rank,& + hipblasSgeqrf_full_rank_devptr #endif #endif end interface @@ -39723,14 +40066,21 @@ function hipblasDgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasDgeqr type(c_ptr),value :: myInfo end function + module procedure hipblasDgeqrf_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasDgeqrf_assumed_rank + module procedure & + hipblasDgeqrf_assumed_rank,& + hipblasDgeqrf_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgeqrf_rank_0,& + hipblasDgeqrf_rank_0_devptr,& hipblasDgeqrf_rank_1,& - hipblasDgeqrf_full_rank + hipblasDgeqrf_rank_1_devptr,& + hipblasDgeqrf_full_rank,& + hipblasDgeqrf_full_rank_devptr #endif #endif end interface @@ -39752,14 +40102,21 @@ function hipblasCgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasCgeqr type(c_ptr),value :: myInfo end function + module procedure hipblasCgeqrf_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasCgeqrf_assumed_rank + module procedure & + hipblasCgeqrf_assumed_rank,& + hipblasCgeqrf_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgeqrf_rank_0,& + hipblasCgeqrf_rank_0_devptr,& hipblasCgeqrf_rank_1,& - hipblasCgeqrf_full_rank + hipblasCgeqrf_rank_1_devptr,& + hipblasCgeqrf_full_rank,& + hipblasCgeqrf_full_rank_devptr #endif #endif end interface @@ -39781,14 +40138,21 @@ function hipblasZgeqrf_(handle,m,n,A,lda,ipiv,myInfo) bind(c, name="hipblasZgeqr type(c_ptr),value :: myInfo end function + module procedure hipblasZgeqrf_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasZgeqrf_assumed_rank + module procedure & + hipblasZgeqrf_assumed_rank,& + hipblasZgeqrf_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgeqrf_rank_0,& + hipblasZgeqrf_rank_0_devptr,& hipblasZgeqrf_rank_1,& - hipblasZgeqrf_full_rank + hipblasZgeqrf_rank_1_devptr,& + hipblasZgeqrf_full_rank,& + hipblasZgeqrf_full_rank_devptr #endif #endif end interface @@ -39871,6 +40235,8 @@ function hipblasSgeqrfBatched_(handle,m,n,A,lda,ipiv,myInfo,batchCount) & type(c_ptr),value :: myInfo integer(c_int),value :: batchCount end function + + module procedure hipblasSgeqrfBatched_typed end interface interface hipblasDgeqrfBatched @@ -39894,6 +40260,8 @@ function hipblasDgeqrfBatched_(handle,m,n,A,lda,ipiv,myInfo,batchCount) & type(c_ptr),value :: myInfo integer(c_int),value :: batchCount end function + + module procedure hipblasDgeqrfBatched_typed end interface interface hipblasCgeqrfBatched @@ -39917,6 +40285,8 @@ function hipblasCgeqrfBatched_(handle,m,n,A,lda,ipiv,myInfo,batchCount) & type(c_ptr),value :: myInfo integer(c_int),value :: batchCount end function + + module procedure hipblasCgeqrfBatched_typed end interface interface hipblasZgeqrfBatched @@ -39940,6 +40310,8 @@ function hipblasZgeqrfBatched_(handle,m,n,A,lda,ipiv,myInfo,batchCount) & type(c_ptr),value :: myInfo integer(c_int),value :: batchCount end function + + module procedure hipblasZgeqrfBatched_typed end interface !> \brief SOLVER API @@ -40026,14 +40398,21 @@ function hipblasSgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myIn integer(c_int),value :: batchCount end function + module procedure hipblasSgeqrfStridedBatched_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasSgeqrfStridedBatched_assumed_rank + module procedure & + hipblasSgeqrfStridedBatched_assumed_rank,& + hipblasSgeqrfStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasSgeqrfStridedBatched_rank_0,& + hipblasSgeqrfStridedBatched_rank_0_devptr,& hipblasSgeqrfStridedBatched_rank_1,& - hipblasSgeqrfStridedBatched_full_rank + hipblasSgeqrfStridedBatched_rank_1_devptr,& + hipblasSgeqrfStridedBatched_full_rank,& + hipblasSgeqrfStridedBatched_full_rank_devptr #endif #endif end interface @@ -40059,14 +40438,21 @@ function hipblasDgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myIn integer(c_int),value :: batchCount end function + module procedure hipblasDgeqrfStridedBatched_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasDgeqrfStridedBatched_assumed_rank + module procedure & + hipblasDgeqrfStridedBatched_assumed_rank,& + hipblasDgeqrfStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasDgeqrfStridedBatched_rank_0,& + hipblasDgeqrfStridedBatched_rank_0_devptr,& hipblasDgeqrfStridedBatched_rank_1,& - hipblasDgeqrfStridedBatched_full_rank + hipblasDgeqrfStridedBatched_rank_1_devptr,& + hipblasDgeqrfStridedBatched_full_rank,& + hipblasDgeqrfStridedBatched_full_rank_devptr #endif #endif end interface @@ -40092,14 +40478,21 @@ function hipblasCgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myIn integer(c_int),value :: batchCount end function + module procedure hipblasCgeqrfStridedBatched_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasCgeqrfStridedBatched_assumed_rank + module procedure & + hipblasCgeqrfStridedBatched_assumed_rank,& + hipblasCgeqrfStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasCgeqrfStridedBatched_rank_0,& + hipblasCgeqrfStridedBatched_rank_0_devptr,& hipblasCgeqrfStridedBatched_rank_1,& - hipblasCgeqrfStridedBatched_full_rank + hipblasCgeqrfStridedBatched_rank_1_devptr,& + hipblasCgeqrfStridedBatched_full_rank,& + hipblasCgeqrfStridedBatched_full_rank_devptr #endif #endif end interface @@ -40125,14 +40518,21 @@ function hipblasZgeqrfStridedBatched_(handle,m,n,A,lda,strideA,ipiv,strideP,myIn integer(c_int),value :: batchCount end function + module procedure hipblasZgeqrfStridedBatched_typed + #ifdef USE_ASSUMED_RANK - module procedure hipblasZgeqrfStridedBatched_assumed_rank + module procedure & + hipblasZgeqrfStridedBatched_assumed_rank,& + hipblasZgeqrfStridedBatched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipblasZgeqrfStridedBatched_rank_0,& + hipblasZgeqrfStridedBatched_rank_0_devptr,& hipblasZgeqrfStridedBatched_rank_1,& - hipblasZgeqrfStridedBatched_full_rank + hipblasZgeqrfStridedBatched_rank_1_devptr,& + hipblasZgeqrfStridedBatched_full_rank,& + hipblasZgeqrfStridedBatched_full_rank_devptr #endif #endif end interface @@ -43618,6 +44018,342 @@ function hipblasGetBatchBetaStride_typed(handle,beta_stride) end function #endif + function hipblasIsamax_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIsamax_typed = hipblasIsamax_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIdamax_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIdamax_typed = hipblasIdamax_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIcamax_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIcamax_typed = hipblasIcamax_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIzamax_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIzamax_typed = hipblasIzamax_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIsamax_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIsamax_64_typed = hipblasIsamax_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIdamax_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIdamax_64_typed = hipblasIdamax_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIcamax_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIcamax_64_typed = hipblasIcamax_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIzamax_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIzamax_64_typed = hipblasIzamax_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIsamin_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIsamin_typed = hipblasIsamin_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIdamin_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIdamin_typed = hipblasIdamin_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIcamin_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIcamin_typed = hipblasIcamin_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIzamin_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int),target :: myResult + ! + hipblasIzamin_typed = hipblasIzamin_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIsamin_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIsamin_64_typed = hipblasIsamin_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIdamin_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIdamin_64_typed = hipblasIdamin_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIcamin_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIcamin_64_typed = hipblasIcamin_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasIzamin_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + hipblasIzamin_64_typed = hipblasIzamin_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasSasum_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasSasum_typed = hipblasSasum_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasDasum_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDasum_typed = hipblasDasum_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasScasum_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasScasum_typed = hipblasScasum_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasDzasum_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDzasum_typed = hipblasDzasum_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasSasum_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasSasum_64_typed = hipblasSasum_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasDasum_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDasum_64_typed = hipblasDasum_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasScasum_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasScasum_64_typed = hipblasScasum_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasDzasum_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDzasum_64_typed = hipblasDzasum_64_(handle,n,x,incx,c_loc(myResult)) + end function + function hipblasSaxpy_typed(handle,n,alpha,x,incx,y,incy) use iso_c_binding use hipfort_hipblas_enums @@ -44089,6 +44825,700 @@ function hipblasZaxpyStridedBatched_64_typed(handle,n,alpha,x,incx,stridex,y,inc x,incx,stridex,y,incy,stridey,batchCount) end function +#endif + function hipblasSdot_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_float),target :: myResult + ! + hipblasSdot_typed = hipblasSdot_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasDdot_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_double),target :: myResult + ! + hipblasDdot_typed = hipblasDdot_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasCdotc_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotc_typed = hipblasCdotc_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasCdotu_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotu_typed = hipblasCdotu_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasZdotc_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotc_typed = hipblasZdotc_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasZdotu_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotu_typed = hipblasZdotu_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasSdot_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_float),target :: myResult + ! + hipblasSdot_64_typed = hipblasSdot_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasDdot_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_double),target :: myResult + ! + hipblasDdot_64_typed = hipblasDdot_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasCdotc_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotc_64_typed = hipblasCdotc_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasCdotu_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: myResult + ! + hipblasCdotu_64_typed = hipblasCdotu_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasZdotc_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotc_64_typed = hipblasZdotc_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasZdotu_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: myResult + ! + hipblasZdotu_64_typed = hipblasZdotu_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function hipblasSnrm2_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasSnrm2_typed = hipblasSnrm2_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasDnrm2_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDnrm2_typed = hipblasDnrm2_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasScnrm2_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_float),target :: myResult + ! + hipblasScnrm2_typed = hipblasScnrm2_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasDznrm2_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + hipblasDznrm2_typed = hipblasDznrm2_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasSnrm2_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasSnrm2_64_typed = hipblasSnrm2_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasDnrm2_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDnrm2_64_typed = hipblasDnrm2_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasScnrm2_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_float),target :: myResult + ! + hipblasScnrm2_64_typed = hipblasScnrm2_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasDznrm2_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + real(c_double),target :: myResult + ! + hipblasDznrm2_64_typed = hipblasDznrm2_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function hipblasSrot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasSrot_typed = hipblasSrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasDrot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasDrot_typed = hipblasDrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasCrot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrot_typed = hipblasCrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasCsrot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasCsrot_typed = hipblasCsrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasZrot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + hipblasZrot_typed = hipblasZrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasZdrot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasZdrot_typed = hipblasZdrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasSrot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasSrot_64_typed = hipblasSrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasDrot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasDrot_64_typed = hipblasDrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasCrot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrot_64_typed = hipblasCrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasCsrot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasCsrot_64_typed = hipblasCsrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasZrot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + hipblasZrot_64_typed = hipblasZrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasZdrot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasZdrot_64_typed = hipblasZdrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function hipblasSrotg_typed(handle,a,b,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotg_typed + type(c_ptr) :: handle + real(c_float),target :: a + real(c_float),target :: b + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasSrotg_typed = hipblasSrotg_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function hipblasDrotg_typed(handle,a,b,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotg_typed + type(c_ptr) :: handle + real(c_double),target :: a + real(c_double),target :: b + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasDrotg_typed = hipblasDrotg_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function hipblasCrotg_typed(handle,a,b,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotg_typed + type(c_ptr) :: handle + complex(c_float_complex),target :: a + complex(c_float_complex),target :: b + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrotg_typed = hipblasCrotg_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function hipblasZrotg_typed(handle,a,b,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotg_typed + type(c_ptr) :: handle + complex(c_double_complex),target :: a + complex(c_double_complex),target :: b + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + hipblasZrotg_typed = hipblasZrotg_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + +#ifndef USE_CUDA_NAMES + function hipblasSrotg_64_typed(handle,a,b,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotg_64_typed + type(c_ptr) :: handle + real(c_float),target :: a + real(c_float),target :: b + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasSrotg_64_typed = hipblasSrotg_64_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasDrotg_64_typed(handle,a,b,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotg_64_typed + type(c_ptr) :: handle + real(c_double),target :: a + real(c_double),target :: b + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasDrotg_64_typed = hipblasDrotg_64_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasCrotg_64_typed(handle,a,b,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrotg_64_typed + type(c_ptr) :: handle + complex(c_float_complex),target :: a + complex(c_float_complex),target :: b + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrotg_64_typed = hipblasCrotg_64_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasZrotg_64_typed(handle,a,b,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrotg_64_typed + type(c_ptr) :: handle + complex(c_double_complex),target :: a + complex(c_double_complex),target :: b + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + hipblasZrotg_64_typed = hipblasZrotg_64_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + +#endif + function hipblasSrotmg_typed(handle,d1,d2,x1,y1,param) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_typed + type(c_ptr) :: handle + real(c_float),target :: d1 + real(c_float),target :: d2 + real(c_float),target :: x1 + real(c_float),target :: y1 + type(c_ptr) :: param + ! + hipblasSrotmg_typed = hipblasSrotmg_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1),param) + end function + + function hipblasDrotmg_typed(handle,d1,d2,x1,y1,param) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_typed + type(c_ptr) :: handle + real(c_double),target :: d1 + real(c_double),target :: d2 + real(c_double),target :: x1 + real(c_double),target :: y1 + type(c_ptr) :: param + ! + hipblasDrotmg_typed = hipblasDrotmg_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1),param) + end function + +#ifndef USE_CUDA_NAMES + function hipblasSrotmg_64_typed(handle,d1,d2,x1,y1,param) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrotmg_64_typed + type(c_ptr) :: handle + real(c_float),target :: d1 + real(c_float),target :: d2 + real(c_float),target :: x1 + real(c_float),target :: y1 + type(c_ptr) :: param + ! + hipblasSrotmg_64_typed = hipblasSrotmg_64_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1), & + param) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasDrotmg_64_typed(handle,d1,d2,x1,y1,param) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrotmg_64_typed + type(c_ptr) :: handle + real(c_double),target :: d1 + real(c_double),target :: d2 + real(c_double),target :: x1 + real(c_double),target :: y1 + type(c_ptr) :: param + ! + hipblasDrotmg_64_typed = hipblasDrotmg_64_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1), & + param) + end function + #endif function hipblasSscal_typed(handle,n,alpha,x,incx) use iso_c_binding @@ -57905,6 +59335,806 @@ function hipblasZtrsmStridedBatched_64_typed(handle,side,uplo,transA,diag,m,n,al transA,diag,m,n,c_loc(alpha),AP,lda,strideA,BP,ldb,strideB,batchCount) end function +#endif +#ifndef USE_CUDA_NAMES + function hipblasSgetrs_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasSgetrs_typed = hipblasSgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,c_loc(myInfo)) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasDgetrs_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasDgetrs_typed = hipblasDgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,c_loc(myInfo)) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasCgetrs_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasCgetrs_typed = hipblasCgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,c_loc(myInfo)) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasZgetrs_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + ! + hipblasZgetrs_typed = hipblasZgetrs_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,c_loc(myInfo)) + end function + +#endif + function hipblasSgetrsBatched_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsBatched_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsBatched_typed = hipblasSgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb, & + c_loc(myInfo),batchCount) + end function + + function hipblasDgetrsBatched_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsBatched_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsBatched_typed = hipblasDgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb, & + c_loc(myInfo),batchCount) + end function + + function hipblasCgetrsBatched_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsBatched_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrsBatched_typed = hipblasCgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb, & + c_loc(myInfo),batchCount) + end function + + function hipblasZgetrsBatched_typed(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsBatched_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrsBatched_typed = hipblasZgetrsBatched_(handle,trans,n,nrhs,A,lda,ipiv,B,ldb, & + c_loc(myInfo),batchCount) + end function + +#ifndef USE_CUDA_NAMES + function hipblasSgetrsStridedBatched_typed(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsStridedBatched_typed = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs,A,lda, & + strideA,ipiv,strideP,B,ldb,strideB,c_loc(myInfo),batchCount) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasDgetrsStridedBatched_typed(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsStridedBatched_typed = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs,A,lda, & + strideA,ipiv,strideP,B,ldb,strideB,c_loc(myInfo),batchCount) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasCgetrsStridedBatched_typed(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrsStridedBatched_typed = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs,A,lda, & + strideA,ipiv,strideP,B,ldb,strideB,c_loc(myInfo),batchCount) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasZgetrsStridedBatched_typed(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & + ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrsStridedBatched_typed = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs,A,lda, & + strideA,ipiv,strideP,B,ldb,strideB,c_loc(myInfo),batchCount) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasSgels_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgels_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + ! + hipblasSgels_typed = hipblasSgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,c_loc(myInfo),deviceInfo) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasDgels_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgels_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + ! + hipblasDgels_typed = hipblasDgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,c_loc(myInfo),deviceInfo) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasCgels_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgels_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + ! + hipblasCgels_typed = hipblasCgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,c_loc(myInfo),deviceInfo) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasZgels_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgels_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + ! + hipblasZgels_typed = hipblasZgels_(handle,trans,m,n,nrhs,A,lda,B,ldb,c_loc(myInfo),deviceInfo) + end function + +#endif + function hipblasSgelsBatched_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsBatched_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + integer(c_int) :: batchCount + ! + hipblasSgelsBatched_typed = hipblasSgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),deviceInfo,batchCount) + end function + + function hipblasDgelsBatched_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsBatched_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + integer(c_int) :: batchCount + ! + hipblasDgelsBatched_typed = hipblasDgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),deviceInfo,batchCount) + end function + + function hipblasCgelsBatched_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsBatched_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + integer(c_int) :: batchCount + ! + hipblasCgelsBatched_typed = hipblasCgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),deviceInfo,batchCount) + end function + + function hipblasZgelsBatched_typed(handle,trans,m,n,nrhs,A,lda,B,ldb,myInfo,deviceInfo, & + batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsBatched_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + integer(c_int) :: batchCount + ! + hipblasZgelsBatched_typed = hipblasZgelsBatched_(handle,trans,m,n,nrhs,A,lda,B,ldb, & + c_loc(myInfo),deviceInfo,batchCount) + end function + +#ifndef USE_CUDA_NAMES + function hipblasSgelsStridedBatched_typed(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & + myInfo,deviceInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgelsStridedBatched_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + integer(c_int) :: batchCount + ! + hipblasSgelsStridedBatched_typed = hipblasSgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda, & + strideA,B,ldb,strideB,c_loc(myInfo),deviceInfo,batchCount) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasDgelsStridedBatched_typed(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & + myInfo,deviceInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgelsStridedBatched_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + integer(c_int) :: batchCount + ! + hipblasDgelsStridedBatched_typed = hipblasDgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda, & + strideA,B,ldb,strideB,c_loc(myInfo),deviceInfo,batchCount) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasCgelsStridedBatched_typed(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & + myInfo,deviceInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgelsStridedBatched_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + integer(c_int) :: batchCount + ! + hipblasCgelsStridedBatched_typed = hipblasCgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda, & + strideA,B,ldb,strideB,c_loc(myInfo),deviceInfo,batchCount) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasZgelsStridedBatched_typed(handle,trans,m,n,nrhs,A,lda,strideA,B,ldb,strideB, & + myInfo,deviceInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgelsStridedBatched_typed + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: nrhs + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + integer(c_int),target :: myInfo + type(c_ptr) :: deviceInfo + integer(c_int) :: batchCount + ! + hipblasZgelsStridedBatched_typed = hipblasZgelsStridedBatched_(handle,trans,m,n,nrhs,A,lda, & + strideA,B,ldb,strideB,c_loc(myInfo),deviceInfo,batchCount) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasSgeqrf_typed(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_typed + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasSgeqrf_typed = hipblasSgeqrf_(handle,m,n,A,lda,ipiv,c_loc(myInfo)) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasDgeqrf_typed(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_typed + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasDgeqrf_typed = hipblasDgeqrf_(handle,m,n,A,lda,ipiv,c_loc(myInfo)) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasCgeqrf_typed(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_typed + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasCgeqrf_typed = hipblasCgeqrf_(handle,m,n,A,lda,ipiv,c_loc(myInfo)) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasZgeqrf_typed(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_typed + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + integer(c_int),target :: myInfo + ! + hipblasZgeqrf_typed = hipblasZgeqrf_(handle,m,n,A,lda,ipiv,c_loc(myInfo)) + end function + +#endif + function hipblasSgeqrfBatched_typed(handle,m,n,A,lda,ipiv,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfBatched_typed + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgeqrfBatched_typed = hipblasSgeqrfBatched_(handle,m,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) + end function + + function hipblasDgeqrfBatched_typed(handle,m,n,A,lda,ipiv,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfBatched_typed + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgeqrfBatched_typed = hipblasDgeqrfBatched_(handle,m,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) + end function + + function hipblasCgeqrfBatched_typed(handle,m,n,A,lda,ipiv,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfBatched_typed + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgeqrfBatched_typed = hipblasCgeqrfBatched_(handle,m,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) + end function + + function hipblasZgeqrfBatched_typed(handle,m,n,A,lda,ipiv,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfBatched_typed + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + type(c_ptr) :: ipiv + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgeqrfBatched_typed = hipblasZgeqrfBatched_(handle,m,n,A,lda,ipiv,c_loc(myInfo), & + batchCount) + end function + +#ifndef USE_CUDA_NAMES + function hipblasSgeqrfStridedBatched_typed(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_typed + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgeqrfStridedBatched_typed = hipblasSgeqrfStridedBatched_(handle,m,n,A,lda,strideA, & + ipiv,strideP,c_loc(myInfo),batchCount) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasDgeqrfStridedBatched_typed(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_typed + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgeqrfStridedBatched_typed = hipblasDgeqrfStridedBatched_(handle,m,n,A,lda,strideA, & + ipiv,strideP,c_loc(myInfo),batchCount) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasCgeqrfStridedBatched_typed(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_typed + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgeqrfStridedBatched_typed = hipblasCgeqrfStridedBatched_(handle,m,n,A,lda,strideA, & + ipiv,strideP,c_loc(myInfo),batchCount) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipblasZgeqrfStridedBatched_typed(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & + batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_typed + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + type(c_ptr) :: ipiv + integer(c_int64_t) :: strideP + integer(c_int),target :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgeqrfStridedBatched_typed = hipblasZgeqrfStridedBatched_(handle,m,n,A,lda,strideA, & + ipiv,strideP,c_loc(myInfo),batchCount) + end function + #endif #if defined(USE_ASSUMED_SHAPE) || defined(USE_ASSUMED_RANK) @@ -57919,9 +60149,23 @@ function hipblasIsamax_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n real(c_float),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIsamax_assumed_rank = hipblasIsamax_(handle,n,c_loc(x),incx,myResult) + hipblasIsamax_assumed_rank = hipblasIsamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamax_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIsamax_assumed_rank_devptr = hipblasIsamax_(handle,n,c_loc(x),incx,myResult) end function #else @@ -57934,9 +60178,23 @@ function hipblasIsamax_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n real(c_float),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIsamax_rank_0 = hipblasIsamax_(handle,n,c_loc(x),incx,myResult) + hipblasIsamax_rank_0 = hipblasIsamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamax_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIsamax_rank_0_devptr = hipblasIsamax_(handle,n,c_loc(x),incx,myResult) end function function hipblasIsamax_rank_1(handle,n,x,incx,myResult) @@ -57948,9 +60206,23 @@ function hipblasIsamax_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n real(c_float),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + hipblasIsamax_rank_1 = hipblasIsamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamax_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamax_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIsamax_rank_1 = hipblasIsamax_(handle,n,c_loc(x),incx,myResult) + hipblasIsamax_rank_1_devptr = hipblasIsamax_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -57964,9 +60236,23 @@ function hipblasIdamax_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n real(c_double),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIdamax_assumed_rank = hipblasIdamax_(handle,n,c_loc(x),incx,myResult) + hipblasIdamax_assumed_rank = hipblasIdamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamax_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIdamax_assumed_rank_devptr = hipblasIdamax_(handle,n,c_loc(x),incx,myResult) end function #else @@ -57979,9 +60265,23 @@ function hipblasIdamax_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n real(c_double),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIdamax_rank_0 = hipblasIdamax_(handle,n,c_loc(x),incx,myResult) + hipblasIdamax_rank_0 = hipblasIdamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamax_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIdamax_rank_0_devptr = hipblasIdamax_(handle,n,c_loc(x),incx,myResult) end function function hipblasIdamax_rank_1(handle,n,x,incx,myResult) @@ -57993,9 +60293,23 @@ function hipblasIdamax_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n real(c_double),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIdamax_rank_1 = hipblasIdamax_(handle,n,c_loc(x),incx,myResult) + hipblasIdamax_rank_1 = hipblasIdamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamax_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamax_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIdamax_rank_1_devptr = hipblasIdamax_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -58009,9 +60323,23 @@ function hipblasIcamax_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + hipblasIcamax_assumed_rank = hipblasIcamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamax_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIcamax_assumed_rank = hipblasIcamax_(handle,n,c_loc(x),incx,myResult) + hipblasIcamax_assumed_rank_devptr = hipblasIcamax_(handle,n,c_loc(x),incx,myResult) end function #else @@ -58024,9 +60352,23 @@ function hipblasIcamax_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIcamax_rank_0 = hipblasIcamax_(handle,n,c_loc(x),incx,myResult) + hipblasIcamax_rank_0 = hipblasIcamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamax_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIcamax_rank_0_devptr = hipblasIcamax_(handle,n,c_loc(x),incx,myResult) end function function hipblasIcamax_rank_1(handle,n,x,incx,myResult) @@ -58038,9 +60380,23 @@ function hipblasIcamax_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + hipblasIcamax_rank_1 = hipblasIcamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamax_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamax_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIcamax_rank_1 = hipblasIcamax_(handle,n,c_loc(x),incx,myResult) + hipblasIcamax_rank_1_devptr = hipblasIcamax_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -58054,9 +60410,23 @@ function hipblasIzamax_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIzamax_assumed_rank = hipblasIzamax_(handle,n,c_loc(x),incx,myResult) + hipblasIzamax_assumed_rank = hipblasIzamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamax_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIzamax_assumed_rank_devptr = hipblasIzamax_(handle,n,c_loc(x),incx,myResult) end function #else @@ -58069,9 +60439,23 @@ function hipblasIzamax_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - hipblasIzamax_rank_0 = hipblasIzamax_(handle,n,c_loc(x),incx,myResult) + hipblasIzamax_rank_0 = hipblasIzamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamax_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasIzamax_rank_0_devptr = hipblasIzamax_(handle,n,c_loc(x),incx,myResult) end function function hipblasIzamax_rank_1(handle,n,x,incx,myResult) @@ -58083,9 +60467,23 @@ function hipblasIzamax_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + hipblasIzamax_rank_1 = hipblasIzamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamax_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamax_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIzamax_rank_1 = hipblasIzamax_(handle,n,c_loc(x),incx,myResult) + hipblasIzamax_rank_1_devptr = hipblasIzamax_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -58323,9 +60721,23 @@ function hipblasIsamin_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n real(c_float),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + hipblasIsamin_assumed_rank = hipblasIsamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamin_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIsamin_assumed_rank = hipblasIsamin_(handle,n,c_loc(x),incx,myResult) + hipblasIsamin_assumed_rank_devptr = hipblasIsamin_(handle,n,c_loc(x),incx,myResult) end function #else @@ -58338,9 +60750,23 @@ function hipblasIsamin_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n real(c_float),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + hipblasIsamin_rank_0 = hipblasIsamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamin_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIsamin_rank_0 = hipblasIsamin_(handle,n,c_loc(x),incx,myResult) + hipblasIsamin_rank_0_devptr = hipblasIsamin_(handle,n,c_loc(x),incx,myResult) end function function hipblasIsamin_rank_1(handle,n,x,incx,myResult) @@ -58352,9 +60778,23 @@ function hipblasIsamin_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n real(c_float),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + hipblasIsamin_rank_1 = hipblasIsamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIsamin_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIsamin_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIsamin_rank_1 = hipblasIsamin_(handle,n,c_loc(x),incx,myResult) + hipblasIsamin_rank_1_devptr = hipblasIsamin_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -58368,9 +60808,23 @@ function hipblasIdamin_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n real(c_double),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + hipblasIdamin_assumed_rank = hipblasIdamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamin_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIdamin_assumed_rank = hipblasIdamin_(handle,n,c_loc(x),incx,myResult) + hipblasIdamin_assumed_rank_devptr = hipblasIdamin_(handle,n,c_loc(x),incx,myResult) end function #else @@ -58383,9 +60837,23 @@ function hipblasIdamin_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n real(c_double),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + hipblasIdamin_rank_0 = hipblasIdamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamin_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIdamin_rank_0 = hipblasIdamin_(handle,n,c_loc(x),incx,myResult) + hipblasIdamin_rank_0_devptr = hipblasIdamin_(handle,n,c_loc(x),incx,myResult) end function function hipblasIdamin_rank_1(handle,n,x,incx,myResult) @@ -58397,9 +60865,23 @@ function hipblasIdamin_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n real(c_double),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + hipblasIdamin_rank_1 = hipblasIdamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIdamin_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIdamin_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIdamin_rank_1 = hipblasIdamin_(handle,n,c_loc(x),incx,myResult) + hipblasIdamin_rank_1_devptr = hipblasIdamin_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -58413,9 +60895,23 @@ function hipblasIcamin_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + hipblasIcamin_assumed_rank = hipblasIcamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamin_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIcamin_assumed_rank = hipblasIcamin_(handle,n,c_loc(x),incx,myResult) + hipblasIcamin_assumed_rank_devptr = hipblasIcamin_(handle,n,c_loc(x),incx,myResult) end function #else @@ -58428,9 +60924,23 @@ function hipblasIcamin_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + hipblasIcamin_rank_0 = hipblasIcamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamin_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIcamin_rank_0 = hipblasIcamin_(handle,n,c_loc(x),incx,myResult) + hipblasIcamin_rank_0_devptr = hipblasIcamin_(handle,n,c_loc(x),incx,myResult) end function function hipblasIcamin_rank_1(handle,n,x,incx,myResult) @@ -58442,9 +60952,23 @@ function hipblasIcamin_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + hipblasIcamin_rank_1 = hipblasIcamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIcamin_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIcamin_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIcamin_rank_1 = hipblasIcamin_(handle,n,c_loc(x),incx,myResult) + hipblasIcamin_rank_1_devptr = hipblasIcamin_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -58458,9 +60982,23 @@ function hipblasIzamin_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + hipblasIzamin_assumed_rank = hipblasIzamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamin_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIzamin_assumed_rank = hipblasIzamin_(handle,n,c_loc(x),incx,myResult) + hipblasIzamin_assumed_rank_devptr = hipblasIzamin_(handle,n,c_loc(x),incx,myResult) end function #else @@ -58473,9 +61011,23 @@ function hipblasIzamin_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + hipblasIzamin_rank_0 = hipblasIzamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamin_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIzamin_rank_0 = hipblasIzamin_(handle,n,c_loc(x),incx,myResult) + hipblasIzamin_rank_0_devptr = hipblasIzamin_(handle,n,c_loc(x),incx,myResult) end function function hipblasIzamin_rank_1(handle,n,x,incx,myResult) @@ -58487,9 +61039,23 @@ function hipblasIzamin_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + hipblasIzamin_rank_1 = hipblasIzamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasIzamin_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasIzamin_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasIzamin_rank_1 = hipblasIzamin_(handle,n,c_loc(x),incx,myResult) + hipblasIzamin_rank_1_devptr = hipblasIzamin_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -58727,9 +61293,23 @@ function hipblasSasum_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n real(c_float),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult + ! + hipblasSasum_assumed_rank = hipblasSasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSasum_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasSasum_assumed_rank = hipblasSasum_(handle,n,c_loc(x),incx,myResult) + hipblasSasum_assumed_rank_devptr = hipblasSasum_(handle,n,c_loc(x),incx,myResult) end function #else @@ -58742,9 +61322,23 @@ function hipblasSasum_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n real(c_float),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult + ! + hipblasSasum_rank_0 = hipblasSasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSasum_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasSasum_rank_0 = hipblasSasum_(handle,n,c_loc(x),incx,myResult) + hipblasSasum_rank_0_devptr = hipblasSasum_(handle,n,c_loc(x),incx,myResult) end function function hipblasSasum_rank_1(handle,n,x,incx,myResult) @@ -58756,9 +61350,23 @@ function hipblasSasum_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n real(c_float),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult + ! + hipblasSasum_rank_1 = hipblasSasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSasum_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSasum_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasSasum_rank_1 = hipblasSasum_(handle,n,c_loc(x),incx,myResult) + hipblasSasum_rank_1_devptr = hipblasSasum_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -58772,9 +61380,23 @@ function hipblasDasum_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n real(c_double),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult + ! + hipblasDasum_assumed_rank = hipblasDasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDasum_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasDasum_assumed_rank = hipblasDasum_(handle,n,c_loc(x),incx,myResult) + hipblasDasum_assumed_rank_devptr = hipblasDasum_(handle,n,c_loc(x),incx,myResult) end function #else @@ -58787,9 +61409,23 @@ function hipblasDasum_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n real(c_double),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult + ! + hipblasDasum_rank_0 = hipblasDasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDasum_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasDasum_rank_0 = hipblasDasum_(handle,n,c_loc(x),incx,myResult) + hipblasDasum_rank_0_devptr = hipblasDasum_(handle,n,c_loc(x),incx,myResult) end function function hipblasDasum_rank_1(handle,n,x,incx,myResult) @@ -58801,9 +61437,23 @@ function hipblasDasum_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n real(c_double),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult + ! + hipblasDasum_rank_1 = hipblasDasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDasum_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDasum_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasDasum_rank_1 = hipblasDasum_(handle,n,c_loc(x),incx,myResult) + hipblasDasum_rank_1_devptr = hipblasDasum_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -58817,9 +61467,23 @@ function hipblasScasum_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult + ! + hipblasScasum_assumed_rank = hipblasScasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScasum_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasScasum_assumed_rank = hipblasScasum_(handle,n,c_loc(x),incx,myResult) + hipblasScasum_assumed_rank_devptr = hipblasScasum_(handle,n,c_loc(x),incx,myResult) end function #else @@ -58832,9 +61496,23 @@ function hipblasScasum_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult + ! + hipblasScasum_rank_0 = hipblasScasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScasum_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasScasum_rank_0 = hipblasScasum_(handle,n,c_loc(x),incx,myResult) + hipblasScasum_rank_0_devptr = hipblasScasum_(handle,n,c_loc(x),incx,myResult) end function function hipblasScasum_rank_1(handle,n,x,incx,myResult) @@ -58846,9 +61524,23 @@ function hipblasScasum_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult + ! + hipblasScasum_rank_1 = hipblasScasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScasum_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScasum_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasScasum_rank_1 = hipblasScasum_(handle,n,c_loc(x),incx,myResult) + hipblasScasum_rank_1_devptr = hipblasScasum_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -58862,9 +61554,23 @@ function hipblasDzasum_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult + ! + hipblasDzasum_assumed_rank = hipblasDzasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDzasum_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasDzasum_assumed_rank = hipblasDzasum_(handle,n,c_loc(x),incx,myResult) + hipblasDzasum_assumed_rank_devptr = hipblasDzasum_(handle,n,c_loc(x),incx,myResult) end function #else @@ -58877,9 +61583,23 @@ function hipblasDzasum_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult + ! + hipblasDzasum_rank_0 = hipblasDzasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDzasum_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasDzasum_rank_0 = hipblasDzasum_(handle,n,c_loc(x),incx,myResult) + hipblasDzasum_rank_0_devptr = hipblasDzasum_(handle,n,c_loc(x),incx,myResult) end function function hipblasDzasum_rank_1(handle,n,x,incx,myResult) @@ -58891,9 +61611,23 @@ function hipblasDzasum_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult + ! + hipblasDzasum_rank_1 = hipblasDzasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDzasum_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDzasum_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasDzasum_rank_1 = hipblasDzasum_(handle,n,c_loc(x),incx,myResult) + hipblasDzasum_rank_1_devptr = hipblasDzasum_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -60053,9 +62787,25 @@ function hipblasSdot_assumed_rank(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx real(c_float),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + real(c_float),target :: myResult ! - hipblasSdot_assumed_rank = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasSdot_assumed_rank = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasSdot_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasSdot_assumed_rank_devptr = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #else @@ -60070,9 +62820,25 @@ function hipblasSdot_rank_0(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx real(c_float),target :: y integer(c_int) :: incy - type(c_ptr) :: myResult + real(c_float),target :: myResult + ! + hipblasSdot_rank_0 = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasSdot_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasSdot_rank_0 = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasSdot_rank_0_devptr = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function function hipblasSdot_rank_1(handle,n,x,incx,y,incy,myResult) @@ -60086,9 +62852,25 @@ function hipblasSdot_rank_1(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx real(c_float),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + real(c_float),target :: myResult ! - hipblasSdot_rank_1 = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasSdot_rank_1 = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasSdot_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSdot_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasSdot_rank_1_devptr = hipblasSdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif @@ -60104,9 +62886,25 @@ function hipblasDdot_assumed_rank(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx real(c_double),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + real(c_double),target :: myResult + ! + hipblasDdot_assumed_rank = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasDdot_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasDdot_assumed_rank = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasDdot_assumed_rank_devptr = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #else @@ -60121,9 +62919,25 @@ function hipblasDdot_rank_0(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx real(c_double),target :: y integer(c_int) :: incy - type(c_ptr) :: myResult + real(c_double),target :: myResult ! - hipblasDdot_rank_0 = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasDdot_rank_0 = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasDdot_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasDdot_rank_0_devptr = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function function hipblasDdot_rank_1(handle,n,x,incx,y,incy,myResult) @@ -60137,9 +62951,25 @@ function hipblasDdot_rank_1(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx real(c_double),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + real(c_double),target :: myResult + ! + hipblasDdot_rank_1 = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasDdot_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDdot_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasDdot_rank_1 = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasDdot_rank_1_devptr = hipblasDdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif @@ -60155,9 +62985,27 @@ function hipblasCdotc_assumed_rank(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_float_complex),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_float_complex),target :: myResult ! - hipblasCdotc_assumed_rank = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasCdotc_assumed_rank = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasCdotc_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasCdotc_assumed_rank_devptr = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #else @@ -60172,9 +63020,25 @@ function hipblasCdotc_rank_0(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_float_complex),target :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_float_complex),target :: myResult ! - hipblasCdotc_rank_0 = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasCdotc_rank_0 = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasCdotc_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasCdotc_rank_0_devptr = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function function hipblasCdotc_rank_1(handle,n,x,incx,y,incy,myResult) @@ -60188,9 +63052,25 @@ function hipblasCdotc_rank_1(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_float_complex),target :: myResult + ! + hipblasCdotc_rank_1 = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasCdotc_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotc_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasCdotc_rank_1 = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasCdotc_rank_1_devptr = hipblasCdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif @@ -60206,9 +63086,27 @@ function hipblasCdotu_assumed_rank(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_float_complex),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_float_complex),target :: myResult ! - hipblasCdotu_assumed_rank = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasCdotu_assumed_rank = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasCdotu_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasCdotu_assumed_rank_devptr = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #else @@ -60223,9 +63121,25 @@ function hipblasCdotu_rank_0(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_float_complex),target :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_float_complex),target :: myResult + ! + hipblasCdotu_rank_0 = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasCdotu_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasCdotu_rank_0 = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasCdotu_rank_0_devptr = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function function hipblasCdotu_rank_1(handle,n,x,incx,y,incy,myResult) @@ -60239,9 +63153,25 @@ function hipblasCdotu_rank_1(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_float_complex),target :: myResult ! - hipblasCdotu_rank_1 = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasCdotu_rank_1 = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasCdotu_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCdotu_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasCdotu_rank_1_devptr = hipblasCdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif @@ -60257,9 +63187,27 @@ function hipblasZdotc_assumed_rank(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_double_complex),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_double_complex),target :: myResult + ! + hipblasZdotc_assumed_rank = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasZdotc_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasZdotc_assumed_rank = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasZdotc_assumed_rank_devptr = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #else @@ -60274,9 +63222,25 @@ function hipblasZdotc_rank_0(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_double_complex),target :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_double_complex),target :: myResult ! - hipblasZdotc_rank_0 = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasZdotc_rank_0 = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasZdotc_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotc_rank_0_devptr = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function function hipblasZdotc_rank_1(handle,n,x,incx,y,incy,myResult) @@ -60290,9 +63254,25 @@ function hipblasZdotc_rank_1(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_double_complex),target :: myResult ! - hipblasZdotc_rank_1 = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasZdotc_rank_1 = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasZdotc_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotc_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotc_rank_1_devptr = hipblasZdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif @@ -60308,9 +63288,27 @@ function hipblasZdotu_assumed_rank(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_double_complex),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_double_complex),target :: myResult + ! + hipblasZdotu_assumed_rank = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function hipblasZdotu_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasZdotu_assumed_rank = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasZdotu_assumed_rank_devptr = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #else @@ -60325,9 +63323,25 @@ function hipblasZdotu_rank_0(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_double_complex),target :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_double_complex),target :: myResult ! - hipblasZdotu_rank_0 = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasZdotu_rank_0 = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasZdotu_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + hipblasZdotu_rank_0_devptr = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function function hipblasZdotu_rank_1(handle,n,x,incx,y,incy,myResult) @@ -60341,9 +63355,25 @@ function hipblasZdotu_rank_1(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_double_complex),target :: myResult + ! + hipblasZdotu_rank_1 = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function hipblasZdotu_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdotu_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - hipblasZdotu_rank_1 = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + hipblasZdotu_rank_1_devptr = hipblasZdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif @@ -60765,9 +63795,23 @@ function hipblasSnrm2_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n real(c_float),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult ! - hipblasSnrm2_assumed_rank = hipblasSnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasSnrm2_assumed_rank = hipblasSnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSnrm2_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasSnrm2_assumed_rank_devptr = hipblasSnrm2_(handle,n,c_loc(x),incx,myResult) end function #else @@ -60780,9 +63824,23 @@ function hipblasSnrm2_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n real(c_float),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult + ! + hipblasSnrm2_rank_0 = hipblasSnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSnrm2_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasSnrm2_rank_0 = hipblasSnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasSnrm2_rank_0_devptr = hipblasSnrm2_(handle,n,c_loc(x),incx,myResult) end function function hipblasSnrm2_rank_1(handle,n,x,incx,myResult) @@ -60794,9 +63852,23 @@ function hipblasSnrm2_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n real(c_float),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult ! - hipblasSnrm2_rank_1 = hipblasSnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasSnrm2_rank_1 = hipblasSnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasSnrm2_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSnrm2_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasSnrm2_rank_1_devptr = hipblasSnrm2_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -60810,9 +63882,23 @@ function hipblasDnrm2_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n real(c_double),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult + ! + hipblasDnrm2_assumed_rank = hipblasDnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDnrm2_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasDnrm2_assumed_rank = hipblasDnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasDnrm2_assumed_rank_devptr = hipblasDnrm2_(handle,n,c_loc(x),incx,myResult) end function #else @@ -60825,9 +63911,23 @@ function hipblasDnrm2_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n real(c_double),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult ! - hipblasDnrm2_rank_0 = hipblasDnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasDnrm2_rank_0 = hipblasDnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDnrm2_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasDnrm2_rank_0_devptr = hipblasDnrm2_(handle,n,c_loc(x),incx,myResult) end function function hipblasDnrm2_rank_1(handle,n,x,incx,myResult) @@ -60839,9 +63939,23 @@ function hipblasDnrm2_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n real(c_double),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult + ! + hipblasDnrm2_rank_1 = hipblasDnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDnrm2_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDnrm2_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasDnrm2_rank_1 = hipblasDnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasDnrm2_rank_1_devptr = hipblasDnrm2_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -60855,9 +63969,23 @@ function hipblasScnrm2_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult ! - hipblasScnrm2_assumed_rank = hipblasScnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasScnrm2_assumed_rank = hipblasScnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScnrm2_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasScnrm2_assumed_rank_devptr = hipblasScnrm2_(handle,n,c_loc(x),incx,myResult) end function #else @@ -60870,9 +63998,23 @@ function hipblasScnrm2_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult + ! + hipblasScnrm2_rank_0 = hipblasScnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScnrm2_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasScnrm2_rank_0 = hipblasScnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasScnrm2_rank_0_devptr = hipblasScnrm2_(handle,n,c_loc(x),incx,myResult) end function function hipblasScnrm2_rank_1(handle,n,x,incx,myResult) @@ -60884,9 +64026,23 @@ function hipblasScnrm2_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult ! - hipblasScnrm2_rank_1 = hipblasScnrm2_(handle,n,c_loc(x),incx,myResult) + hipblasScnrm2_rank_1 = hipblasScnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasScnrm2_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasScnrm2_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + hipblasScnrm2_rank_1_devptr = hipblasScnrm2_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -60900,9 +64056,23 @@ function hipblasDznrm2_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult + ! + hipblasDznrm2_assumed_rank = hipblasDznrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDznrm2_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasDznrm2_assumed_rank = hipblasDznrm2_(handle,n,c_loc(x),incx,myResult) + hipblasDznrm2_assumed_rank_devptr = hipblasDznrm2_(handle,n,c_loc(x),incx,myResult) end function #else @@ -60915,9 +64085,23 @@ function hipblasDznrm2_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult + ! + hipblasDznrm2_rank_0 = hipblasDznrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDznrm2_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasDznrm2_rank_0 = hipblasDznrm2_(handle,n,c_loc(x),incx,myResult) + hipblasDznrm2_rank_0_devptr = hipblasDznrm2_(handle,n,c_loc(x),incx,myResult) end function function hipblasDznrm2_rank_1(handle,n,x,incx,myResult) @@ -60929,9 +64113,23 @@ function hipblasDznrm2_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult + ! + hipblasDznrm2_rank_1 = hipblasDznrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function hipblasDznrm2_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDznrm2_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - hipblasDznrm2_rank_1 = hipblasDznrm2_(handle,n,c_loc(x),incx,myResult) + hipblasDznrm2_rank_1_devptr = hipblasDznrm2_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -61171,10 +64369,28 @@ function hipblasSrot_assumed_rank(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx real(c_float),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_float),target :: c + real(c_float),target :: s ! - hipblasSrot_assumed_rank = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasSrot_assumed_rank = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasSrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasSrot_assumed_rank_devptr = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #else @@ -61189,10 +64405,27 @@ function hipblasSrot_rank_0(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx real(c_float),target :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasSrot_rank_0 = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasSrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasSrot_rank_0 = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasSrot_rank_0_devptr = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function function hipblasSrot_rank_1(handle,n,x,incx,y,incy,c,s) @@ -61206,10 +64439,27 @@ function hipblasSrot_rank_1(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx real(c_float),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_float),target :: c + real(c_float),target :: s ! - hipblasSrot_rank_1 = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasSrot_rank_1 = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasSrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSrot_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasSrot_rank_1_devptr = hipblasSrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #endif @@ -61225,10 +64475,28 @@ function hipblasDrot_assumed_rank(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx real(c_double),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasDrot_assumed_rank = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasDrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasDrot_assumed_rank = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasDrot_assumed_rank_devptr = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #else @@ -61243,10 +64511,27 @@ function hipblasDrot_rank_0(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx real(c_double),target :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_double),target :: c + real(c_double),target :: s ! - hipblasDrot_rank_0 = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasDrot_rank_0 = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasDrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasDrot_rank_0_devptr = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function function hipblasDrot_rank_1(handle,n,x,incx,y,incy,c,s) @@ -61260,10 +64545,27 @@ function hipblasDrot_rank_1(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx real(c_double),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_double),target :: c + real(c_double),target :: s ! - hipblasDrot_rank_1 = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasDrot_rank_1 = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasDrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDrot_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasDrot_rank_1_devptr = hipblasDrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #endif @@ -61279,10 +64581,28 @@ function hipblasCrot_assumed_rank(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx complex(c_float_complex),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrot_assumed_rank = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasCrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasCrot_assumed_rank = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasCrot_assumed_rank_devptr = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #else @@ -61297,10 +64617,27 @@ function hipblasCrot_rank_0(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx complex(c_float_complex),target :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_float),target :: c + complex(c_float_complex),target :: s ! - hipblasCrot_rank_0 = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasCrot_rank_0 = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasCrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCrot_rank_0_devptr = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function function hipblasCrot_rank_1(handle,n,x,incx,y,incy,c,s) @@ -61314,10 +64651,27 @@ function hipblasCrot_rank_1(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + hipblasCrot_rank_1 = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasCrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCrot_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasCrot_rank_1 = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasCrot_rank_1_devptr = hipblasCrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #endif @@ -61333,10 +64687,28 @@ function hipblasCsrot_assumed_rank(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx complex(c_float_complex),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_float),target :: c + real(c_float),target :: s ! - hipblasCsrot_assumed_rank = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasCsrot_assumed_rank = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasCsrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCsrot_assumed_rank_devptr = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #else @@ -61351,10 +64723,27 @@ function hipblasCsrot_rank_0(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx complex(c_float_complex),target :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_float),target :: c + real(c_float),target :: s ! - hipblasCsrot_rank_0 = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasCsrot_rank_0 = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasCsrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasCsrot_rank_0_devptr = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function function hipblasCsrot_rank_1(handle,n,x,incx,y,incy,c,s) @@ -61368,10 +64757,27 @@ function hipblasCsrot_rank_1(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_float),target :: c + real(c_float),target :: s + ! + hipblasCsrot_rank_1 = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasCsrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCsrot_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasCsrot_rank_1 = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasCsrot_rank_1_devptr = hipblasCsrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #endif @@ -61387,10 +64793,28 @@ function hipblasZrot_assumed_rank(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx complex(c_double_complex),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_double),target :: c + complex(c_double_complex),target :: s ! - hipblasZrot_assumed_rank = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasZrot_assumed_rank = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasZrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZrot_assumed_rank_devptr = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #else @@ -61405,10 +64829,27 @@ function hipblasZrot_rank_0(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx complex(c_double_complex),target :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + hipblasZrot_rank_0 = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasZrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasZrot_rank_0 = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasZrot_rank_0_devptr = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function function hipblasZrot_rank_1(handle,n,x,incx,y,incy,c,s) @@ -61422,10 +64863,27 @@ function hipblasZrot_rank_1(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_double),target :: c + complex(c_double_complex),target :: s ! - hipblasZrot_rank_1 = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasZrot_rank_1 = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasZrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZrot_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZrot_rank_1_devptr = hipblasZrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #endif @@ -61441,10 +64899,28 @@ function hipblasZdrot_assumed_rank(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx complex(c_double_complex),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasZdrot_assumed_rank = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function hipblasZdrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasZdrot_assumed_rank = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasZdrot_assumed_rank_devptr = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #else @@ -61459,10 +64935,27 @@ function hipblasZdrot_rank_0(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx complex(c_double_complex),target :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_double),target :: c + real(c_double),target :: s + ! + hipblasZdrot_rank_0 = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasZdrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s ! - hipblasZdrot_rank_0 = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasZdrot_rank_0_devptr = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function function hipblasZdrot_rank_1(handle,n,x,incx,y,incy,c,s) @@ -61476,10 +64969,27 @@ function hipblasZdrot_rank_1(handle,n,x,incx,y,incy,c,s) integer(c_int) :: incx complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: c - type(c_ptr) :: s + real(c_double),target :: c + real(c_double),target :: s ! - hipblasZdrot_rank_1 = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + hipblasZdrot_rank_1 = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + end function + + function hipblasZdrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZdrot_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + hipblasZdrot_rank_1_devptr = hipblasZdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function #endif @@ -86379,10 +89889,30 @@ function hipblasSgetrs_assumed_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) integer(c_int),target,contiguous,dimension(..) :: ipiv real(c_float),target,contiguous,dimension(..) :: B integer(c_int) :: ldb - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo ! hipblasSgetrs_assumed_rank = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,myInfo) + c_loc(B),ldb,c_loc(myInfo)) + end function + + function hipblasSgetrs_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_assumed_rank_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,contiguous,dimension(..) :: ipiv + real(c_float),target,contiguous,dimension(..) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasSgetrs_assumed_rank_devptr = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & + c_loc(ipiv),c_loc(B),ldb,myInfo) end function #else @@ -86400,10 +89930,30 @@ function hipblasSgetrs_rank_0(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) integer(c_int),target :: ipiv real(c_float),target :: B integer(c_int) :: ldb - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo ! hipblasSgetrs_rank_0 = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & - ldb,myInfo) + ldb,c_loc(myInfo)) + end function + + function hipblasSgetrs_rank_0_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_rank_0_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + real(c_float),target :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasSgetrs_rank_0_devptr = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,myInfo) end function function hipblasSgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) @@ -86420,10 +89970,30 @@ function hipblasSgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) integer(c_int),target,dimension(:) :: ipiv real(c_float),target,dimension(:) :: B integer(c_int) :: ldb - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo ! hipblasSgetrs_rank_1 = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & - ldb,myInfo) + ldb,c_loc(myInfo)) + end function + + function hipblasSgetrs_rank_1_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_rank_1_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + real(c_float),target,dimension(:) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasSgetrs_rank_1_devptr = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,myInfo) end function function hipblasSgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) @@ -86440,10 +90010,30 @@ function hipblasSgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) integer(c_int),target,dimension(:) :: ipiv real(c_float),target,dimension(:,:) :: B integer(c_int) :: ldb - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo ! hipblasSgetrs_full_rank = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,myInfo) + c_loc(B),ldb,c_loc(myInfo)) + end function + + function hipblasSgetrs_full_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrs_full_rank_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + real(c_float),target,dimension(:,:) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasSgetrs_full_rank_devptr = hipblasSgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & + c_loc(ipiv),c_loc(B),ldb,myInfo) end function #endif @@ -86464,10 +90054,30 @@ function hipblasDgetrs_assumed_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) integer(c_int),target,contiguous,dimension(..) :: ipiv real(c_double),target,contiguous,dimension(..) :: B integer(c_int) :: ldb - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo ! hipblasDgetrs_assumed_rank = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,myInfo) + c_loc(B),ldb,c_loc(myInfo)) + end function + + function hipblasDgetrs_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_assumed_rank_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,contiguous,dimension(..) :: ipiv + real(c_double),target,contiguous,dimension(..) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasDgetrs_assumed_rank_devptr = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & + c_loc(ipiv),c_loc(B),ldb,myInfo) end function #else @@ -86485,10 +90095,30 @@ function hipblasDgetrs_rank_0(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) integer(c_int),target :: ipiv real(c_double),target :: B integer(c_int) :: ldb - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo ! hipblasDgetrs_rank_0 = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & - ldb,myInfo) + ldb,c_loc(myInfo)) + end function + + function hipblasDgetrs_rank_0_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_rank_0_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + real(c_double),target :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasDgetrs_rank_0_devptr = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,myInfo) end function function hipblasDgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) @@ -86505,17 +90135,57 @@ function hipblasDgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) integer(c_int),target,dimension(:) :: ipiv real(c_double),target,dimension(:) :: B integer(c_int) :: ldb - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasDgetrs_rank_1 = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & + ldb,c_loc(myInfo)) + end function + + function hipblasDgetrs_rank_1_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_rank_1_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + real(c_double),target,dimension(:) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasDgetrs_rank_1_devptr = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,myInfo) + end function + + function hipblasDgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_full_rank + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + real(c_double),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int),target :: myInfo ! - hipblasDgetrs_rank_1 = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & - ldb,myInfo) + hipblasDgetrs_full_rank = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,c_loc(myInfo)) end function - function hipblasDgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + function hipblasDgetrs_full_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) use iso_c_binding use hipfort_hipblas_enums implicit none - integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_full_rank + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrs_full_rank_devptr type(c_ptr) :: handle integer(kind(HIPBLAS_OP_N)) :: trans integer(c_int) :: n @@ -86525,10 +90195,10 @@ function hipblasDgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) integer(c_int),target,dimension(:) :: ipiv real(c_double),target,dimension(:,:) :: B integer(c_int) :: ldb - type(c_ptr) :: myInfo + type(c_ptr),value :: myInfo ! - hipblasDgetrs_full_rank = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,myInfo) + hipblasDgetrs_full_rank_devptr = hipblasDgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & + c_loc(ipiv),c_loc(B),ldb,myInfo) end function #endif @@ -86549,10 +90219,30 @@ function hipblasCgetrs_assumed_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) integer(c_int),target,contiguous,dimension(..) :: ipiv complex(c_float_complex),target,contiguous,dimension(..) :: B integer(c_int) :: ldb - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo ! hipblasCgetrs_assumed_rank = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,myInfo) + c_loc(B),ldb,c_loc(myInfo)) + end function + + function hipblasCgetrs_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_assumed_rank_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,contiguous,dimension(..) :: ipiv + complex(c_float_complex),target,contiguous,dimension(..) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasCgetrs_assumed_rank_devptr = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & + c_loc(ipiv),c_loc(B),ldb,myInfo) end function #else @@ -86570,10 +90260,30 @@ function hipblasCgetrs_rank_0(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) integer(c_int),target :: ipiv complex(c_float_complex),target :: B integer(c_int) :: ldb - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo ! hipblasCgetrs_rank_0 = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & - ldb,myInfo) + ldb,c_loc(myInfo)) + end function + + function hipblasCgetrs_rank_0_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_rank_0_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + complex(c_float_complex),target :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasCgetrs_rank_0_devptr = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,myInfo) end function function hipblasCgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) @@ -86590,10 +90300,30 @@ function hipblasCgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) integer(c_int),target,dimension(:) :: ipiv complex(c_float_complex),target,dimension(:) :: B integer(c_int) :: ldb - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo ! hipblasCgetrs_rank_1 = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & - ldb,myInfo) + ldb,c_loc(myInfo)) + end function + + function hipblasCgetrs_rank_1_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_rank_1_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + complex(c_float_complex),target,dimension(:) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasCgetrs_rank_1_devptr = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,myInfo) end function function hipblasCgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) @@ -86610,10 +90340,30 @@ function hipblasCgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) integer(c_int),target,dimension(:) :: ipiv complex(c_float_complex),target,dimension(:,:) :: B integer(c_int) :: ldb - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo ! hipblasCgetrs_full_rank = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,myInfo) + c_loc(B),ldb,c_loc(myInfo)) + end function + + function hipblasCgetrs_full_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrs_full_rank_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + complex(c_float_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasCgetrs_full_rank_devptr = hipblasCgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & + c_loc(ipiv),c_loc(B),ldb,myInfo) end function #endif @@ -86634,10 +90384,30 @@ function hipblasZgetrs_assumed_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) integer(c_int),target,contiguous,dimension(..) :: ipiv complex(c_double_complex),target,contiguous,dimension(..) :: B integer(c_int) :: ldb - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo ! hipblasZgetrs_assumed_rank = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,myInfo) + c_loc(B),ldb,c_loc(myInfo)) + end function + + function hipblasZgetrs_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_assumed_rank_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + integer(c_int),target,contiguous,dimension(..) :: ipiv + complex(c_double_complex),target,contiguous,dimension(..) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasZgetrs_assumed_rank_devptr = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & + c_loc(ipiv),c_loc(B),ldb,myInfo) end function #else @@ -86655,10 +90425,30 @@ function hipblasZgetrs_rank_0(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) integer(c_int),target :: ipiv complex(c_double_complex),target :: B integer(c_int) :: ldb - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo ! hipblasZgetrs_rank_0 = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & - ldb,myInfo) + ldb,c_loc(myInfo)) + end function + + function hipblasZgetrs_rank_0_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_rank_0_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target :: A + integer(c_int) :: lda + integer(c_int),target :: ipiv + complex(c_double_complex),target :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasZgetrs_rank_0_devptr = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,myInfo) end function function hipblasZgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) @@ -86675,10 +90465,30 @@ function hipblasZgetrs_rank_1(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) integer(c_int),target,dimension(:) :: ipiv complex(c_double_complex),target,dimension(:) :: B integer(c_int) :: ldb - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo ! hipblasZgetrs_rank_1 = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv),c_loc(B), & - ldb,myInfo) + ldb,c_loc(myInfo)) + end function + + function hipblasZgetrs_rank_1_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_rank_1_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + complex(c_double_complex),target,dimension(:) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasZgetrs_rank_1_devptr = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & + c_loc(B),ldb,myInfo) end function function hipblasZgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) @@ -86695,10 +90505,30 @@ function hipblasZgetrs_full_rank(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) integer(c_int),target,dimension(:) :: ipiv complex(c_double_complex),target,dimension(:,:) :: B integer(c_int) :: ldb - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo ! hipblasZgetrs_full_rank = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda,c_loc(ipiv), & - c_loc(B),ldb,myInfo) + c_loc(B),ldb,c_loc(myInfo)) + end function + + function hipblasZgetrs_full_rank_devptr(handle,trans,n,nrhs,A,lda,ipiv,B,ldb,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrs_full_rank_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int),target,dimension(:) :: ipiv + complex(c_double_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + type(c_ptr),value :: myInfo + ! + hipblasZgetrs_full_rank_devptr = hipblasZgetrs_(handle,trans,n,nrhs,c_loc(A),lda, & + c_loc(ipiv),c_loc(B),ldb,myInfo) end function #endif @@ -86723,11 +90553,36 @@ function hipblasSgetrsStridedBatched_assumed_rank(handle,trans,n,nrhs,A,lda,stri real(c_float),target,contiguous,dimension(..) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasSgetrsStridedBatched_assumed_rank = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasSgetrsStridedBatched_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,strideA, & + ipiv,strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_assumed_rank_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,contiguous,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + real(c_float),target,contiguous,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsStridedBatched_assumed_rank_devptr = hipblasSgetrsStridedBatched_(handle,trans, & + n,nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) end function #else @@ -86749,11 +90604,36 @@ function hipblasSgetrsStridedBatched_rank_0(handle,trans,n,nrhs,A,lda,strideA,ip real(c_float),target :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasSgetrsStridedBatched_rank_0 = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasSgetrsStridedBatched_rank_0_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_rank_0_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + real(c_float),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsStridedBatched_rank_0_devptr = hipblasSgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) end function function hipblasSgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & @@ -86774,11 +90654,36 @@ function hipblasSgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ip real(c_float),target,dimension(:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasSgetrsStridedBatched_rank_1 = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasSgetrsStridedBatched_rank_1_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_rank_1_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + real(c_float),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsStridedBatched_rank_1_devptr = hipblasSgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) end function function hipblasSgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP, & @@ -86799,11 +90704,36 @@ function hipblasSgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA real(c_float),target,dimension(:,:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasSgetrsStridedBatched_full_rank = hipblasSgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasSgetrsStridedBatched_full_rank_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgetrsStridedBatched_full_rank_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + real(c_float),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgetrsStridedBatched_full_rank_devptr = hipblasSgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) end function #endif @@ -86828,11 +90758,36 @@ function hipblasDgetrsStridedBatched_assumed_rank(handle,trans,n,nrhs,A,lda,stri real(c_double),target,contiguous,dimension(..) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasDgetrsStridedBatched_assumed_rank = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasDgetrsStridedBatched_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,strideA, & + ipiv,strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_assumed_rank_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,contiguous,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + real(c_double),target,contiguous,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsStridedBatched_assumed_rank_devptr = hipblasDgetrsStridedBatched_(handle,trans, & + n,nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) end function #else @@ -86854,11 +90809,36 @@ function hipblasDgetrsStridedBatched_rank_0(handle,trans,n,nrhs,A,lda,strideA,ip real(c_double),target :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasDgetrsStridedBatched_rank_0 = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasDgetrsStridedBatched_rank_0_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_rank_0_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + real(c_double),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsStridedBatched_rank_0_devptr = hipblasDgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) end function function hipblasDgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & @@ -86879,11 +90859,36 @@ function hipblasDgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ip real(c_double),target,dimension(:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasDgetrsStridedBatched_rank_1 = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasDgetrsStridedBatched_rank_1_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_rank_1_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + real(c_double),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsStridedBatched_rank_1_devptr = hipblasDgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) end function function hipblasDgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP, & @@ -86904,11 +90909,36 @@ function hipblasDgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA real(c_double),target,dimension(:,:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasDgetrsStridedBatched_full_rank = hipblasDgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasDgetrsStridedBatched_full_rank_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgetrsStridedBatched_full_rank_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + real(c_double),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgetrsStridedBatched_full_rank_devptr = hipblasDgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) end function #endif @@ -86933,11 +90963,36 @@ function hipblasCgetrsStridedBatched_assumed_rank(handle,trans,n,nrhs,A,lda,stri complex(c_float_complex),target,contiguous,dimension(..) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasCgetrsStridedBatched_assumed_rank = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasCgetrsStridedBatched_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,strideA, & + ipiv,strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_assumed_rank_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,contiguous,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + complex(c_float_complex),target,contiguous,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrsStridedBatched_assumed_rank_devptr = hipblasCgetrsStridedBatched_(handle,trans, & + n,nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) end function #else @@ -86959,11 +91014,36 @@ function hipblasCgetrsStridedBatched_rank_0(handle,trans,n,nrhs,A,lda,strideA,ip complex(c_float_complex),target :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasCgetrsStridedBatched_rank_0 = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasCgetrsStridedBatched_rank_0_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_rank_0_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + complex(c_float_complex),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrsStridedBatched_rank_0_devptr = hipblasCgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) end function function hipblasCgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & @@ -86984,11 +91064,36 @@ function hipblasCgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ip complex(c_float_complex),target,dimension(:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasCgetrsStridedBatched_rank_1 = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasCgetrsStridedBatched_rank_1_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_rank_1_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + complex(c_float_complex),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrsStridedBatched_rank_1_devptr = hipblasCgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) end function function hipblasCgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP, & @@ -87009,11 +91114,36 @@ function hipblasCgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA complex(c_float_complex),target,dimension(:,:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasCgetrsStridedBatched_full_rank = hipblasCgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasCgetrsStridedBatched_full_rank_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgetrsStridedBatched_full_rank_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + complex(c_float_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgetrsStridedBatched_full_rank_devptr = hipblasCgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) end function #endif @@ -87038,11 +91168,36 @@ function hipblasZgetrsStridedBatched_assumed_rank(handle,trans,n,nrhs,A,lda,stri complex(c_double_complex),target,contiguous,dimension(..) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasZgetrsStridedBatched_assumed_rank = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasZgetrsStridedBatched_assumed_rank_devptr(handle,trans,n,nrhs,A,lda,strideA, & + ipiv,strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_assumed_rank_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,contiguous,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + complex(c_double_complex),target,contiguous,dimension(..) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrsStridedBatched_assumed_rank_devptr = hipblasZgetrsStridedBatched_(handle,trans, & + n,nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) end function #else @@ -87064,11 +91219,36 @@ function hipblasZgetrsStridedBatched_rank_0(handle,trans,n,nrhs,A,lda,strideA,ip complex(c_double_complex),target :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasZgetrsStridedBatched_rank_0 = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasZgetrsStridedBatched_rank_0_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_rank_0_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target :: ipiv + integer(c_int64_t) :: strideP + complex(c_double_complex),target :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrsStridedBatched_rank_0_devptr = hipblasZgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) end function function hipblasZgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP,B, & @@ -87089,11 +91269,36 @@ function hipblasZgetrsStridedBatched_rank_1(handle,trans,n,nrhs,A,lda,strideA,ip complex(c_double_complex),target,dimension(:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasZgetrsStridedBatched_rank_1 = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasZgetrsStridedBatched_rank_1_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_rank_1_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + complex(c_double_complex),target,dimension(:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrsStridedBatched_rank_1_devptr = hipblasZgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) end function function hipblasZgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA,ipiv,strideP, & @@ -87114,11 +91319,36 @@ function hipblasZgetrsStridedBatched_full_rank(handle,trans,n,nrhs,A,lda,strideA complex(c_double_complex),target,dimension(:,:) :: B integer(c_int) :: ldb integer(c_int64_t) :: strideB - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasZgetrsStridedBatched_full_rank = hipblasZgetrsStridedBatched_(handle,trans,n,nrhs, & - c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) + c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,c_loc(myInfo),batchCount) + end function + + function hipblasZgetrsStridedBatched_full_rank_devptr(handle,trans,n,nrhs,A,lda,strideA,ipiv, & + strideP,B,ldb,strideB,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgetrsStridedBatched_full_rank_devptr + type(c_ptr) :: handle + integer(kind(HIPBLAS_OP_N)) :: trans + integer(c_int) :: n + integer(c_int) :: nrhs + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + integer(c_int),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + complex(c_double_complex),target,dimension(:,:) :: B + integer(c_int) :: ldb + integer(c_int64_t) :: strideB + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgetrsStridedBatched_full_rank_devptr = hipblasZgetrsStridedBatched_(handle,trans,n, & + nrhs,c_loc(A),lda,strideA,c_loc(ipiv),strideP,c_loc(B),ldb,strideB,myInfo,batchCount) end function #endif @@ -87136,9 +91366,25 @@ function hipblasSgeqrf_assumed_rank(handle,m,n,A,lda,ipiv,myInfo) real(c_float),target,contiguous,dimension(..) :: A integer(c_int) :: lda real(c_float),target,contiguous,dimension(..) :: ipiv - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasSgeqrf_assumed_rank = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasSgeqrf_assumed_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + real(c_float),target,contiguous,dimension(..) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasSgeqrf_assumed_rank = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasSgeqrf_assumed_rank_devptr = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function #else @@ -87153,9 +91399,25 @@ function hipblasSgeqrf_rank_0(handle,m,n,A,lda,ipiv,myInfo) real(c_float),target :: A integer(c_int) :: lda real(c_float),target :: ipiv - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasSgeqrf_rank_0 = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasSgeqrf_rank_0_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: A + integer(c_int) :: lda + real(c_float),target :: ipiv + type(c_ptr),value :: myInfo ! - hipblasSgeqrf_rank_0 = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasSgeqrf_rank_0_devptr = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function function hipblasSgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) @@ -87169,9 +91431,25 @@ function hipblasSgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) real(c_float),target,dimension(:) :: A integer(c_int) :: lda real(c_float),target,dimension(:) :: ipiv - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasSgeqrf_rank_1 = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasSgeqrf_rank_1_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + real(c_float),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasSgeqrf_rank_1 = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasSgeqrf_rank_1_devptr = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function function hipblasSgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) @@ -87185,9 +91463,25 @@ function hipblasSgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) real(c_float),target,dimension(:,:) :: A integer(c_int) :: lda real(c_float),target,dimension(:) :: ipiv - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasSgeqrf_full_rank = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasSgeqrf_full_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrf_full_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + real(c_float),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasSgeqrf_full_rank = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasSgeqrf_full_rank_devptr = hipblasSgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function #endif @@ -87205,9 +91499,25 @@ function hipblasDgeqrf_assumed_rank(handle,m,n,A,lda,ipiv,myInfo) real(c_double),target,contiguous,dimension(..) :: A integer(c_int) :: lda real(c_double),target,contiguous,dimension(..) :: ipiv - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasDgeqrf_assumed_rank = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasDgeqrf_assumed_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + real(c_double),target,contiguous,dimension(..) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasDgeqrf_assumed_rank = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasDgeqrf_assumed_rank_devptr = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function #else @@ -87222,9 +91532,25 @@ function hipblasDgeqrf_rank_0(handle,m,n,A,lda,ipiv,myInfo) real(c_double),target :: A integer(c_int) :: lda real(c_double),target :: ipiv - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasDgeqrf_rank_0 = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasDgeqrf_rank_0_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: A + integer(c_int) :: lda + real(c_double),target :: ipiv + type(c_ptr),value :: myInfo ! - hipblasDgeqrf_rank_0 = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasDgeqrf_rank_0_devptr = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function function hipblasDgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) @@ -87238,9 +91564,25 @@ function hipblasDgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) real(c_double),target,dimension(:) :: A integer(c_int) :: lda real(c_double),target,dimension(:) :: ipiv - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasDgeqrf_rank_1 = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasDgeqrf_rank_1_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + real(c_double),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasDgeqrf_rank_1 = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasDgeqrf_rank_1_devptr = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function function hipblasDgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) @@ -87254,9 +91596,25 @@ function hipblasDgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) real(c_double),target,dimension(:,:) :: A integer(c_int) :: lda real(c_double),target,dimension(:) :: ipiv - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasDgeqrf_full_rank = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasDgeqrf_full_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrf_full_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + real(c_double),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasDgeqrf_full_rank = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasDgeqrf_full_rank_devptr = hipblasDgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function #endif @@ -87274,9 +91632,25 @@ function hipblasCgeqrf_assumed_rank(handle,m,n,A,lda,ipiv,myInfo) complex(c_float_complex),target,contiguous,dimension(..) :: A integer(c_int) :: lda complex(c_float_complex),target,contiguous,dimension(..) :: ipiv - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasCgeqrf_assumed_rank = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasCgeqrf_assumed_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + complex(c_float_complex),target,contiguous,dimension(..) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasCgeqrf_assumed_rank = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasCgeqrf_assumed_rank_devptr = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function #else @@ -87291,9 +91665,25 @@ function hipblasCgeqrf_rank_0(handle,m,n,A,lda,ipiv,myInfo) complex(c_float_complex),target :: A integer(c_int) :: lda complex(c_float_complex),target :: ipiv - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasCgeqrf_rank_0 = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasCgeqrf_rank_0_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: A + integer(c_int) :: lda + complex(c_float_complex),target :: ipiv + type(c_ptr),value :: myInfo ! - hipblasCgeqrf_rank_0 = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasCgeqrf_rank_0_devptr = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function function hipblasCgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) @@ -87307,9 +91697,25 @@ function hipblasCgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) complex(c_float_complex),target,dimension(:) :: A integer(c_int) :: lda complex(c_float_complex),target,dimension(:) :: ipiv - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasCgeqrf_rank_1 = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasCgeqrf_rank_1_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasCgeqrf_rank_1 = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasCgeqrf_rank_1_devptr = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function function hipblasCgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) @@ -87323,9 +91729,25 @@ function hipblasCgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) complex(c_float_complex),target,dimension(:,:) :: A integer(c_int) :: lda complex(c_float_complex),target,dimension(:) :: ipiv - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasCgeqrf_full_rank = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasCgeqrf_full_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrf_full_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + complex(c_float_complex),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasCgeqrf_full_rank = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasCgeqrf_full_rank_devptr = hipblasCgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function #endif @@ -87343,9 +91765,25 @@ function hipblasZgeqrf_assumed_rank(handle,m,n,A,lda,ipiv,myInfo) complex(c_double_complex),target,contiguous,dimension(..) :: A integer(c_int) :: lda complex(c_double_complex),target,contiguous,dimension(..) :: ipiv - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasZgeqrf_assumed_rank = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasZgeqrf_assumed_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + complex(c_double_complex),target,contiguous,dimension(..) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasZgeqrf_assumed_rank = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasZgeqrf_assumed_rank_devptr = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function #else @@ -87360,9 +91798,25 @@ function hipblasZgeqrf_rank_0(handle,m,n,A,lda,ipiv,myInfo) complex(c_double_complex),target :: A integer(c_int) :: lda complex(c_double_complex),target :: ipiv - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasZgeqrf_rank_0 = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasZgeqrf_rank_0_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: A + integer(c_int) :: lda + complex(c_double_complex),target :: ipiv + type(c_ptr),value :: myInfo ! - hipblasZgeqrf_rank_0 = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasZgeqrf_rank_0_devptr = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function function hipblasZgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) @@ -87376,9 +91830,25 @@ function hipblasZgeqrf_rank_1(handle,m,n,A,lda,ipiv,myInfo) complex(c_double_complex),target,dimension(:) :: A integer(c_int) :: lda complex(c_double_complex),target,dimension(:) :: ipiv - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasZgeqrf_rank_1 = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasZgeqrf_rank_1_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasZgeqrf_rank_1 = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasZgeqrf_rank_1_devptr = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function function hipblasZgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) @@ -87392,9 +91862,25 @@ function hipblasZgeqrf_full_rank(handle,m,n,A,lda,ipiv,myInfo) complex(c_double_complex),target,dimension(:,:) :: A integer(c_int) :: lda complex(c_double_complex),target,dimension(:) :: ipiv - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo + ! + hipblasZgeqrf_full_rank = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),c_loc(myInfo)) + end function + + function hipblasZgeqrf_full_rank_devptr(handle,m,n,A,lda,ipiv,myInfo) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrf_full_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + complex(c_double_complex),target,dimension(:) :: ipiv + type(c_ptr),value :: myInfo ! - hipblasZgeqrf_full_rank = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) + hipblasZgeqrf_full_rank_devptr = hipblasZgeqrf_(handle,m,n,c_loc(A),lda,c_loc(ipiv),myInfo) end function #endif @@ -87415,11 +91901,32 @@ function hipblasSgeqrfStridedBatched_assumed_rank(handle,m,n,A,lda,strideA,ipiv, integer(c_int64_t) :: strideA real(c_float),target,contiguous,dimension(..) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasSgeqrfStridedBatched_assumed_rank = hipblasSgeqrfStridedBatched_(handle,m,n,c_loc(A), & - lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasSgeqrfStridedBatched_assumed_rank_devptr(handle,m,n,A,lda,strideA,ipiv, & + strideP,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,contiguous,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgeqrfStridedBatched_assumed_rank_devptr = hipblasSgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function #else @@ -87437,11 +91944,32 @@ function hipblasSgeqrfStridedBatched_rank_0(handle,m,n,A,lda,strideA,ipiv,stride integer(c_int64_t) :: strideA real(c_float),target :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasSgeqrfStridedBatched_rank_0 = hipblasSgeqrfStridedBatched_(handle,m,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasSgeqrfStridedBatched_rank_0_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgeqrfStridedBatched_rank_0_devptr = hipblasSgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function function hipblasSgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & @@ -87458,11 +91986,32 @@ function hipblasSgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,stride integer(c_int64_t) :: strideA real(c_float),target,dimension(:) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasSgeqrfStridedBatched_rank_1 = hipblasSgeqrfStridedBatched_(handle,m,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasSgeqrfStridedBatched_rank_1_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgeqrfStridedBatched_rank_1_devptr = hipblasSgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function function hipblasSgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & @@ -87479,11 +92028,32 @@ function hipblasSgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,str integer(c_int64_t) :: strideA real(c_float),target,dimension(:) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasSgeqrfStridedBatched_full_rank = hipblasSgeqrfStridedBatched_(handle,m,n,c_loc(A), & - lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasSgeqrfStridedBatched_full_rank_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasSgeqrfStridedBatched_full_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_float),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasSgeqrfStridedBatched_full_rank_devptr = hipblasSgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function #endif @@ -87504,11 +92074,32 @@ function hipblasDgeqrfStridedBatched_assumed_rank(handle,m,n,A,lda,strideA,ipiv, integer(c_int64_t) :: strideA real(c_double),target,contiguous,dimension(..) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasDgeqrfStridedBatched_assumed_rank = hipblasDgeqrfStridedBatched_(handle,m,n,c_loc(A), & - lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasDgeqrfStridedBatched_assumed_rank_devptr(handle,m,n,A,lda,strideA,ipiv, & + strideP,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,contiguous,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgeqrfStridedBatched_assumed_rank_devptr = hipblasDgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function #else @@ -87526,11 +92117,32 @@ function hipblasDgeqrfStridedBatched_rank_0(handle,m,n,A,lda,strideA,ipiv,stride integer(c_int64_t) :: strideA real(c_double),target :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasDgeqrfStridedBatched_rank_0 = hipblasDgeqrfStridedBatched_(handle,m,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasDgeqrfStridedBatched_rank_0_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgeqrfStridedBatched_rank_0_devptr = hipblasDgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function function hipblasDgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & @@ -87547,11 +92159,32 @@ function hipblasDgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,stride integer(c_int64_t) :: strideA real(c_double),target,dimension(:) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasDgeqrfStridedBatched_rank_1 = hipblasDgeqrfStridedBatched_(handle,m,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasDgeqrfStridedBatched_rank_1_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgeqrfStridedBatched_rank_1_devptr = hipblasDgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function function hipblasDgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & @@ -87568,11 +92201,32 @@ function hipblasDgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,str integer(c_int64_t) :: strideA real(c_double),target,dimension(:) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasDgeqrfStridedBatched_full_rank = hipblasDgeqrfStridedBatched_(handle,m,n,c_loc(A), & - lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasDgeqrfStridedBatched_full_rank_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasDgeqrfStridedBatched_full_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + real(c_double),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasDgeqrfStridedBatched_full_rank_devptr = hipblasDgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function #endif @@ -87593,11 +92247,32 @@ function hipblasCgeqrfStridedBatched_assumed_rank(handle,m,n,A,lda,strideA,ipiv, integer(c_int64_t) :: strideA complex(c_float_complex),target,contiguous,dimension(..) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasCgeqrfStridedBatched_assumed_rank = hipblasCgeqrfStridedBatched_(handle,m,n,c_loc(A), & - lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasCgeqrfStridedBatched_assumed_rank_devptr(handle,m,n,A,lda,strideA,ipiv, & + strideP,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,contiguous,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgeqrfStridedBatched_assumed_rank_devptr = hipblasCgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function #else @@ -87615,11 +92290,32 @@ function hipblasCgeqrfStridedBatched_rank_0(handle,m,n,A,lda,strideA,ipiv,stride integer(c_int64_t) :: strideA complex(c_float_complex),target :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasCgeqrfStridedBatched_rank_0 = hipblasCgeqrfStridedBatched_(handle,m,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasCgeqrfStridedBatched_rank_0_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgeqrfStridedBatched_rank_0_devptr = hipblasCgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function function hipblasCgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & @@ -87636,11 +92332,32 @@ function hipblasCgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,stride integer(c_int64_t) :: strideA complex(c_float_complex),target,dimension(:) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasCgeqrfStridedBatched_rank_1 = hipblasCgeqrfStridedBatched_(handle,m,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasCgeqrfStridedBatched_rank_1_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgeqrfStridedBatched_rank_1_devptr = hipblasCgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function function hipblasCgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & @@ -87657,11 +92374,32 @@ function hipblasCgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,str integer(c_int64_t) :: strideA complex(c_float_complex),target,dimension(:) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasCgeqrfStridedBatched_full_rank = hipblasCgeqrfStridedBatched_(handle,m,n,c_loc(A), & - lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasCgeqrfStridedBatched_full_rank_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasCgeqrfStridedBatched_full_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_float_complex),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasCgeqrfStridedBatched_full_rank_devptr = hipblasCgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function #endif @@ -87682,11 +92420,32 @@ function hipblasZgeqrfStridedBatched_assumed_rank(handle,m,n,A,lda,strideA,ipiv, integer(c_int64_t) :: strideA complex(c_double_complex),target,contiguous,dimension(..) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasZgeqrfStridedBatched_assumed_rank = hipblasZgeqrfStridedBatched_(handle,m,n,c_loc(A), & - lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasZgeqrfStridedBatched_assumed_rank_devptr(handle,m,n,A,lda,strideA,ipiv, & + strideP,myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,contiguous,dimension(..) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgeqrfStridedBatched_assumed_rank_devptr = hipblasZgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function #else @@ -87704,11 +92463,32 @@ function hipblasZgeqrfStridedBatched_rank_0(handle,m,n,A,lda,strideA,ipiv,stride integer(c_int64_t) :: strideA complex(c_double_complex),target :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasZgeqrfStridedBatched_rank_0 = hipblasZgeqrfStridedBatched_(handle,m,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasZgeqrfStridedBatched_rank_0_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgeqrfStridedBatched_rank_0_devptr = hipblasZgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function function hipblasZgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & @@ -87725,11 +92505,32 @@ function hipblasZgeqrfStridedBatched_rank_1(handle,m,n,A,lda,strideA,ipiv,stride integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(:) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasZgeqrfStridedBatched_rank_1 = hipblasZgeqrfStridedBatched_(handle,m,n,c_loc(A),lda, & - strideA,c_loc(ipiv),strideP,myInfo,batchCount) + strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasZgeqrfStridedBatched_rank_1_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgeqrfStridedBatched_rank_1_devptr = hipblasZgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function function hipblasZgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,strideP,myInfo, & @@ -87746,11 +92547,32 @@ function hipblasZgeqrfStridedBatched_full_rank(handle,m,n,A,lda,strideA,ipiv,str integer(c_int64_t) :: strideA complex(c_double_complex),target,dimension(:) :: ipiv integer(c_int64_t) :: strideP - type(c_ptr) :: myInfo + integer(c_int),target :: myInfo integer(c_int) :: batchCount ! hipblasZgeqrfStridedBatched_full_rank = hipblasZgeqrfStridedBatched_(handle,m,n,c_loc(A), & - lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) + lda,strideA,c_loc(ipiv),strideP,c_loc(myInfo),batchCount) + end function + + function hipblasZgeqrfStridedBatched_full_rank_devptr(handle,m,n,A,lda,strideA,ipiv,strideP, & + myInfo,batchCount) + use iso_c_binding + use hipfort_hipblas_enums + implicit none + integer(kind(HIPBLAS_STATUS_SUCCESS)) :: hipblasZgeqrfStridedBatched_full_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + integer(c_int64_t) :: strideA + complex(c_double_complex),target,dimension(:) :: ipiv + integer(c_int64_t) :: strideP + type(c_ptr),value :: myInfo + integer(c_int) :: batchCount + ! + hipblasZgeqrfStridedBatched_full_rank_devptr = hipblasZgeqrfStridedBatched_(handle,m,n, & + c_loc(A),lda,strideA,c_loc(ipiv),strideP,myInfo,batchCount) end function #endif diff --git a/lib/hipfort/hipfort_hipmalloc.F90 b/lib/hipfort/hipfort_hipmalloc.F90 index b6314aa66..48affcc5c 100644 --- a/lib/hipfort/hipfort_hipmalloc.F90 +++ b/lib/hipfort/hipfort_hipmalloc.F90 @@ -2450,11 +2450,11 @@ function hipMalloc_i4_0_source(ptr, dsource, source) result(res) if (nOptArgs > 1) ERROR STOP "hipMalloc: specify only one of dsource/source" if (present(dsource)) then res = hipMalloc_(cptr, 4_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), 4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipMalloc_(cptr, 4_c_size_t) - res = hipMemcpy(cptr, c_loc(source), 4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, ptr) else res = hipMalloc_(cptr, 4_c_size_t) @@ -2487,12 +2487,12 @@ function hipMalloc_i4_1_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -2543,12 +2543,12 @@ function hipMalloc_i4_2_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -2599,12 +2599,12 @@ function hipMalloc_i4_3_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -2655,12 +2655,12 @@ function hipMalloc_i4_4_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -2711,12 +2711,12 @@ function hipMalloc_i4_5_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -2767,7 +2767,7 @@ function hipMalloc_i4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -2777,7 +2777,7 @@ function hipMalloc_i4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -2828,7 +2828,7 @@ function hipMalloc_i4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -2839,7 +2839,7 @@ function hipMalloc_i4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -2893,11 +2893,11 @@ function hipMalloc_i8_0_source(ptr, dsource, source) result(res) if (nOptArgs > 1) ERROR STOP "hipMalloc: specify only one of dsource/source" if (present(dsource)) then res = hipMalloc_(cptr, 8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipMalloc_(cptr, 8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, ptr) else res = hipMalloc_(cptr, 8_c_size_t) @@ -2930,12 +2930,12 @@ function hipMalloc_i8_1_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -2986,12 +2986,12 @@ function hipMalloc_i8_2_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -3042,12 +3042,12 @@ function hipMalloc_i8_3_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -3098,12 +3098,12 @@ function hipMalloc_i8_4_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -3154,12 +3154,12 @@ function hipMalloc_i8_5_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -3210,7 +3210,7 @@ function hipMalloc_i8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -3220,7 +3220,7 @@ function hipMalloc_i8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -3271,7 +3271,7 @@ function hipMalloc_i8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -3282,7 +3282,7 @@ function hipMalloc_i8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -3336,11 +3336,11 @@ function hipMalloc_r4_0_source(ptr, dsource, source) result(res) if (nOptArgs > 1) ERROR STOP "hipMalloc: specify only one of dsource/source" if (present(dsource)) then res = hipMalloc_(cptr, 4_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), 4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipMalloc_(cptr, 4_c_size_t) - res = hipMemcpy(cptr, c_loc(source), 4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, ptr) else res = hipMalloc_(cptr, 4_c_size_t) @@ -3373,12 +3373,12 @@ function hipMalloc_r4_1_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -3429,12 +3429,12 @@ function hipMalloc_r4_2_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -3485,12 +3485,12 @@ function hipMalloc_r4_3_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -3541,12 +3541,12 @@ function hipMalloc_r4_4_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -3597,12 +3597,12 @@ function hipMalloc_r4_5_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -3653,7 +3653,7 @@ function hipMalloc_r4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -3663,7 +3663,7 @@ function hipMalloc_r4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -3714,7 +3714,7 @@ function hipMalloc_r4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -3725,7 +3725,7 @@ function hipMalloc_r4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -3779,11 +3779,11 @@ function hipMalloc_r8_0_source(ptr, dsource, source) result(res) if (nOptArgs > 1) ERROR STOP "hipMalloc: specify only one of dsource/source" if (present(dsource)) then res = hipMalloc_(cptr, 8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipMalloc_(cptr, 8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, ptr) else res = hipMalloc_(cptr, 8_c_size_t) @@ -3816,12 +3816,12 @@ function hipMalloc_r8_1_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -3872,12 +3872,12 @@ function hipMalloc_r8_2_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -3928,12 +3928,12 @@ function hipMalloc_r8_3_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -3984,12 +3984,12 @@ function hipMalloc_r8_4_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -4040,12 +4040,12 @@ function hipMalloc_r8_5_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -4096,7 +4096,7 @@ function hipMalloc_r8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -4106,7 +4106,7 @@ function hipMalloc_r8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -4157,7 +4157,7 @@ function hipMalloc_r8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -4168,7 +4168,7 @@ function hipMalloc_r8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -4222,11 +4222,11 @@ function hipMalloc_c4_0_source(ptr, dsource, source) result(res) if (nOptArgs > 1) ERROR STOP "hipMalloc: specify only one of dsource/source" if (present(dsource)) then res = hipMalloc_(cptr, 8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipMalloc_(cptr, 8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, ptr) else res = hipMalloc_(cptr, 8_c_size_t) @@ -4259,12 +4259,12 @@ function hipMalloc_c4_1_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -4315,12 +4315,12 @@ function hipMalloc_c4_2_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -4371,12 +4371,12 @@ function hipMalloc_c4_3_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -4427,12 +4427,12 @@ function hipMalloc_c4_4_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -4483,12 +4483,12 @@ function hipMalloc_c4_5_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -4539,7 +4539,7 @@ function hipMalloc_c4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -4549,7 +4549,7 @@ function hipMalloc_c4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -4600,7 +4600,7 @@ function hipMalloc_c4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -4611,7 +4611,7 @@ function hipMalloc_c4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -4665,11 +4665,11 @@ function hipMalloc_c8_0_source(ptr, dsource, source) result(res) if (nOptArgs > 1) ERROR STOP "hipMalloc: specify only one of dsource/source" if (present(dsource)) then res = hipMalloc_(cptr, 16_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), 16_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 16_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipMalloc_(cptr, 16_c_size_t) - res = hipMemcpy(cptr, c_loc(source), 16_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 16_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, ptr) else res = hipMalloc_(cptr, 16_c_size_t) @@ -4702,12 +4702,12 @@ function hipMalloc_c8_1_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*16_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*16_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -4758,12 +4758,12 @@ function hipMalloc_c8_2_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*16_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*16_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -4814,12 +4814,12 @@ function hipMalloc_c8_3_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*16_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*16_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -4870,12 +4870,12 @@ function hipMalloc_c8_4_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*16_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*16_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -4926,12 +4926,12 @@ function hipMalloc_c8_5_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*16_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*16_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -4982,7 +4982,7 @@ function hipMalloc_c8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*16_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -4992,7 +4992,7 @@ function hipMalloc_c8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*16_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -5043,7 +5043,7 @@ function hipMalloc_c8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*16_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -5054,7 +5054,7 @@ function hipMalloc_c8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sou LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*16_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -5108,11 +5108,11 @@ function hipMalloc_l_0_source(ptr, dsource, source) result(res) if (nOptArgs > 1) ERROR STOP "hipMalloc: specify only one of dsource/source" if (present(dsource)) then res = hipMalloc_(cptr, 1_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), 1_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 1_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipMalloc_(cptr, 1_c_size_t) - res = hipMemcpy(cptr, c_loc(source), 1_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 1_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, ptr) else res = hipMalloc_(cptr, 1_c_size_t) @@ -5145,12 +5145,12 @@ function hipMalloc_l_1_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*1_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*1_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -5201,12 +5201,12 @@ function hipMalloc_l_2_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*1_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*1_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -5257,12 +5257,12 @@ function hipMalloc_l_3_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*1_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*1_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -5313,12 +5313,12 @@ function hipMalloc_l_4_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*1_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*1_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -5369,12 +5369,12 @@ function hipMalloc_l_5_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*1_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*1_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -5425,7 +5425,7 @@ function hipMalloc_l_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*1_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -5435,7 +5435,7 @@ function hipMalloc_l_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sour LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*1_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -5486,7 +5486,7 @@ function hipMalloc_l_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMalloc: lbounds requires dims" if (present(dsource)) then res = hipMalloc_(cptr, size(dsource, kind=c_size_t)*1_c_size_t) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -5497,7 +5497,7 @@ function hipMalloc_l_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, sour LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipMalloc_(cptr, size(source, kind=c_size_t)*1_c_size_t) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -7708,11 +7708,11 @@ function hipMallocManaged_i4_0_source(ptr, dsource, source, flags) result(res) if (nOptArgs > 1) ERROR STOP "hipMallocManaged: specify only one of dsource/source" if (present(dsource)) then res = hipMallocManaged_(cptr, 4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), 4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipMallocManaged_(cptr, 4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), 4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, ptr) else res = hipMallocManaged_(cptr, 4_c_size_t, flags) @@ -7746,12 +7746,12 @@ function hipMallocManaged_i4_1_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -7803,12 +7803,12 @@ function hipMallocManaged_i4_2_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -7860,12 +7860,12 @@ function hipMallocManaged_i4_3_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -7917,12 +7917,12 @@ function hipMallocManaged_i4_4_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -7974,12 +7974,12 @@ function hipMallocManaged_i4_5_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -8031,7 +8031,7 @@ function hipMallocManaged_i4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -8041,7 +8041,7 @@ function hipMallocManaged_i4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsour LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -8093,7 +8093,7 @@ function hipMallocManaged_i4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -8104,7 +8104,7 @@ function hipMallocManaged_i4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsour LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -8159,11 +8159,11 @@ function hipMallocManaged_i8_0_source(ptr, dsource, source, flags) result(res) if (nOptArgs > 1) ERROR STOP "hipMallocManaged: specify only one of dsource/source" if (present(dsource)) then res = hipMallocManaged_(cptr, 8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipMallocManaged_(cptr, 8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, ptr) else res = hipMallocManaged_(cptr, 8_c_size_t, flags) @@ -8197,12 +8197,12 @@ function hipMallocManaged_i8_1_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -8254,12 +8254,12 @@ function hipMallocManaged_i8_2_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -8311,12 +8311,12 @@ function hipMallocManaged_i8_3_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -8368,12 +8368,12 @@ function hipMallocManaged_i8_4_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -8425,12 +8425,12 @@ function hipMallocManaged_i8_5_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -8482,7 +8482,7 @@ function hipMallocManaged_i8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -8492,7 +8492,7 @@ function hipMallocManaged_i8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsour LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -8544,7 +8544,7 @@ function hipMallocManaged_i8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -8555,7 +8555,7 @@ function hipMallocManaged_i8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsour LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -8610,11 +8610,11 @@ function hipMallocManaged_r4_0_source(ptr, dsource, source, flags) result(res) if (nOptArgs > 1) ERROR STOP "hipMallocManaged: specify only one of dsource/source" if (present(dsource)) then res = hipMallocManaged_(cptr, 4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), 4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipMallocManaged_(cptr, 4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), 4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, ptr) else res = hipMallocManaged_(cptr, 4_c_size_t, flags) @@ -8648,12 +8648,12 @@ function hipMallocManaged_r4_1_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -8705,12 +8705,12 @@ function hipMallocManaged_r4_2_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -8762,12 +8762,12 @@ function hipMallocManaged_r4_3_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -8819,12 +8819,12 @@ function hipMallocManaged_r4_4_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -8876,12 +8876,12 @@ function hipMallocManaged_r4_5_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -8933,7 +8933,7 @@ function hipMallocManaged_r4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -8943,7 +8943,7 @@ function hipMallocManaged_r4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsour LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -8995,7 +8995,7 @@ function hipMallocManaged_r4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -9006,7 +9006,7 @@ function hipMallocManaged_r4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsour LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -9061,11 +9061,11 @@ function hipMallocManaged_r8_0_source(ptr, dsource, source, flags) result(res) if (nOptArgs > 1) ERROR STOP "hipMallocManaged: specify only one of dsource/source" if (present(dsource)) then res = hipMallocManaged_(cptr, 8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipMallocManaged_(cptr, 8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, ptr) else res = hipMallocManaged_(cptr, 8_c_size_t, flags) @@ -9099,12 +9099,12 @@ function hipMallocManaged_r8_1_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -9156,12 +9156,12 @@ function hipMallocManaged_r8_2_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -9213,12 +9213,12 @@ function hipMallocManaged_r8_3_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -9270,12 +9270,12 @@ function hipMallocManaged_r8_4_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -9327,12 +9327,12 @@ function hipMallocManaged_r8_5_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -9384,7 +9384,7 @@ function hipMallocManaged_r8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -9394,7 +9394,7 @@ function hipMallocManaged_r8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsour LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -9446,7 +9446,7 @@ function hipMallocManaged_r8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -9457,7 +9457,7 @@ function hipMallocManaged_r8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsour LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -9512,11 +9512,11 @@ function hipMallocManaged_c4_0_source(ptr, dsource, source, flags) result(res) if (nOptArgs > 1) ERROR STOP "hipMallocManaged: specify only one of dsource/source" if (present(dsource)) then res = hipMallocManaged_(cptr, 8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipMallocManaged_(cptr, 8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, ptr) else res = hipMallocManaged_(cptr, 8_c_size_t, flags) @@ -9550,12 +9550,12 @@ function hipMallocManaged_c4_1_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -9607,12 +9607,12 @@ function hipMallocManaged_c4_2_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -9664,12 +9664,12 @@ function hipMallocManaged_c4_3_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -9721,12 +9721,12 @@ function hipMallocManaged_c4_4_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -9778,12 +9778,12 @@ function hipMallocManaged_c4_5_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -9835,7 +9835,7 @@ function hipMallocManaged_c4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -9845,7 +9845,7 @@ function hipMallocManaged_c4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsour LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -9897,7 +9897,7 @@ function hipMallocManaged_c4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -9908,7 +9908,7 @@ function hipMallocManaged_c4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsour LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -9963,11 +9963,11 @@ function hipMallocManaged_c8_0_source(ptr, dsource, source, flags) result(res) if (nOptArgs > 1) ERROR STOP "hipMallocManaged: specify only one of dsource/source" if (present(dsource)) then res = hipMallocManaged_(cptr, 16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), 16_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 16_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipMallocManaged_(cptr, 16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), 16_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 16_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, ptr) else res = hipMallocManaged_(cptr, 16_c_size_t, flags) @@ -10001,12 +10001,12 @@ function hipMallocManaged_c8_1_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -10058,12 +10058,12 @@ function hipMallocManaged_c8_2_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -10115,12 +10115,12 @@ function hipMallocManaged_c8_3_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -10172,12 +10172,12 @@ function hipMallocManaged_c8_4_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -10229,12 +10229,12 @@ function hipMallocManaged_c8_5_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -10286,7 +10286,7 @@ function hipMallocManaged_c8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -10296,7 +10296,7 @@ function hipMallocManaged_c8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsour LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -10348,7 +10348,7 @@ function hipMallocManaged_c8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsour if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -10359,7 +10359,7 @@ function hipMallocManaged_c8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsour LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -10414,11 +10414,11 @@ function hipMallocManaged_l_0_source(ptr, dsource, source, flags) result(res) if (nOptArgs > 1) ERROR STOP "hipMallocManaged: specify only one of dsource/source" if (present(dsource)) then res = hipMallocManaged_(cptr, 1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), 1_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 1_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipMallocManaged_(cptr, 1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), 1_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 1_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, ptr) else res = hipMallocManaged_(cptr, 1_c_size_t, flags) @@ -10452,12 +10452,12 @@ function hipMallocManaged_l_1_source(ptr, dims, dims8, lbounds, lbounds8, dsourc if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -10509,12 +10509,12 @@ function hipMallocManaged_l_2_source(ptr, dims, dims8, lbounds, lbounds8, dsourc if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -10566,12 +10566,12 @@ function hipMallocManaged_l_3_source(ptr, dims, dims8, lbounds, lbounds8, dsourc if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -10623,12 +10623,12 @@ function hipMallocManaged_l_4_source(ptr, dims, dims8, lbounds, lbounds8, dsourc if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -10680,12 +10680,12 @@ function hipMallocManaged_l_5_source(ptr, dims, dims8, lbounds, lbounds8, dsourc if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -10737,7 +10737,7 @@ function hipMallocManaged_l_6_source(ptr, dims, dims8, lbounds, lbounds8, dsourc if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -10747,7 +10747,7 @@ function hipMallocManaged_l_6_source(ptr, dims, dims8, lbounds, lbounds8, dsourc LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -10799,7 +10799,7 @@ function hipMallocManaged_l_7_source(ptr, dims, dims8, lbounds, lbounds8, dsourc if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipMallocManaged: lbounds requires dims" if (present(dsource)) then res = hipMallocManaged_(cptr, size(dsource, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToDevice) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -10810,7 +10810,7 @@ function hipMallocManaged_l_7_source(ptr, dims, dims8, lbounds, lbounds8, dsourc LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipMallocManaged_(cptr, size(source, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToDevice) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -13021,11 +13021,11 @@ function hipHostMalloc_i4_0_source(ptr, dsource, source, flags) result(res) if (nOptArgs > 1) ERROR STOP "hipHostMalloc: specify only one of dsource/source" if (present(dsource)) then res = hipHostMalloc_(cptr, 4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), 4_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 4_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipHostMalloc_(cptr, 4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), 4_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 4_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, ptr) else res = hipHostMalloc_(cptr, 4_c_size_t, flags) @@ -13059,12 +13059,12 @@ function hipHostMalloc_i4_1_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -13116,12 +13116,12 @@ function hipHostMalloc_i4_2_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -13173,12 +13173,12 @@ function hipHostMalloc_i4_3_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -13230,12 +13230,12 @@ function hipHostMalloc_i4_4_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -13287,12 +13287,12 @@ function hipHostMalloc_i4_5_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -13344,7 +13344,7 @@ function hipHostMalloc_i4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -13354,7 +13354,7 @@ function hipHostMalloc_i4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -13406,7 +13406,7 @@ function hipHostMalloc_i4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -13417,7 +13417,7 @@ function hipHostMalloc_i4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -13472,11 +13472,11 @@ function hipHostMalloc_i8_0_source(ptr, dsource, source, flags) result(res) if (nOptArgs > 1) ERROR STOP "hipHostMalloc: specify only one of dsource/source" if (present(dsource)) then res = hipHostMalloc_(cptr, 8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipHostMalloc_(cptr, 8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, ptr) else res = hipHostMalloc_(cptr, 8_c_size_t, flags) @@ -13510,12 +13510,12 @@ function hipHostMalloc_i8_1_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -13567,12 +13567,12 @@ function hipHostMalloc_i8_2_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -13624,12 +13624,12 @@ function hipHostMalloc_i8_3_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -13681,12 +13681,12 @@ function hipHostMalloc_i8_4_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -13738,12 +13738,12 @@ function hipHostMalloc_i8_5_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -13795,7 +13795,7 @@ function hipHostMalloc_i8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -13805,7 +13805,7 @@ function hipHostMalloc_i8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -13857,7 +13857,7 @@ function hipHostMalloc_i8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -13868,7 +13868,7 @@ function hipHostMalloc_i8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -13923,11 +13923,11 @@ function hipHostMalloc_r4_0_source(ptr, dsource, source, flags) result(res) if (nOptArgs > 1) ERROR STOP "hipHostMalloc: specify only one of dsource/source" if (present(dsource)) then res = hipHostMalloc_(cptr, 4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), 4_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 4_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipHostMalloc_(cptr, 4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), 4_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 4_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, ptr) else res = hipHostMalloc_(cptr, 4_c_size_t, flags) @@ -13961,12 +13961,12 @@ function hipHostMalloc_r4_1_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -14018,12 +14018,12 @@ function hipHostMalloc_r4_2_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -14075,12 +14075,12 @@ function hipHostMalloc_r4_3_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -14132,12 +14132,12 @@ function hipHostMalloc_r4_4_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -14189,12 +14189,12 @@ function hipHostMalloc_r4_5_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -14246,7 +14246,7 @@ function hipHostMalloc_r4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -14256,7 +14256,7 @@ function hipHostMalloc_r4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -14308,7 +14308,7 @@ function hipHostMalloc_r4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*4_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -14319,7 +14319,7 @@ function hipHostMalloc_r4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*4_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*4_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -14374,11 +14374,11 @@ function hipHostMalloc_r8_0_source(ptr, dsource, source, flags) result(res) if (nOptArgs > 1) ERROR STOP "hipHostMalloc: specify only one of dsource/source" if (present(dsource)) then res = hipHostMalloc_(cptr, 8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipHostMalloc_(cptr, 8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, ptr) else res = hipHostMalloc_(cptr, 8_c_size_t, flags) @@ -14412,12 +14412,12 @@ function hipHostMalloc_r8_1_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -14469,12 +14469,12 @@ function hipHostMalloc_r8_2_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -14526,12 +14526,12 @@ function hipHostMalloc_r8_3_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -14583,12 +14583,12 @@ function hipHostMalloc_r8_4_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -14640,12 +14640,12 @@ function hipHostMalloc_r8_5_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -14697,7 +14697,7 @@ function hipHostMalloc_r8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -14707,7 +14707,7 @@ function hipHostMalloc_r8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -14759,7 +14759,7 @@ function hipHostMalloc_r8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -14770,7 +14770,7 @@ function hipHostMalloc_r8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -14825,11 +14825,11 @@ function hipHostMalloc_c4_0_source(ptr, dsource, source, flags) result(res) if (nOptArgs > 1) ERROR STOP "hipHostMalloc: specify only one of dsource/source" if (present(dsource)) then res = hipHostMalloc_(cptr, 8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipHostMalloc_(cptr, 8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, ptr) else res = hipHostMalloc_(cptr, 8_c_size_t, flags) @@ -14863,12 +14863,12 @@ function hipHostMalloc_c4_1_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -14920,12 +14920,12 @@ function hipHostMalloc_c4_2_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -14977,12 +14977,12 @@ function hipHostMalloc_c4_3_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -15034,12 +15034,12 @@ function hipHostMalloc_c4_4_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -15091,12 +15091,12 @@ function hipHostMalloc_c4_5_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -15148,7 +15148,7 @@ function hipHostMalloc_c4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -15158,7 +15158,7 @@ function hipHostMalloc_c4_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -15210,7 +15210,7 @@ function hipHostMalloc_c4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*8_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -15221,7 +15221,7 @@ function hipHostMalloc_c4_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*8_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*8_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -15276,11 +15276,11 @@ function hipHostMalloc_c8_0_source(ptr, dsource, source, flags) result(res) if (nOptArgs > 1) ERROR STOP "hipHostMalloc: specify only one of dsource/source" if (present(dsource)) then res = hipHostMalloc_(cptr, 16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), 16_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 16_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipHostMalloc_(cptr, 16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), 16_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 16_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, ptr) else res = hipHostMalloc_(cptr, 16_c_size_t, flags) @@ -15314,12 +15314,12 @@ function hipHostMalloc_c8_1_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -15371,12 +15371,12 @@ function hipHostMalloc_c8_2_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -15428,12 +15428,12 @@ function hipHostMalloc_c8_3_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -15485,12 +15485,12 @@ function hipHostMalloc_c8_4_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -15542,12 +15542,12 @@ function hipHostMalloc_c8_5_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -15599,7 +15599,7 @@ function hipHostMalloc_c8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -15609,7 +15609,7 @@ function hipHostMalloc_c8_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -15661,7 +15661,7 @@ function hipHostMalloc_c8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*16_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -15672,7 +15672,7 @@ function hipHostMalloc_c8_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*16_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*16_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& @@ -15727,11 +15727,11 @@ function hipHostMalloc_l_0_source(ptr, dsource, source, flags) result(res) if (nOptArgs > 1) ERROR STOP "hipHostMalloc: specify only one of dsource/source" if (present(dsource)) then res = hipHostMalloc_(cptr, 1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), 1_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), 1_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, ptr) else if (present(source)) then res = hipHostMalloc_(cptr, 1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), 1_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), 1_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, ptr) else res = hipHostMalloc_(cptr, 1_c_size_t, flags) @@ -15765,12 +15765,12 @@ function hipHostMalloc_l_1_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):) => tmp else if (present(mold)) then @@ -15822,12 +15822,12 @@ function hipHostMalloc_l_2_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):) => tmp else if (present(mold)) then @@ -15879,12 +15879,12 @@ function hipHostMalloc_l_3_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):) => tmp else if (present(mold)) then @@ -15936,12 +15936,12 @@ function hipHostMalloc_l_4_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):) => tmp else if (present(mold)) then @@ -15993,12 +15993,12 @@ function hipHostMalloc_l_5_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,LBOUND(dsource,2):,LBOUND(dsource,3):,LBOUND(dsource,4):,LBOUND(dsource,5):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):) => tmp else if (present(mold)) then @@ -16050,7 +16050,7 @@ function hipHostMalloc_l_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -16060,7 +16060,7 @@ function hipHostMalloc_l_6_source(ptr, dims, dims8, lbounds, lbounds8, dsource, LBOUND(dsource,6):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,LBOUND(source,2):,LBOUND(source,3):,LBOUND(source,4):,LBOUND(source,5):,LBOUND(source,6):) => tmp else if (present(mold)) then @@ -16112,7 +16112,7 @@ function hipHostMalloc_l_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, if (present(lbounds) .and. .not. present(dims)) ERROR STOP "hipHostMalloc: lbounds requires dims" if (present(dsource)) then res = hipHostMalloc_(cptr, size(dsource, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(dsource), size(dsource, kind=c_size_t)*1_c_size_t, hipMemcpyDeviceToHost) call c_f_pointer(cptr, tmp, shape=shape(dsource)) ptr(LBOUND(dsource,1):,& LBOUND(dsource,2):,& @@ -16123,7 +16123,7 @@ function hipHostMalloc_l_7_source(ptr, dims, dims8, lbounds, lbounds8, dsource, LBOUND(dsource,7):) => tmp else if (present(source)) then res = hipHostMalloc_(cptr, size(source, kind=c_size_t)*1_c_size_t, flags) - res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToHost) + if (res == 0) res = hipMemcpy(cptr, c_loc(source), size(source, kind=c_size_t)*1_c_size_t, hipMemcpyHostToHost) call c_f_pointer(cptr, tmp, shape=shape(source)) ptr(LBOUND(source,1):,& LBOUND(source,2):,& diff --git a/lib/hipfort/hipfort_hipsolver.F90 b/lib/hipfort/hipfort_hipsolver.F90 index 96b6c7ce4..aec75157f 100644 --- a/lib/hipfort/hipfort_hipsolver.F90 +++ b/lib/hipfort/hipfort_hipsolver.F90 @@ -2058,14 +2058,10 @@ function hipsolverZgebrd_(handle,m,n,A,lda,D,E,tauq,taup,work,lwork,devInfo) & end interface #endif +#ifndef USE_CUDA_NAMES interface hipsolverSSgels_bufferSize -#ifdef USE_CUDA_NAMES - function hipsolverSSgels_bufferSize_(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwork) & - bind(c, name="cusolverDnSSgels_bufferSize") -#else function hipsolverSSgels_bufferSize_(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwork) & bind(c, name="hipsolverSSgels_bufferSize") -#endif use iso_c_binding use hipfort_hipsolver_enums implicit none @@ -2085,15 +2081,12 @@ function hipsolverSSgels_bufferSize_(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwork) & module procedure hipsolverSSgels_bufferSize_typed end interface +#endif +#ifndef USE_CUDA_NAMES interface hipsolverDDgels_bufferSize -#ifdef USE_CUDA_NAMES - function hipsolverDDgels_bufferSize_(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwork) & - bind(c, name="cusolverDnDDgels_bufferSize") -#else function hipsolverDDgels_bufferSize_(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwork) & bind(c, name="hipsolverDDgels_bufferSize") -#endif use iso_c_binding use hipfort_hipsolver_enums implicit none @@ -2113,15 +2106,12 @@ function hipsolverDDgels_bufferSize_(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwork) & module procedure hipsolverDDgels_bufferSize_typed end interface +#endif +#ifndef USE_CUDA_NAMES interface hipsolverCCgels_bufferSize -#ifdef USE_CUDA_NAMES - function hipsolverCCgels_bufferSize_(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwork) & - bind(c, name="cusolverDnCCgels_bufferSize") -#else function hipsolverCCgels_bufferSize_(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwork) & bind(c, name="hipsolverCCgels_bufferSize") -#endif use iso_c_binding use hipfort_hipsolver_enums implicit none @@ -2141,15 +2131,12 @@ function hipsolverCCgels_bufferSize_(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwork) & module procedure hipsolverCCgels_bufferSize_typed end interface +#endif +#ifndef USE_CUDA_NAMES interface hipsolverZZgels_bufferSize -#ifdef USE_CUDA_NAMES - function hipsolverZZgels_bufferSize_(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwork) & - bind(c, name="cusolverDnZZgels_bufferSize") -#else function hipsolverZZgels_bufferSize_(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwork) & bind(c, name="hipsolverZZgels_bufferSize") -#endif use iso_c_binding use hipfort_hipsolver_enums implicit none @@ -2169,6 +2156,7 @@ function hipsolverZZgels_bufferSize_(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwork) & module procedure hipsolverZZgels_bufferSize_typed end interface +#endif interface hipsolverSSgels #ifdef USE_CUDA_NAMES @@ -2886,14 +2874,10 @@ function hipsolverZZgesv_(handle,n,nrhs,A,lda,devIpiv,B,ldb,X,ldx,work,lwork,nit end interface #endif +#ifndef USE_CUDA_NAMES interface hipsolverSgesvd_bufferSize -#ifdef USE_CUDA_NAMES - function hipsolverSgesvd_bufferSize_(handle,jobu,jobv,m,n,lwork) & - bind(c, name="cusolverDnSgesvd_bufferSize") -#else function hipsolverSgesvd_bufferSize_(handle,jobu,jobv,m,n,lwork) & bind(c, name="hipsolverSgesvd_bufferSize") -#endif use iso_c_binding use hipfort_hipsolver_enums implicit none @@ -2908,15 +2892,12 @@ function hipsolverSgesvd_bufferSize_(handle,jobu,jobv,m,n,lwork) & module procedure hipsolverSgesvd_bufferSize_typed end interface +#endif +#ifndef USE_CUDA_NAMES interface hipsolverDgesvd_bufferSize -#ifdef USE_CUDA_NAMES - function hipsolverDgesvd_bufferSize_(handle,jobu,jobv,m,n,lwork) & - bind(c, name="cusolverDnDgesvd_bufferSize") -#else function hipsolverDgesvd_bufferSize_(handle,jobu,jobv,m,n,lwork) & bind(c, name="hipsolverDgesvd_bufferSize") -#endif use iso_c_binding use hipfort_hipsolver_enums implicit none @@ -2931,15 +2912,12 @@ function hipsolverDgesvd_bufferSize_(handle,jobu,jobv,m,n,lwork) & module procedure hipsolverDgesvd_bufferSize_typed end interface +#endif +#ifndef USE_CUDA_NAMES interface hipsolverCgesvd_bufferSize -#ifdef USE_CUDA_NAMES - function hipsolverCgesvd_bufferSize_(handle,jobu,jobv,m,n,lwork) & - bind(c, name="cusolverDnCgesvd_bufferSize") -#else function hipsolverCgesvd_bufferSize_(handle,jobu,jobv,m,n,lwork) & bind(c, name="hipsolverCgesvd_bufferSize") -#endif use iso_c_binding use hipfort_hipsolver_enums implicit none @@ -2954,15 +2932,12 @@ function hipsolverCgesvd_bufferSize_(handle,jobu,jobv,m,n,lwork) & module procedure hipsolverCgesvd_bufferSize_typed end interface +#endif +#ifndef USE_CUDA_NAMES interface hipsolverZgesvd_bufferSize -#ifdef USE_CUDA_NAMES - function hipsolverZgesvd_bufferSize_(handle,jobu,jobv,m,n,lwork) & - bind(c, name="cusolverDnZgesvd_bufferSize") -#else function hipsolverZgesvd_bufferSize_(handle,jobu,jobv,m,n,lwork) & bind(c, name="hipsolverZgesvd_bufferSize") -#endif use iso_c_binding use hipfort_hipsolver_enums implicit none @@ -2977,6 +2952,7 @@ function hipsolverZgesvd_bufferSize_(handle,jobu,jobv,m,n,lwork) & module procedure hipsolverZgesvd_bufferSize_typed end interface +#endif interface hipsolverSgesvd #ifdef USE_CUDA_NAMES @@ -15035,8 +15011,6 @@ function hipsolverRfBatchZeroPivot_(handle,position) bind(c, name="hipsolverRfBa type(c_ptr),value :: handle type(c_ptr),value :: position end function - - module procedure hipsolverRfBatchZeroPivot_typed end interface interface hipsolverSpCreate @@ -15889,6 +15863,7 @@ function hipsolverZgebrd_bufferSize_typed(handle,m,n,lwork) end function #endif +#ifndef USE_CUDA_NAMES function hipsolverSSgels_bufferSize_typed(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwork) use iso_c_binding use hipfort_hipsolver_enums @@ -15910,6 +15885,8 @@ function hipsolverSSgels_bufferSize_typed(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwor X,ldx,c_loc(lwork)) end function +#endif +#ifndef USE_CUDA_NAMES function hipsolverDDgels_bufferSize_typed(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwork) use iso_c_binding use hipfort_hipsolver_enums @@ -15931,6 +15908,8 @@ function hipsolverDDgels_bufferSize_typed(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwor X,ldx,c_loc(lwork)) end function +#endif +#ifndef USE_CUDA_NAMES function hipsolverCCgels_bufferSize_typed(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwork) use iso_c_binding use hipfort_hipsolver_enums @@ -15952,6 +15931,8 @@ function hipsolverCCgels_bufferSize_typed(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwor X,ldx,c_loc(lwork)) end function +#endif +#ifndef USE_CUDA_NAMES function hipsolverZZgels_bufferSize_typed(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwork) use iso_c_binding use hipfort_hipsolver_enums @@ -15973,6 +15954,7 @@ function hipsolverZZgels_bufferSize_typed(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,lwor X,ldx,c_loc(lwork)) end function +#endif function hipsolverSSgels_typed(handle,m,n,nrhs,A,lda,B,ldb,X,ldx,work,lwork,niters,devInfo) use iso_c_binding use hipfort_hipsolver_enums @@ -16337,6 +16319,7 @@ function hipsolverZZgesv_typed(handle,n,nrhs,A,lda,devIpiv,B,ldb,X,ldx,work,lwor end function #endif +#ifndef USE_CUDA_NAMES function hipsolverSgesvd_bufferSize_typed(handle,jobu,jobv,m,n,lwork) use iso_c_binding use hipfort_hipsolver_enums @@ -16353,6 +16336,8 @@ function hipsolverSgesvd_bufferSize_typed(handle,jobu,jobv,m,n,lwork) c_loc(lwork)) end function +#endif +#ifndef USE_CUDA_NAMES function hipsolverDgesvd_bufferSize_typed(handle,jobu,jobv,m,n,lwork) use iso_c_binding use hipfort_hipsolver_enums @@ -16369,6 +16354,8 @@ function hipsolverDgesvd_bufferSize_typed(handle,jobu,jobv,m,n,lwork) c_loc(lwork)) end function +#endif +#ifndef USE_CUDA_NAMES function hipsolverCgesvd_bufferSize_typed(handle,jobu,jobv,m,n,lwork) use iso_c_binding use hipfort_hipsolver_enums @@ -16385,6 +16372,8 @@ function hipsolverCgesvd_bufferSize_typed(handle,jobu,jobv,m,n,lwork) c_loc(lwork)) end function +#endif +#ifndef USE_CUDA_NAMES function hipsolverZgesvd_bufferSize_typed(handle,jobu,jobv,m,n,lwork) use iso_c_binding use hipfort_hipsolver_enums @@ -16401,6 +16390,7 @@ function hipsolverZgesvd_bufferSize_typed(handle,jobu,jobv,m,n,lwork) c_loc(lwork)) end function +#endif #ifndef USE_CUDA_NAMES function hipsolverSgesvdj_bufferSize_typed(handle,jobz,econ,m,n,A,lda,S,U,ldu,V,ldv,lwork, & params) @@ -21037,17 +21027,6 @@ function hipsolverRfGetResetValuesFastMode_typed(handle,fastMode) c_loc(fastMode)) end function - function hipsolverRfBatchZeroPivot_typed(handle,position) - use iso_c_binding - use hipfort_hipsolver_enums - implicit none - integer(kind(HIPSOLVER_STATUS_SUCCESS)) :: hipsolverRfBatchZeroPivot_typed - type(c_ptr) :: handle - integer(c_int),target :: position - ! - hipsolverRfBatchZeroPivot_typed = hipsolverRfBatchZeroPivot_(handle,c_loc(position)) - end function - function hipsolverSpScsrlsvchol_typed(handle,n,nnzA,descrA,csrVal,csrRowPtr,csrColInd,b, & tolerance,reorder,x,singularity) use iso_c_binding diff --git a/lib/hipfort/hipfort_hipsparse.F90 b/lib/hipfort/hipfort_hipsparse.F90 index 50a5ec7c7..9895b72f0 100644 --- a/lib/hipfort/hipfort_hipsparse.F90 +++ b/lib/hipfort/hipfort_hipsparse.F90 @@ -1213,6 +1213,8 @@ function hipsparseCdotci_(handle,nnz,xVal,xInd,y,myResult,idxBase) & integer(kind(HIPSPARSE_INDEX_BASE_ZERO)),value :: idxBase end function + module procedure hipsparseCdotci_typed + #ifdef USE_ASSUMED_RANK module procedure hipsparseCdotci_assumed_rank #else @@ -1242,6 +1244,8 @@ function hipsparseZdotci_(handle,nnz,xVal,xInd,y,myResult,idxBase) & integer(kind(HIPSPARSE_INDEX_BASE_ZERO)),value :: idxBase end function + module procedure hipsparseZdotci_typed + #ifdef USE_ASSUMED_RANK module procedure hipsparseZdotci_assumed_rank #else @@ -1318,6 +1322,8 @@ function hipsparseSdoti_(handle,nnz,xVal,xInd,y,myResult,idxBase) bind(c, name=" integer(kind(HIPSPARSE_INDEX_BASE_ZERO)),value :: idxBase end function + module procedure hipsparseSdoti_typed + #ifdef USE_ASSUMED_RANK module procedure hipsparseSdoti_assumed_rank #else @@ -1346,6 +1352,8 @@ function hipsparseDdoti_(handle,nnz,xVal,xInd,y,myResult,idxBase) bind(c, name=" integer(kind(HIPSPARSE_INDEX_BASE_ZERO)),value :: idxBase end function + module procedure hipsparseDdoti_typed + #ifdef USE_ASSUMED_RANK module procedure hipsparseDdoti_assumed_rank #else @@ -1374,6 +1382,8 @@ function hipsparseCdoti_(handle,nnz,xVal,xInd,y,myResult,idxBase) bind(c, name=" integer(kind(HIPSPARSE_INDEX_BASE_ZERO)),value :: idxBase end function + module procedure hipsparseCdoti_typed + #ifdef USE_ASSUMED_RANK module procedure hipsparseCdoti_assumed_rank #else @@ -1402,6 +1412,8 @@ function hipsparseZdoti_(handle,nnz,xVal,xInd,y,myResult,idxBase) bind(c, name=" integer(kind(HIPSPARSE_INDEX_BASE_ZERO)),value :: idxBase end function + module procedure hipsparseZdoti_typed + #ifdef USE_ASSUMED_RANK module procedure hipsparseZdoti_assumed_rank #else @@ -16038,6 +16050,8 @@ function hipsparseXcsr2bsrNnz_(handle,dirA,m,n,descrA,csrRowPtrA,csrColIndA,bloc type(c_ptr),value :: bsrNnzb end function + module procedure hipsparseXcsr2bsrNnz_typed + #ifdef USE_ASSUMED_RANK module procedure hipsparseXcsr2bsrNnz_assumed_rank #else @@ -17702,6 +17716,8 @@ function hipsparseXcsr2gebsrNnz_(handle,dir,m,n,csr_descr,csrRowPtr,csrColInd,bs type(c_ptr),value :: pbuffer end function + module procedure hipsparseXcsr2gebsrNnz_typed + #ifdef USE_ASSUMED_RANK module procedure hipsparseXcsr2gebsrNnz_assumed_rank #else @@ -20774,6 +20790,8 @@ function hipsparseSnnz_compress_(handle,m,descrA,csrValA,csrRowPtrA,nnzPerRow,nn real(c_float),value :: tol end function + module procedure hipsparseSnnz_compress_typed + #ifdef USE_ASSUMED_RANK module procedure hipsparseSnnz_compress_assumed_rank #else @@ -20807,6 +20825,8 @@ function hipsparseDnnz_compress_(handle,m,descrA,csrValA,csrRowPtrA,nnzPerRow,nn real(c_double),value :: tol end function + module procedure hipsparseDnnz_compress_typed + #ifdef USE_ASSUMED_RANK module procedure hipsparseDnnz_compress_assumed_rank #else @@ -20840,6 +20860,8 @@ function hipsparseCnnz_compress_(handle,m,descrA,csrValA,csrRowPtrA,nnzPerRow,nn complex(c_float_complex),value :: tol end function + module procedure hipsparseCnnz_compress_typed + #ifdef USE_ASSUMED_RANK module procedure hipsparseCnnz_compress_assumed_rank #else @@ -20873,6 +20895,8 @@ function hipsparseZnnz_compress_(handle,m,descrA,csrValA,csrRowPtrA,nnzPerRow,nn complex(c_double_complex),value :: tol end function + module procedure hipsparseZnnz_compress_typed + #ifdef USE_ASSUMED_RANK module procedure hipsparseZnnz_compress_assumed_rank #else @@ -23097,12 +23121,16 @@ function hipsparseScsrcolor_(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, module procedure hipsparseScsrcolor_typed #ifdef USE_ASSUMED_RANK - module procedure hipsparseScsrcolor_assumed_rank + module procedure & + hipsparseScsrcolor_assumed_rank,& + hipsparseScsrcolor_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipsparseScsrcolor_rank_0,& - hipsparseScsrcolor_rank_1 + hipsparseScsrcolor_rank_0_devptr,& + hipsparseScsrcolor_rank_1,& + hipsparseScsrcolor_rank_1_devptr #endif #endif end interface @@ -23138,12 +23166,16 @@ function hipsparseDcsrcolor_(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, module procedure hipsparseDcsrcolor_typed #ifdef USE_ASSUMED_RANK - module procedure hipsparseDcsrcolor_assumed_rank + module procedure & + hipsparseDcsrcolor_assumed_rank,& + hipsparseDcsrcolor_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipsparseDcsrcolor_rank_0,& - hipsparseDcsrcolor_rank_1 + hipsparseDcsrcolor_rank_0_devptr,& + hipsparseDcsrcolor_rank_1,& + hipsparseDcsrcolor_rank_1_devptr #endif #endif end interface @@ -23179,12 +23211,16 @@ function hipsparseCcsrcolor_(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, module procedure hipsparseCcsrcolor_typed #ifdef USE_ASSUMED_RANK - module procedure hipsparseCcsrcolor_assumed_rank + module procedure & + hipsparseCcsrcolor_assumed_rank,& + hipsparseCcsrcolor_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipsparseCcsrcolor_rank_0,& - hipsparseCcsrcolor_rank_1 + hipsparseCcsrcolor_rank_0_devptr,& + hipsparseCcsrcolor_rank_1,& + hipsparseCcsrcolor_rank_1_devptr #endif #endif end interface @@ -23220,12 +23256,16 @@ function hipsparseZcsrcolor_(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, module procedure hipsparseZcsrcolor_typed #ifdef USE_ASSUMED_RANK - module procedure hipsparseZcsrcolor_assumed_rank + module procedure & + hipsparseZcsrcolor_assumed_rank,& + hipsparseZcsrcolor_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & hipsparseZcsrcolor_rank_0,& - hipsparseZcsrcolor_rank_1 + hipsparseZcsrcolor_rank_0_devptr,& + hipsparseZcsrcolor_rank_1,& + hipsparseZcsrcolor_rank_1_devptr #endif #endif end interface @@ -25879,6 +25919,114 @@ function hipsparseZaxpyi_typed(handle,nnz,alpha,xVal,xInd,y,idxBase) hipsparseZaxpyi_typed = hipsparseZaxpyi_(handle,nnz,c_loc(alpha),xVal,xInd,y,idxBase) end function +#endif +#ifndef USE_CUDA_NAMES + function hipsparseCdotci_typed(handle,nnz,xVal,xInd,y,myResult,idxBase) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseCdotci_typed + type(c_ptr) :: handle + integer(c_int) :: nnz + type(c_ptr) :: xVal + type(c_ptr) :: xInd + type(c_ptr) :: y + complex(c_float_complex),target :: myResult + integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase + ! + hipsparseCdotci_typed = hipsparseCdotci_(handle,nnz,xVal,xInd,y,c_loc(myResult),idxBase) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipsparseZdotci_typed(handle,nnz,xVal,xInd,y,myResult,idxBase) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseZdotci_typed + type(c_ptr) :: handle + integer(c_int) :: nnz + type(c_ptr) :: xVal + type(c_ptr) :: xInd + type(c_ptr) :: y + complex(c_double_complex),target :: myResult + integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase + ! + hipsparseZdotci_typed = hipsparseZdotci_(handle,nnz,xVal,xInd,y,c_loc(myResult),idxBase) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipsparseSdoti_typed(handle,nnz,xVal,xInd,y,myResult,idxBase) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseSdoti_typed + type(c_ptr) :: handle + integer(c_int) :: nnz + type(c_ptr) :: xVal + type(c_ptr) :: xInd + type(c_ptr) :: y + real(c_float),target :: myResult + integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase + ! + hipsparseSdoti_typed = hipsparseSdoti_(handle,nnz,xVal,xInd,y,c_loc(myResult),idxBase) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipsparseDdoti_typed(handle,nnz,xVal,xInd,y,myResult,idxBase) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseDdoti_typed + type(c_ptr) :: handle + integer(c_int) :: nnz + type(c_ptr) :: xVal + type(c_ptr) :: xInd + type(c_ptr) :: y + real(c_double),target :: myResult + integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase + ! + hipsparseDdoti_typed = hipsparseDdoti_(handle,nnz,xVal,xInd,y,c_loc(myResult),idxBase) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipsparseCdoti_typed(handle,nnz,xVal,xInd,y,myResult,idxBase) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseCdoti_typed + type(c_ptr) :: handle + integer(c_int) :: nnz + type(c_ptr) :: xVal + type(c_ptr) :: xInd + type(c_ptr) :: y + complex(c_float_complex),target :: myResult + integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase + ! + hipsparseCdoti_typed = hipsparseCdoti_(handle,nnz,xVal,xInd,y,c_loc(myResult),idxBase) + end function + +#endif +#ifndef USE_CUDA_NAMES + function hipsparseZdoti_typed(handle,nnz,xVal,xInd,y,myResult,idxBase) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseZdoti_typed + type(c_ptr) :: handle + integer(c_int) :: nnz + type(c_ptr) :: xVal + type(c_ptr) :: xInd + type(c_ptr) :: y + complex(c_double_complex),target :: myResult + integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase + ! + hipsparseZdoti_typed = hipsparseZdoti_(handle,nnz,xVal,xInd,y,c_loc(myResult),idxBase) + end function + #endif #ifndef USE_CUDA_NAMES function hipsparseSroti_typed(handle,nnz,xVal,xInd,y,c,s,idxBase) @@ -30456,6 +30604,28 @@ function hipsparseXcscsort_bufferSizeExt_typed(handle,m,n,nnz,cscColPtr,cscRowIn cscColPtr,cscRowInd,c_loc(pBufferSizeInBytes)) end function + function hipsparseXcsr2bsrNnz_typed(handle,dirA,m,n,descrA,csrRowPtrA,csrColIndA,blockDim, & + descrC,bsrRowPtrC,bsrNnzb) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseXcsr2bsrNnz_typed + type(c_ptr) :: handle + integer(kind(HIPSPARSE_DIRECTION_ROW)) :: dirA + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: descrA + type(c_ptr) :: csrRowPtrA + type(c_ptr) :: csrColIndA + integer(c_int) :: blockDim + type(c_ptr) :: descrC + type(c_ptr) :: bsrRowPtrC + integer(c_int),target :: bsrNnzb + ! + hipsparseXcsr2bsrNnz_typed = hipsparseXcsr2bsrNnz_(handle,dirA,m,n,descrA,csrRowPtrA, & + csrColIndA,blockDim,descrC,bsrRowPtrC,c_loc(bsrNnzb)) + end function + function hipsparseCsr2cscEx2_bufferSize_typed(handle,m,n,nnz,csrVal,csrRowPtr,csrColInd, & cscVal,cscColPtr,cscRowInd,valType,copyValues,idxBase,alg,pBufferSizeInBytes) use iso_c_binding @@ -30572,6 +30742,30 @@ function hipsparseZcsr2gebsr_bufferSize_typed(handle,dir,m,n,csr_descr,csrVal,cs csr_descr,csrVal,csrRowPtr,csrColInd,rowBlockDim,colBlockDim,c_loc(pBufferSizeInBytes)) end function + function hipsparseXcsr2gebsrNnz_typed(handle,dir,m,n,csr_descr,csrRowPtr,csrColInd,bsr_descr, & + bsrRowPtr,rowBlockDim,colBlockDim,bsrNnzDevhost,pbuffer) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseXcsr2gebsrNnz_typed + type(c_ptr) :: handle + integer(kind(HIPSPARSE_DIRECTION_ROW)) :: dir + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: csr_descr + type(c_ptr) :: csrRowPtr + type(c_ptr) :: csrColInd + type(c_ptr) :: bsr_descr + type(c_ptr) :: bsrRowPtr + integer(c_int) :: rowBlockDim + integer(c_int) :: colBlockDim + integer(c_int),target :: bsrNnzDevhost + type(c_ptr) :: pbuffer + ! + hipsparseXcsr2gebsrNnz_typed = hipsparseXcsr2gebsrNnz_(handle,dir,m,n,csr_descr,csrRowPtr, & + csrColInd,bsr_descr,bsrRowPtr,rowBlockDim,colBlockDim,c_loc(bsrNnzDevhost),pbuffer) + end function + function hipsparseXcsrsort_bufferSizeExt_typed(handle,m,n,nnz,csrRowPtr,csrColInd, & pBufferSizeInBytes) use iso_c_binding @@ -30967,6 +31161,78 @@ function hipsparseZnnz_typed(handle,dirA,m,n,descrA,A,lda,nnzPerRowColumn,nnzTot c_loc(nnzTotalDevHostPtr)) end function + function hipsparseSnnz_compress_typed(handle,m,descrA,csrValA,csrRowPtrA,nnzPerRow,nnzC,tol) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseSnnz_compress_typed + type(c_ptr) :: handle + integer(c_int) :: m + type(c_ptr) :: descrA + type(c_ptr) :: csrValA + type(c_ptr) :: csrRowPtrA + type(c_ptr) :: nnzPerRow + integer(c_int),target :: nnzC + real(c_float) :: tol + ! + hipsparseSnnz_compress_typed = hipsparseSnnz_compress_(handle,m,descrA,csrValA,csrRowPtrA, & + nnzPerRow,c_loc(nnzC),tol) + end function + + function hipsparseDnnz_compress_typed(handle,m,descrA,csrValA,csrRowPtrA,nnzPerRow,nnzC,tol) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseDnnz_compress_typed + type(c_ptr) :: handle + integer(c_int) :: m + type(c_ptr) :: descrA + type(c_ptr) :: csrValA + type(c_ptr) :: csrRowPtrA + type(c_ptr) :: nnzPerRow + integer(c_int),target :: nnzC + real(c_double) :: tol + ! + hipsparseDnnz_compress_typed = hipsparseDnnz_compress_(handle,m,descrA,csrValA,csrRowPtrA, & + nnzPerRow,c_loc(nnzC),tol) + end function + + function hipsparseCnnz_compress_typed(handle,m,descrA,csrValA,csrRowPtrA,nnzPerRow,nnzC,tol) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseCnnz_compress_typed + type(c_ptr) :: handle + integer(c_int) :: m + type(c_ptr) :: descrA + type(c_ptr) :: csrValA + type(c_ptr) :: csrRowPtrA + type(c_ptr) :: nnzPerRow + integer(c_int),target :: nnzC + complex(c_float_complex) :: tol + ! + hipsparseCnnz_compress_typed = hipsparseCnnz_compress_(handle,m,descrA,csrValA,csrRowPtrA, & + nnzPerRow,c_loc(nnzC),tol) + end function + + function hipsparseZnnz_compress_typed(handle,m,descrA,csrValA,csrRowPtrA,nnzPerRow,nnzC,tol) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseZnnz_compress_typed + type(c_ptr) :: handle + integer(c_int) :: m + type(c_ptr) :: descrA + type(c_ptr) :: csrValA + type(c_ptr) :: csrRowPtrA + type(c_ptr) :: nnzPerRow + integer(c_int),target :: nnzC + complex(c_double_complex) :: tol + ! + hipsparseZnnz_compress_typed = hipsparseZnnz_compress_(handle,m,descrA,csrValA,csrRowPtrA, & + nnzPerRow,c_loc(nnzC),tol) + end function + #ifndef USE_CUDA_NAMES function hipsparseSpruneCsr2csr_bufferSize_typed(handle,m,n,nnzA,descrA,csrValA,csrRowPtrA, & csrColIndA,threshold,descrC,csrValC,csrRowPtrC,csrColIndC,pBufferSizeInBytes) @@ -31678,14 +31944,14 @@ function hipsparseScsrcolor_typed(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColI type(c_ptr) :: csrValA type(c_ptr) :: csrRowPtrA type(c_ptr) :: csrColIndA - type(c_ptr) :: fractionToColor + real(c_float),target :: fractionToColor integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + type(c_ptr) :: coloring + type(c_ptr) :: reordering type(c_ptr) :: myInfo ! hipsparseScsrcolor_typed = hipsparseScsrcolor_(handle,m,nnz,descrA,csrValA,csrRowPtrA, & - csrColIndA,fractionToColor,c_loc(ncolors),c_loc(coloring),c_loc(reordering),myInfo) + csrColIndA,c_loc(fractionToColor),c_loc(ncolors),coloring,reordering,myInfo) end function function hipsparseDcsrcolor_typed(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, & @@ -31701,14 +31967,14 @@ function hipsparseDcsrcolor_typed(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColI type(c_ptr) :: csrValA type(c_ptr) :: csrRowPtrA type(c_ptr) :: csrColIndA - type(c_ptr) :: fractionToColor + real(c_double),target :: fractionToColor integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + type(c_ptr) :: coloring + type(c_ptr) :: reordering type(c_ptr) :: myInfo ! hipsparseDcsrcolor_typed = hipsparseDcsrcolor_(handle,m,nnz,descrA,csrValA,csrRowPtrA, & - csrColIndA,fractionToColor,c_loc(ncolors),c_loc(coloring),c_loc(reordering),myInfo) + csrColIndA,c_loc(fractionToColor),c_loc(ncolors),coloring,reordering,myInfo) end function function hipsparseCcsrcolor_typed(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, & @@ -31724,14 +31990,14 @@ function hipsparseCcsrcolor_typed(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColI type(c_ptr) :: csrValA type(c_ptr) :: csrRowPtrA type(c_ptr) :: csrColIndA - type(c_ptr) :: fractionToColor + real(c_float),target :: fractionToColor integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + type(c_ptr) :: coloring + type(c_ptr) :: reordering type(c_ptr) :: myInfo ! hipsparseCcsrcolor_typed = hipsparseCcsrcolor_(handle,m,nnz,descrA,csrValA,csrRowPtrA, & - csrColIndA,fractionToColor,c_loc(ncolors),c_loc(coloring),c_loc(reordering),myInfo) + csrColIndA,c_loc(fractionToColor),c_loc(ncolors),coloring,reordering,myInfo) end function function hipsparseZcsrcolor_typed(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, & @@ -31747,14 +32013,14 @@ function hipsparseZcsrcolor_typed(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColI type(c_ptr) :: csrValA type(c_ptr) :: csrRowPtrA type(c_ptr) :: csrColIndA - type(c_ptr) :: fractionToColor + real(c_double),target :: fractionToColor integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + type(c_ptr) :: coloring + type(c_ptr) :: reordering type(c_ptr) :: myInfo ! hipsparseZcsrcolor_typed = hipsparseZcsrcolor_(handle,m,nnz,descrA,csrValA,csrRowPtrA, & - csrColIndA,fractionToColor,c_loc(ncolors),c_loc(coloring),c_loc(reordering),myInfo) + csrColIndA,c_loc(fractionToColor),c_loc(ncolors),coloring,reordering,myInfo) end function function hipsparseSpVecGet_typed(spVecDescr,mySize,nnz,indices,values,idxType,idxBase,valueType) @@ -32685,7 +32951,7 @@ function hipsparseCdotci_assumed_rank(handle,nnz,xVal,xInd,y,myResult,idxBase) complex(c_float_complex),target,contiguous,dimension(..) :: xVal integer(c_int),target,contiguous,dimension(..) :: xInd complex(c_float_complex),target,contiguous,dimension(..) :: y - complex(c_float_complex),target,contiguous,dimension(..) :: myResult + complex(c_float_complex),target :: myResult integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase ! hipsparseCdotci_assumed_rank = hipsparseCdotci_(handle,nnz,c_loc(xVal),c_loc(xInd),c_loc(y), & @@ -32720,7 +32986,7 @@ function hipsparseCdotci_rank_1(handle,nnz,xVal,xInd,y,myResult,idxBase) complex(c_float_complex),target,dimension(:) :: xVal integer(c_int),target,dimension(:) :: xInd complex(c_float_complex),target,dimension(:) :: y - complex(c_float_complex),target,dimension(:) :: myResult + complex(c_float_complex),target :: myResult integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase ! hipsparseCdotci_rank_1 = hipsparseCdotci_(handle,nnz,c_loc(xVal),c_loc(xInd),c_loc(y), & @@ -32741,7 +33007,7 @@ function hipsparseZdotci_assumed_rank(handle,nnz,xVal,xInd,y,myResult,idxBase) complex(c_double_complex),target,contiguous,dimension(..) :: xVal integer(c_int),target,contiguous,dimension(..) :: xInd complex(c_double_complex),target,contiguous,dimension(..) :: y - complex(c_double_complex),target,contiguous,dimension(..) :: myResult + complex(c_double_complex),target :: myResult integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase ! hipsparseZdotci_assumed_rank = hipsparseZdotci_(handle,nnz,c_loc(xVal),c_loc(xInd),c_loc(y), & @@ -32776,7 +33042,7 @@ function hipsparseZdotci_rank_1(handle,nnz,xVal,xInd,y,myResult,idxBase) complex(c_double_complex),target,dimension(:) :: xVal integer(c_int),target,dimension(:) :: xInd complex(c_double_complex),target,dimension(:) :: y - complex(c_double_complex),target,dimension(:) :: myResult + complex(c_double_complex),target :: myResult integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase ! hipsparseZdotci_rank_1 = hipsparseZdotci_(handle,nnz,c_loc(xVal),c_loc(xInd),c_loc(y), & @@ -32797,7 +33063,7 @@ function hipsparseSdoti_assumed_rank(handle,nnz,xVal,xInd,y,myResult,idxBase) real(c_float),target,contiguous,dimension(..) :: xVal integer(c_int),target,contiguous,dimension(..) :: xInd real(c_float),target,contiguous,dimension(..) :: y - real(c_float),target,contiguous,dimension(..) :: myResult + real(c_float),target :: myResult integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase ! hipsparseSdoti_assumed_rank = hipsparseSdoti_(handle,nnz,c_loc(xVal),c_loc(xInd),c_loc(y), & @@ -32832,7 +33098,7 @@ function hipsparseSdoti_rank_1(handle,nnz,xVal,xInd,y,myResult,idxBase) real(c_float),target,dimension(:) :: xVal integer(c_int),target,dimension(:) :: xInd real(c_float),target,dimension(:) :: y - real(c_float),target,dimension(:) :: myResult + real(c_float),target :: myResult integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase ! hipsparseSdoti_rank_1 = hipsparseSdoti_(handle,nnz,c_loc(xVal),c_loc(xInd),c_loc(y), & @@ -32853,7 +33119,7 @@ function hipsparseDdoti_assumed_rank(handle,nnz,xVal,xInd,y,myResult,idxBase) real(c_double),target,contiguous,dimension(..) :: xVal integer(c_int),target,contiguous,dimension(..) :: xInd real(c_double),target,contiguous,dimension(..) :: y - real(c_double),target,contiguous,dimension(..) :: myResult + real(c_double),target :: myResult integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase ! hipsparseDdoti_assumed_rank = hipsparseDdoti_(handle,nnz,c_loc(xVal),c_loc(xInd),c_loc(y), & @@ -32888,7 +33154,7 @@ function hipsparseDdoti_rank_1(handle,nnz,xVal,xInd,y,myResult,idxBase) real(c_double),target,dimension(:) :: xVal integer(c_int),target,dimension(:) :: xInd real(c_double),target,dimension(:) :: y - real(c_double),target,dimension(:) :: myResult + real(c_double),target :: myResult integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase ! hipsparseDdoti_rank_1 = hipsparseDdoti_(handle,nnz,c_loc(xVal),c_loc(xInd),c_loc(y), & @@ -32909,7 +33175,7 @@ function hipsparseCdoti_assumed_rank(handle,nnz,xVal,xInd,y,myResult,idxBase) complex(c_float_complex),target,contiguous,dimension(..) :: xVal integer(c_int),target,contiguous,dimension(..) :: xInd complex(c_float_complex),target,contiguous,dimension(..) :: y - complex(c_float_complex),target,contiguous,dimension(..) :: myResult + complex(c_float_complex),target :: myResult integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase ! hipsparseCdoti_assumed_rank = hipsparseCdoti_(handle,nnz,c_loc(xVal),c_loc(xInd),c_loc(y), & @@ -32944,7 +33210,7 @@ function hipsparseCdoti_rank_1(handle,nnz,xVal,xInd,y,myResult,idxBase) complex(c_float_complex),target,dimension(:) :: xVal integer(c_int),target,dimension(:) :: xInd complex(c_float_complex),target,dimension(:) :: y - complex(c_float_complex),target,dimension(:) :: myResult + complex(c_float_complex),target :: myResult integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase ! hipsparseCdoti_rank_1 = hipsparseCdoti_(handle,nnz,c_loc(xVal),c_loc(xInd),c_loc(y), & @@ -32965,7 +33231,7 @@ function hipsparseZdoti_assumed_rank(handle,nnz,xVal,xInd,y,myResult,idxBase) complex(c_double_complex),target,contiguous,dimension(..) :: xVal integer(c_int),target,contiguous,dimension(..) :: xInd complex(c_double_complex),target,contiguous,dimension(..) :: y - complex(c_double_complex),target,contiguous,dimension(..) :: myResult + complex(c_double_complex),target :: myResult integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase ! hipsparseZdoti_assumed_rank = hipsparseZdoti_(handle,nnz,c_loc(xVal),c_loc(xInd),c_loc(y), & @@ -33000,7 +33266,7 @@ function hipsparseZdoti_rank_1(handle,nnz,xVal,xInd,y,myResult,idxBase) complex(c_double_complex),target,dimension(:) :: xVal integer(c_int),target,dimension(:) :: xInd complex(c_double_complex),target,dimension(:) :: y - complex(c_double_complex),target,dimension(:) :: myResult + complex(c_double_complex),target :: myResult integer(kind(HIPSPARSE_INDEX_BASE_ZERO)) :: idxBase ! hipsparseZdoti_rank_1 = hipsparseZdoti_(handle,nnz,c_loc(xVal),c_loc(xInd),c_loc(y), & @@ -52681,7 +52947,7 @@ function hipsparseXcsr2bsrNnz_assumed_rank(handle,dirA,m,n,descrA,csrRowPtrA,csr integer(c_int) :: blockDim type(c_ptr) :: descrC integer(c_int),target,contiguous,dimension(..) :: bsrRowPtrC - integer(c_int),target,contiguous,dimension(..) :: bsrNnzb + integer(c_int),target :: bsrNnzb ! hipsparseXcsr2bsrNnz_assumed_rank = hipsparseXcsr2bsrNnz_(handle,dirA,m,n,descrA, & c_loc(csrRowPtrA),c_loc(csrColIndA),blockDim,descrC,c_loc(bsrRowPtrC),c_loc(bsrNnzb)) @@ -52726,7 +52992,7 @@ function hipsparseXcsr2bsrNnz_rank_1(handle,dirA,m,n,descrA,csrRowPtrA,csrColInd integer(c_int) :: blockDim type(c_ptr) :: descrC integer(c_int),target,dimension(:) :: bsrRowPtrC - integer(c_int),target,dimension(:) :: bsrNnzb + integer(c_int),target :: bsrNnzb ! hipsparseXcsr2bsrNnz_rank_1 = hipsparseXcsr2bsrNnz_(handle,dirA,m,n,descrA, & c_loc(csrRowPtrA),c_loc(csrColIndA),blockDim,descrC,c_loc(bsrRowPtrC),c_loc(bsrNnzb)) @@ -54610,7 +54876,7 @@ function hipsparseXcsr2gebsrNnz_assumed_rank(handle,dir,m,n,csr_descr,csrRowPtr, integer(c_int),target,contiguous,dimension(..) :: bsrRowPtr integer(c_int) :: rowBlockDim integer(c_int) :: colBlockDim - integer(c_int),target,contiguous,dimension(..) :: bsrNnzDevhost + integer(c_int),target :: bsrNnzDevhost type(c_ptr) :: pbuffer ! hipsparseXcsr2gebsrNnz_assumed_rank = hipsparseXcsr2gebsrNnz_(handle,dir,m,n,csr_descr, & @@ -54661,7 +54927,7 @@ function hipsparseXcsr2gebsrNnz_rank_1(handle,dir,m,n,csr_descr,csrRowPtr,csrCol integer(c_int),target,dimension(:) :: bsrRowPtr integer(c_int) :: rowBlockDim integer(c_int) :: colBlockDim - integer(c_int),target,dimension(:) :: bsrNnzDevhost + integer(c_int),target :: bsrNnzDevhost type(c_ptr) :: pbuffer ! hipsparseXcsr2gebsrNnz_rank_1 = hipsparseXcsr2gebsrNnz_(handle,dir,m,n,csr_descr, & @@ -58310,7 +58576,7 @@ function hipsparseSnnz_compress_assumed_rank(handle,m,descrA,csrValA,csrRowPtrA, real(c_float),target,contiguous,dimension(..) :: csrValA integer(c_int),target,contiguous,dimension(..) :: csrRowPtrA integer(c_int),target,contiguous,dimension(..) :: nnzPerRow - integer(c_int),target,contiguous,dimension(..) :: nnzC + integer(c_int),target :: nnzC real(c_float) :: tol ! hipsparseSnnz_compress_assumed_rank = hipsparseSnnz_compress_(handle,m,descrA, & @@ -58347,7 +58613,7 @@ function hipsparseSnnz_compress_rank_1(handle,m,descrA,csrValA,csrRowPtrA,nnzPer real(c_float),target,dimension(:) :: csrValA integer(c_int),target,dimension(:) :: csrRowPtrA integer(c_int),target,dimension(:) :: nnzPerRow - integer(c_int),target,dimension(:) :: nnzC + integer(c_int),target :: nnzC real(c_float) :: tol ! hipsparseSnnz_compress_rank_1 = hipsparseSnnz_compress_(handle,m,descrA,c_loc(csrValA), & @@ -58368,7 +58634,7 @@ function hipsparseDnnz_compress_assumed_rank(handle,m,descrA,csrValA,csrRowPtrA, real(c_double),target,contiguous,dimension(..) :: csrValA integer(c_int),target,contiguous,dimension(..) :: csrRowPtrA integer(c_int),target,contiguous,dimension(..) :: nnzPerRow - integer(c_int),target,contiguous,dimension(..) :: nnzC + integer(c_int),target :: nnzC real(c_double) :: tol ! hipsparseDnnz_compress_assumed_rank = hipsparseDnnz_compress_(handle,m,descrA, & @@ -58405,7 +58671,7 @@ function hipsparseDnnz_compress_rank_1(handle,m,descrA,csrValA,csrRowPtrA,nnzPer real(c_double),target,dimension(:) :: csrValA integer(c_int),target,dimension(:) :: csrRowPtrA integer(c_int),target,dimension(:) :: nnzPerRow - integer(c_int),target,dimension(:) :: nnzC + integer(c_int),target :: nnzC real(c_double) :: tol ! hipsparseDnnz_compress_rank_1 = hipsparseDnnz_compress_(handle,m,descrA,c_loc(csrValA), & @@ -58426,7 +58692,7 @@ function hipsparseCnnz_compress_assumed_rank(handle,m,descrA,csrValA,csrRowPtrA, complex(c_float_complex),target,contiguous,dimension(..) :: csrValA integer(c_int),target,contiguous,dimension(..) :: csrRowPtrA integer(c_int),target,contiguous,dimension(..) :: nnzPerRow - integer(c_int),target,contiguous,dimension(..) :: nnzC + integer(c_int),target :: nnzC complex(c_float_complex) :: tol ! hipsparseCnnz_compress_assumed_rank = hipsparseCnnz_compress_(handle,m,descrA, & @@ -58463,7 +58729,7 @@ function hipsparseCnnz_compress_rank_1(handle,m,descrA,csrValA,csrRowPtrA,nnzPer complex(c_float_complex),target,dimension(:) :: csrValA integer(c_int),target,dimension(:) :: csrRowPtrA integer(c_int),target,dimension(:) :: nnzPerRow - integer(c_int),target,dimension(:) :: nnzC + integer(c_int),target :: nnzC complex(c_float_complex) :: tol ! hipsparseCnnz_compress_rank_1 = hipsparseCnnz_compress_(handle,m,descrA,c_loc(csrValA), & @@ -58484,7 +58750,7 @@ function hipsparseZnnz_compress_assumed_rank(handle,m,descrA,csrValA,csrRowPtrA, complex(c_double_complex),target,contiguous,dimension(..) :: csrValA integer(c_int),target,contiguous,dimension(..) :: csrRowPtrA integer(c_int),target,contiguous,dimension(..) :: nnzPerRow - integer(c_int),target,contiguous,dimension(..) :: nnzC + integer(c_int),target :: nnzC complex(c_double_complex) :: tol ! hipsparseZnnz_compress_assumed_rank = hipsparseZnnz_compress_(handle,m,descrA, & @@ -58521,7 +58787,7 @@ function hipsparseZnnz_compress_rank_1(handle,m,descrA,csrValA,csrRowPtrA,nnzPer complex(c_double_complex),target,dimension(:) :: csrValA integer(c_int),target,dimension(:) :: csrRowPtrA integer(c_int),target,dimension(:) :: nnzPerRow - integer(c_int),target,dimension(:) :: nnzC + integer(c_int),target :: nnzC complex(c_double_complex) :: tol ! hipsparseZnnz_compress_rank_1 = hipsparseZnnz_compress_(handle,m,descrA,c_loc(csrValA), & @@ -61413,17 +61679,41 @@ function hipsparseScsrcolor_assumed_rank(handle,m,nnz,descrA,csrValA,csrRowPtrA, real(c_float),target,contiguous,dimension(..) :: csrValA integer(c_int),target,contiguous,dimension(..) :: csrRowPtrA integer(c_int),target,contiguous,dimension(..) :: csrColIndA - type(c_ptr) :: fractionToColor + real(c_float),target :: fractionToColor integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + integer(c_int),target,contiguous,dimension(..) :: coloring + integer(c_int),target,contiguous,dimension(..) :: reordering type(c_ptr) :: myInfo ! hipsparseScsrcolor_assumed_rank = hipsparseScsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & - c_loc(csrRowPtrA),c_loc(csrColIndA),fractionToColor,c_loc(ncolors),c_loc(coloring), & + c_loc(csrRowPtrA),c_loc(csrColIndA),c_loc(fractionToColor),c_loc(ncolors),c_loc(coloring), & c_loc(reordering),myInfo) end function + function hipsparseScsrcolor_assumed_rank_devptr(handle,m,nnz,descrA,csrValA,csrRowPtrA, & + csrColIndA,fractionToColor,ncolors,coloring,reordering,myInfo) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseScsrcolor_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: nnz + type(c_ptr) :: descrA + real(c_float),target,contiguous,dimension(..) :: csrValA + integer(c_int),target,contiguous,dimension(..) :: csrRowPtrA + integer(c_int),target,contiguous,dimension(..) :: csrColIndA + type(c_ptr),value :: fractionToColor + integer(c_int),target :: ncolors + integer(c_int),target,contiguous,dimension(..) :: coloring + integer(c_int),target,contiguous,dimension(..) :: reordering + type(c_ptr) :: myInfo + ! + hipsparseScsrcolor_assumed_rank_devptr = hipsparseScsrcolor_(handle,m,nnz,descrA, & + c_loc(csrValA),c_loc(csrRowPtrA),c_loc(csrColIndA),fractionToColor,c_loc(ncolors), & + c_loc(coloring),c_loc(reordering),myInfo) + end function + #else function hipsparseScsrcolor_rank_0(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, & fractionToColor,ncolors,coloring,reordering,myInfo) @@ -61438,13 +61728,37 @@ function hipsparseScsrcolor_rank_0(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrCol real(c_float),target :: csrValA integer(c_int),target :: csrRowPtrA integer(c_int),target :: csrColIndA - type(c_ptr) :: fractionToColor + real(c_float),target :: fractionToColor integer(c_int),target :: ncolors integer(c_int),target :: coloring integer(c_int),target :: reordering type(c_ptr) :: myInfo ! hipsparseScsrcolor_rank_0 = hipsparseScsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & + c_loc(csrRowPtrA),c_loc(csrColIndA),c_loc(fractionToColor),c_loc(ncolors),c_loc(coloring), & + c_loc(reordering),myInfo) + end function + + function hipsparseScsrcolor_rank_0_devptr(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, & + fractionToColor,ncolors,coloring,reordering,myInfo) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseScsrcolor_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: nnz + type(c_ptr) :: descrA + real(c_float),target :: csrValA + integer(c_int),target :: csrRowPtrA + integer(c_int),target :: csrColIndA + type(c_ptr),value :: fractionToColor + integer(c_int),target :: ncolors + integer(c_int),target :: coloring + integer(c_int),target :: reordering + type(c_ptr) :: myInfo + ! + hipsparseScsrcolor_rank_0_devptr = hipsparseScsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & c_loc(csrRowPtrA),c_loc(csrColIndA),fractionToColor,c_loc(ncolors),c_loc(coloring), & c_loc(reordering),myInfo) end function @@ -61462,13 +61776,37 @@ function hipsparseScsrcolor_rank_1(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrCol real(c_float),target,dimension(:) :: csrValA integer(c_int),target,dimension(:) :: csrRowPtrA integer(c_int),target,dimension(:) :: csrColIndA - type(c_ptr) :: fractionToColor + real(c_float),target :: fractionToColor integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + integer(c_int),target,dimension(:) :: coloring + integer(c_int),target,dimension(:) :: reordering type(c_ptr) :: myInfo ! hipsparseScsrcolor_rank_1 = hipsparseScsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & + c_loc(csrRowPtrA),c_loc(csrColIndA),c_loc(fractionToColor),c_loc(ncolors),c_loc(coloring), & + c_loc(reordering),myInfo) + end function + + function hipsparseScsrcolor_rank_1_devptr(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, & + fractionToColor,ncolors,coloring,reordering,myInfo) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseScsrcolor_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: nnz + type(c_ptr) :: descrA + real(c_float),target,dimension(:) :: csrValA + integer(c_int),target,dimension(:) :: csrRowPtrA + integer(c_int),target,dimension(:) :: csrColIndA + type(c_ptr),value :: fractionToColor + integer(c_int),target :: ncolors + integer(c_int),target,dimension(:) :: coloring + integer(c_int),target,dimension(:) :: reordering + type(c_ptr) :: myInfo + ! + hipsparseScsrcolor_rank_1_devptr = hipsparseScsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & c_loc(csrRowPtrA),c_loc(csrColIndA),fractionToColor,c_loc(ncolors),c_loc(coloring), & c_loc(reordering),myInfo) end function @@ -61488,17 +61826,41 @@ function hipsparseDcsrcolor_assumed_rank(handle,m,nnz,descrA,csrValA,csrRowPtrA, real(c_double),target,contiguous,dimension(..) :: csrValA integer(c_int),target,contiguous,dimension(..) :: csrRowPtrA integer(c_int),target,contiguous,dimension(..) :: csrColIndA - type(c_ptr) :: fractionToColor + real(c_double),target :: fractionToColor integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + integer(c_int),target,contiguous,dimension(..) :: coloring + integer(c_int),target,contiguous,dimension(..) :: reordering type(c_ptr) :: myInfo ! hipsparseDcsrcolor_assumed_rank = hipsparseDcsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & - c_loc(csrRowPtrA),c_loc(csrColIndA),fractionToColor,c_loc(ncolors),c_loc(coloring), & + c_loc(csrRowPtrA),c_loc(csrColIndA),c_loc(fractionToColor),c_loc(ncolors),c_loc(coloring), & c_loc(reordering),myInfo) end function + function hipsparseDcsrcolor_assumed_rank_devptr(handle,m,nnz,descrA,csrValA,csrRowPtrA, & + csrColIndA,fractionToColor,ncolors,coloring,reordering,myInfo) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseDcsrcolor_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: nnz + type(c_ptr) :: descrA + real(c_double),target,contiguous,dimension(..) :: csrValA + integer(c_int),target,contiguous,dimension(..) :: csrRowPtrA + integer(c_int),target,contiguous,dimension(..) :: csrColIndA + type(c_ptr),value :: fractionToColor + integer(c_int),target :: ncolors + integer(c_int),target,contiguous,dimension(..) :: coloring + integer(c_int),target,contiguous,dimension(..) :: reordering + type(c_ptr) :: myInfo + ! + hipsparseDcsrcolor_assumed_rank_devptr = hipsparseDcsrcolor_(handle,m,nnz,descrA, & + c_loc(csrValA),c_loc(csrRowPtrA),c_loc(csrColIndA),fractionToColor,c_loc(ncolors), & + c_loc(coloring),c_loc(reordering),myInfo) + end function + #else function hipsparseDcsrcolor_rank_0(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, & fractionToColor,ncolors,coloring,reordering,myInfo) @@ -61513,13 +61875,37 @@ function hipsparseDcsrcolor_rank_0(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrCol real(c_double),target :: csrValA integer(c_int),target :: csrRowPtrA integer(c_int),target :: csrColIndA - type(c_ptr) :: fractionToColor + real(c_double),target :: fractionToColor integer(c_int),target :: ncolors integer(c_int),target :: coloring integer(c_int),target :: reordering type(c_ptr) :: myInfo ! hipsparseDcsrcolor_rank_0 = hipsparseDcsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & + c_loc(csrRowPtrA),c_loc(csrColIndA),c_loc(fractionToColor),c_loc(ncolors),c_loc(coloring), & + c_loc(reordering),myInfo) + end function + + function hipsparseDcsrcolor_rank_0_devptr(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, & + fractionToColor,ncolors,coloring,reordering,myInfo) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseDcsrcolor_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: nnz + type(c_ptr) :: descrA + real(c_double),target :: csrValA + integer(c_int),target :: csrRowPtrA + integer(c_int),target :: csrColIndA + type(c_ptr),value :: fractionToColor + integer(c_int),target :: ncolors + integer(c_int),target :: coloring + integer(c_int),target :: reordering + type(c_ptr) :: myInfo + ! + hipsparseDcsrcolor_rank_0_devptr = hipsparseDcsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & c_loc(csrRowPtrA),c_loc(csrColIndA),fractionToColor,c_loc(ncolors),c_loc(coloring), & c_loc(reordering),myInfo) end function @@ -61537,13 +61923,37 @@ function hipsparseDcsrcolor_rank_1(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrCol real(c_double),target,dimension(:) :: csrValA integer(c_int),target,dimension(:) :: csrRowPtrA integer(c_int),target,dimension(:) :: csrColIndA - type(c_ptr) :: fractionToColor + real(c_double),target :: fractionToColor integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + integer(c_int),target,dimension(:) :: coloring + integer(c_int),target,dimension(:) :: reordering type(c_ptr) :: myInfo ! hipsparseDcsrcolor_rank_1 = hipsparseDcsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & + c_loc(csrRowPtrA),c_loc(csrColIndA),c_loc(fractionToColor),c_loc(ncolors),c_loc(coloring), & + c_loc(reordering),myInfo) + end function + + function hipsparseDcsrcolor_rank_1_devptr(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, & + fractionToColor,ncolors,coloring,reordering,myInfo) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseDcsrcolor_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: nnz + type(c_ptr) :: descrA + real(c_double),target,dimension(:) :: csrValA + integer(c_int),target,dimension(:) :: csrRowPtrA + integer(c_int),target,dimension(:) :: csrColIndA + type(c_ptr),value :: fractionToColor + integer(c_int),target :: ncolors + integer(c_int),target,dimension(:) :: coloring + integer(c_int),target,dimension(:) :: reordering + type(c_ptr) :: myInfo + ! + hipsparseDcsrcolor_rank_1_devptr = hipsparseDcsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & c_loc(csrRowPtrA),c_loc(csrColIndA),fractionToColor,c_loc(ncolors),c_loc(coloring), & c_loc(reordering),myInfo) end function @@ -61563,17 +61973,41 @@ function hipsparseCcsrcolor_assumed_rank(handle,m,nnz,descrA,csrValA,csrRowPtrA, complex(c_float_complex),target,contiguous,dimension(..) :: csrValA integer(c_int),target,contiguous,dimension(..) :: csrRowPtrA integer(c_int),target,contiguous,dimension(..) :: csrColIndA - type(c_ptr) :: fractionToColor + real(c_float),target :: fractionToColor integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + integer(c_int),target,contiguous,dimension(..) :: coloring + integer(c_int),target,contiguous,dimension(..) :: reordering type(c_ptr) :: myInfo ! hipsparseCcsrcolor_assumed_rank = hipsparseCcsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & - c_loc(csrRowPtrA),c_loc(csrColIndA),fractionToColor,c_loc(ncolors),c_loc(coloring), & + c_loc(csrRowPtrA),c_loc(csrColIndA),c_loc(fractionToColor),c_loc(ncolors),c_loc(coloring), & c_loc(reordering),myInfo) end function + function hipsparseCcsrcolor_assumed_rank_devptr(handle,m,nnz,descrA,csrValA,csrRowPtrA, & + csrColIndA,fractionToColor,ncolors,coloring,reordering,myInfo) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseCcsrcolor_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: nnz + type(c_ptr) :: descrA + complex(c_float_complex),target,contiguous,dimension(..) :: csrValA + integer(c_int),target,contiguous,dimension(..) :: csrRowPtrA + integer(c_int),target,contiguous,dimension(..) :: csrColIndA + type(c_ptr),value :: fractionToColor + integer(c_int),target :: ncolors + integer(c_int),target,contiguous,dimension(..) :: coloring + integer(c_int),target,contiguous,dimension(..) :: reordering + type(c_ptr) :: myInfo + ! + hipsparseCcsrcolor_assumed_rank_devptr = hipsparseCcsrcolor_(handle,m,nnz,descrA, & + c_loc(csrValA),c_loc(csrRowPtrA),c_loc(csrColIndA),fractionToColor,c_loc(ncolors), & + c_loc(coloring),c_loc(reordering),myInfo) + end function + #else function hipsparseCcsrcolor_rank_0(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, & fractionToColor,ncolors,coloring,reordering,myInfo) @@ -61588,13 +62022,37 @@ function hipsparseCcsrcolor_rank_0(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrCol complex(c_float_complex),target :: csrValA integer(c_int),target :: csrRowPtrA integer(c_int),target :: csrColIndA - type(c_ptr) :: fractionToColor + real(c_float),target :: fractionToColor integer(c_int),target :: ncolors integer(c_int),target :: coloring integer(c_int),target :: reordering type(c_ptr) :: myInfo ! hipsparseCcsrcolor_rank_0 = hipsparseCcsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & + c_loc(csrRowPtrA),c_loc(csrColIndA),c_loc(fractionToColor),c_loc(ncolors),c_loc(coloring), & + c_loc(reordering),myInfo) + end function + + function hipsparseCcsrcolor_rank_0_devptr(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, & + fractionToColor,ncolors,coloring,reordering,myInfo) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseCcsrcolor_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: nnz + type(c_ptr) :: descrA + complex(c_float_complex),target :: csrValA + integer(c_int),target :: csrRowPtrA + integer(c_int),target :: csrColIndA + type(c_ptr),value :: fractionToColor + integer(c_int),target :: ncolors + integer(c_int),target :: coloring + integer(c_int),target :: reordering + type(c_ptr) :: myInfo + ! + hipsparseCcsrcolor_rank_0_devptr = hipsparseCcsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & c_loc(csrRowPtrA),c_loc(csrColIndA),fractionToColor,c_loc(ncolors),c_loc(coloring), & c_loc(reordering),myInfo) end function @@ -61612,13 +62070,37 @@ function hipsparseCcsrcolor_rank_1(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrCol complex(c_float_complex),target,dimension(:) :: csrValA integer(c_int),target,dimension(:) :: csrRowPtrA integer(c_int),target,dimension(:) :: csrColIndA - type(c_ptr) :: fractionToColor + real(c_float),target :: fractionToColor integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + integer(c_int),target,dimension(:) :: coloring + integer(c_int),target,dimension(:) :: reordering type(c_ptr) :: myInfo ! hipsparseCcsrcolor_rank_1 = hipsparseCcsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & + c_loc(csrRowPtrA),c_loc(csrColIndA),c_loc(fractionToColor),c_loc(ncolors),c_loc(coloring), & + c_loc(reordering),myInfo) + end function + + function hipsparseCcsrcolor_rank_1_devptr(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, & + fractionToColor,ncolors,coloring,reordering,myInfo) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseCcsrcolor_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: nnz + type(c_ptr) :: descrA + complex(c_float_complex),target,dimension(:) :: csrValA + integer(c_int),target,dimension(:) :: csrRowPtrA + integer(c_int),target,dimension(:) :: csrColIndA + type(c_ptr),value :: fractionToColor + integer(c_int),target :: ncolors + integer(c_int),target,dimension(:) :: coloring + integer(c_int),target,dimension(:) :: reordering + type(c_ptr) :: myInfo + ! + hipsparseCcsrcolor_rank_1_devptr = hipsparseCcsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & c_loc(csrRowPtrA),c_loc(csrColIndA),fractionToColor,c_loc(ncolors),c_loc(coloring), & c_loc(reordering),myInfo) end function @@ -61638,17 +62120,41 @@ function hipsparseZcsrcolor_assumed_rank(handle,m,nnz,descrA,csrValA,csrRowPtrA, complex(c_double_complex),target,contiguous,dimension(..) :: csrValA integer(c_int),target,contiguous,dimension(..) :: csrRowPtrA integer(c_int),target,contiguous,dimension(..) :: csrColIndA - type(c_ptr) :: fractionToColor + real(c_double),target :: fractionToColor integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + integer(c_int),target,contiguous,dimension(..) :: coloring + integer(c_int),target,contiguous,dimension(..) :: reordering type(c_ptr) :: myInfo ! hipsparseZcsrcolor_assumed_rank = hipsparseZcsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & - c_loc(csrRowPtrA),c_loc(csrColIndA),fractionToColor,c_loc(ncolors),c_loc(coloring), & + c_loc(csrRowPtrA),c_loc(csrColIndA),c_loc(fractionToColor),c_loc(ncolors),c_loc(coloring), & c_loc(reordering),myInfo) end function + function hipsparseZcsrcolor_assumed_rank_devptr(handle,m,nnz,descrA,csrValA,csrRowPtrA, & + csrColIndA,fractionToColor,ncolors,coloring,reordering,myInfo) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseZcsrcolor_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: nnz + type(c_ptr) :: descrA + complex(c_double_complex),target,contiguous,dimension(..) :: csrValA + integer(c_int),target,contiguous,dimension(..) :: csrRowPtrA + integer(c_int),target,contiguous,dimension(..) :: csrColIndA + type(c_ptr),value :: fractionToColor + integer(c_int),target :: ncolors + integer(c_int),target,contiguous,dimension(..) :: coloring + integer(c_int),target,contiguous,dimension(..) :: reordering + type(c_ptr) :: myInfo + ! + hipsparseZcsrcolor_assumed_rank_devptr = hipsparseZcsrcolor_(handle,m,nnz,descrA, & + c_loc(csrValA),c_loc(csrRowPtrA),c_loc(csrColIndA),fractionToColor,c_loc(ncolors), & + c_loc(coloring),c_loc(reordering),myInfo) + end function + #else function hipsparseZcsrcolor_rank_0(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, & fractionToColor,ncolors,coloring,reordering,myInfo) @@ -61663,13 +62169,37 @@ function hipsparseZcsrcolor_rank_0(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrCol complex(c_double_complex),target :: csrValA integer(c_int),target :: csrRowPtrA integer(c_int),target :: csrColIndA - type(c_ptr) :: fractionToColor + real(c_double),target :: fractionToColor integer(c_int),target :: ncolors integer(c_int),target :: coloring integer(c_int),target :: reordering type(c_ptr) :: myInfo ! hipsparseZcsrcolor_rank_0 = hipsparseZcsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & + c_loc(csrRowPtrA),c_loc(csrColIndA),c_loc(fractionToColor),c_loc(ncolors),c_loc(coloring), & + c_loc(reordering),myInfo) + end function + + function hipsparseZcsrcolor_rank_0_devptr(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, & + fractionToColor,ncolors,coloring,reordering,myInfo) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseZcsrcolor_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: nnz + type(c_ptr) :: descrA + complex(c_double_complex),target :: csrValA + integer(c_int),target :: csrRowPtrA + integer(c_int),target :: csrColIndA + type(c_ptr),value :: fractionToColor + integer(c_int),target :: ncolors + integer(c_int),target :: coloring + integer(c_int),target :: reordering + type(c_ptr) :: myInfo + ! + hipsparseZcsrcolor_rank_0_devptr = hipsparseZcsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & c_loc(csrRowPtrA),c_loc(csrColIndA),fractionToColor,c_loc(ncolors),c_loc(coloring), & c_loc(reordering),myInfo) end function @@ -61687,13 +62217,37 @@ function hipsparseZcsrcolor_rank_1(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrCol complex(c_double_complex),target,dimension(:) :: csrValA integer(c_int),target,dimension(:) :: csrRowPtrA integer(c_int),target,dimension(:) :: csrColIndA - type(c_ptr) :: fractionToColor + real(c_double),target :: fractionToColor integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + integer(c_int),target,dimension(:) :: coloring + integer(c_int),target,dimension(:) :: reordering type(c_ptr) :: myInfo ! hipsparseZcsrcolor_rank_1 = hipsparseZcsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & + c_loc(csrRowPtrA),c_loc(csrColIndA),c_loc(fractionToColor),c_loc(ncolors),c_loc(coloring), & + c_loc(reordering),myInfo) + end function + + function hipsparseZcsrcolor_rank_1_devptr(handle,m,nnz,descrA,csrValA,csrRowPtrA,csrColIndA, & + fractionToColor,ncolors,coloring,reordering,myInfo) + use iso_c_binding + use hipfort_hipsparse_enums + implicit none + integer(kind(HIPSPARSE_STATUS_SUCCESS)) :: hipsparseZcsrcolor_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: nnz + type(c_ptr) :: descrA + complex(c_double_complex),target,dimension(:) :: csrValA + integer(c_int),target,dimension(:) :: csrRowPtrA + integer(c_int),target,dimension(:) :: csrColIndA + type(c_ptr),value :: fractionToColor + integer(c_int),target :: ncolors + integer(c_int),target,dimension(:) :: coloring + integer(c_int),target,dimension(:) :: reordering + type(c_ptr) :: myInfo + ! + hipsparseZcsrcolor_rank_1_devptr = hipsparseZcsrcolor_(handle,m,nnz,descrA,c_loc(csrValA), & c_loc(csrRowPtrA),c_loc(csrColIndA),fractionToColor,c_loc(ncolors),c_loc(coloring), & c_loc(reordering),myInfo) end function diff --git a/lib/hipfort/hipfort_rocblas.F90 b/lib/hipfort/hipfort_rocblas.F90 index ae8b4f885..aeb040836 100644 --- a/lib/hipfort/hipfort_rocblas.F90 +++ b/lib/hipfort/hipfort_rocblas.F90 @@ -400,8 +400,6 @@ function rocblas_set_solution_fitness_query_(handle,fitness) & type(c_ptr),value :: handle type(c_ptr),value :: fitness end function - - module procedure rocblas_set_solution_fitness_query_typed end interface !> \brief specifies the performance metric that solution selection uses @@ -1867,13 +1865,19 @@ function rocblas_sdot_(handle,n,x,incx,y,incy,myResult) bind(c, name="rocblas_sd type(c_ptr),value :: myResult end function + module procedure rocblas_sdot_typed + #ifdef USE_ASSUMED_RANK - module procedure rocblas_sdot_assumed_rank + module procedure & + rocblas_sdot_assumed_rank,& + rocblas_sdot_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_sdot_rank_0,& - rocblas_sdot_rank_1 + rocblas_sdot_rank_0_devptr,& + rocblas_sdot_rank_1,& + rocblas_sdot_rank_1_devptr #endif #endif end interface @@ -1893,13 +1897,19 @@ function rocblas_ddot_(handle,n,x,incx,y,incy,myResult) bind(c, name="rocblas_dd type(c_ptr),value :: myResult end function + module procedure rocblas_ddot_typed + #ifdef USE_ASSUMED_RANK - module procedure rocblas_ddot_assumed_rank + module procedure & + rocblas_ddot_assumed_rank,& + rocblas_ddot_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_ddot_rank_0,& - rocblas_ddot_rank_1 + rocblas_ddot_rank_0_devptr,& + rocblas_ddot_rank_1,& + rocblas_ddot_rank_1_devptr #endif #endif end interface @@ -1951,13 +1961,19 @@ function rocblas_cdotu_(handle,n,x,incx,y,incy,myResult) bind(c, name="rocblas_c type(c_ptr),value :: myResult end function + module procedure rocblas_cdotu_typed + #ifdef USE_ASSUMED_RANK - module procedure rocblas_cdotu_assumed_rank + module procedure & + rocblas_cdotu_assumed_rank,& + rocblas_cdotu_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_cdotu_rank_0,& - rocblas_cdotu_rank_1 + rocblas_cdotu_rank_0_devptr,& + rocblas_cdotu_rank_1,& + rocblas_cdotu_rank_1_devptr #endif #endif end interface @@ -1977,13 +1993,19 @@ function rocblas_zdotu_(handle,n,x,incx,y,incy,myResult) bind(c, name="rocblas_z type(c_ptr),value :: myResult end function + module procedure rocblas_zdotu_typed + #ifdef USE_ASSUMED_RANK - module procedure rocblas_zdotu_assumed_rank + module procedure & + rocblas_zdotu_assumed_rank,& + rocblas_zdotu_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_zdotu_rank_0,& - rocblas_zdotu_rank_1 + rocblas_zdotu_rank_0_devptr,& + rocblas_zdotu_rank_1,& + rocblas_zdotu_rank_1_devptr #endif #endif end interface @@ -2003,13 +2025,19 @@ function rocblas_cdotc_(handle,n,x,incx,y,incy,myResult) bind(c, name="rocblas_c type(c_ptr),value :: myResult end function + module procedure rocblas_cdotc_typed + #ifdef USE_ASSUMED_RANK - module procedure rocblas_cdotc_assumed_rank + module procedure & + rocblas_cdotc_assumed_rank,& + rocblas_cdotc_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_cdotc_rank_0,& - rocblas_cdotc_rank_1 + rocblas_cdotc_rank_0_devptr,& + rocblas_cdotc_rank_1,& + rocblas_cdotc_rank_1_devptr #endif #endif end interface @@ -2029,13 +2057,19 @@ function rocblas_zdotc_(handle,n,x,incx,y,incy,myResult) bind(c, name="rocblas_z type(c_ptr),value :: myResult end function + module procedure rocblas_zdotc_typed + #ifdef USE_ASSUMED_RANK - module procedure rocblas_zdotc_assumed_rank + module procedure & + rocblas_zdotc_assumed_rank,& + rocblas_zdotc_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_zdotc_rank_0,& - rocblas_zdotc_rank_1 + rocblas_zdotc_rank_0_devptr,& + rocblas_zdotc_rank_1,& + rocblas_zdotc_rank_1_devptr #endif #endif end interface @@ -2054,6 +2088,8 @@ function rocblas_sdot_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="rocblas integer(c_int64_t),value :: incy type(c_ptr),value :: myResult end function + + module procedure rocblas_sdot_64_typed end interface interface rocblas_ddot_64 @@ -2070,6 +2106,8 @@ function rocblas_ddot_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="rocblas integer(c_int64_t),value :: incy type(c_ptr),value :: myResult end function + + module procedure rocblas_ddot_64_typed end interface interface rocblas_hdot_64 @@ -2118,6 +2156,8 @@ function rocblas_cdotu_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="rocbla integer(c_int64_t),value :: incy type(c_ptr),value :: myResult end function + + module procedure rocblas_cdotu_64_typed end interface interface rocblas_zdotu_64 @@ -2134,6 +2174,8 @@ function rocblas_zdotu_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="rocbla integer(c_int64_t),value :: incy type(c_ptr),value :: myResult end function + + module procedure rocblas_zdotu_64_typed end interface interface rocblas_cdotc_64 @@ -2150,6 +2192,8 @@ function rocblas_cdotc_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="rocbla integer(c_int64_t),value :: incy type(c_ptr),value :: myResult end function + + module procedure rocblas_cdotc_64_typed end interface interface rocblas_zdotc_64 @@ -2166,6 +2210,8 @@ function rocblas_zdotc_64_(handle,n,x,incx,y,incy,myResult) bind(c, name="rocbla integer(c_int64_t),value :: incy type(c_ptr),value :: myResult end function + + module procedure rocblas_zdotc_64_typed end interface !> \brief BLAS Level 1 API @@ -4236,6 +4282,8 @@ function rocblas_sasum_(handle,n,x,incx,myResult) bind(c, name="rocblas_sasum") integer(c_int),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_sasum_typed end interface interface rocblas_dasum @@ -4250,6 +4298,8 @@ function rocblas_dasum_(handle,n,x,incx,myResult) bind(c, name="rocblas_dasum") integer(c_int),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_dasum_typed end interface interface rocblas_scasum @@ -4265,13 +4315,19 @@ function rocblas_scasum_(handle,n,x,incx,myResult) bind(c, name="rocblas_scasum" type(c_ptr),value :: myResult end function + module procedure rocblas_scasum_typed + #ifdef USE_ASSUMED_RANK - module procedure rocblas_scasum_assumed_rank + module procedure & + rocblas_scasum_assumed_rank,& + rocblas_scasum_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_scasum_rank_0,& - rocblas_scasum_rank_1 + rocblas_scasum_rank_0_devptr,& + rocblas_scasum_rank_1,& + rocblas_scasum_rank_1_devptr #endif #endif end interface @@ -4289,13 +4345,19 @@ function rocblas_dzasum_(handle,n,x,incx,myResult) bind(c, name="rocblas_dzasum" type(c_ptr),value :: myResult end function + module procedure rocblas_dzasum_typed + #ifdef USE_ASSUMED_RANK - module procedure rocblas_dzasum_assumed_rank + module procedure & + rocblas_dzasum_assumed_rank,& + rocblas_dzasum_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_dzasum_rank_0,& - rocblas_dzasum_rank_1 + rocblas_dzasum_rank_0_devptr,& + rocblas_dzasum_rank_1,& + rocblas_dzasum_rank_1_devptr #endif #endif end interface @@ -4312,6 +4374,8 @@ function rocblas_sasum_64_(handle,n,x,incx,myResult) bind(c, name="rocblas_sasum integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_sasum_64_typed end interface interface rocblas_dasum_64 @@ -4326,6 +4390,8 @@ function rocblas_dasum_64_(handle,n,x,incx,myResult) bind(c, name="rocblas_dasum integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_dasum_64_typed end interface interface rocblas_scasum_64 @@ -4340,6 +4406,8 @@ function rocblas_scasum_64_(handle,n,x,incx,myResult) bind(c, name="rocblas_scas integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_scasum_64_typed end interface interface rocblas_dzasum_64 @@ -4354,6 +4422,8 @@ function rocblas_dzasum_64_(handle,n,x,incx,myResult) bind(c, name="rocblas_dzas integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_dzasum_64_typed end interface !> \brief BLAS Level 1 API @@ -4738,6 +4808,8 @@ function rocblas_snrm2_(handle,n,x,incx,myResult) bind(c, name="rocblas_snrm2") integer(c_int),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_snrm2_typed end interface interface rocblas_dnrm2 @@ -4752,6 +4824,8 @@ function rocblas_dnrm2_(handle,n,x,incx,myResult) bind(c, name="rocblas_dnrm2") integer(c_int),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_dnrm2_typed end interface interface rocblas_scnrm2 @@ -4767,13 +4841,19 @@ function rocblas_scnrm2_(handle,n,x,incx,myResult) bind(c, name="rocblas_scnrm2" type(c_ptr),value :: myResult end function + module procedure rocblas_scnrm2_typed + #ifdef USE_ASSUMED_RANK - module procedure rocblas_scnrm2_assumed_rank + module procedure & + rocblas_scnrm2_assumed_rank,& + rocblas_scnrm2_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_scnrm2_rank_0,& - rocblas_scnrm2_rank_1 + rocblas_scnrm2_rank_0_devptr,& + rocblas_scnrm2_rank_1,& + rocblas_scnrm2_rank_1_devptr #endif #endif end interface @@ -4791,13 +4871,19 @@ function rocblas_dznrm2_(handle,n,x,incx,myResult) bind(c, name="rocblas_dznrm2" type(c_ptr),value :: myResult end function + module procedure rocblas_dznrm2_typed + #ifdef USE_ASSUMED_RANK - module procedure rocblas_dznrm2_assumed_rank + module procedure & + rocblas_dznrm2_assumed_rank,& + rocblas_dznrm2_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_dznrm2_rank_0,& - rocblas_dznrm2_rank_1 + rocblas_dznrm2_rank_0_devptr,& + rocblas_dznrm2_rank_1,& + rocblas_dznrm2_rank_1_devptr #endif #endif end interface @@ -4814,6 +4900,8 @@ function rocblas_snrm2_64_(handle,n,x,incx,myResult) bind(c, name="rocblas_snrm2 integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_snrm2_64_typed end interface interface rocblas_dnrm2_64 @@ -4828,6 +4916,8 @@ function rocblas_dnrm2_64_(handle,n,x,incx,myResult) bind(c, name="rocblas_dnrm2 integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_dnrm2_64_typed end interface interface rocblas_scnrm2_64 @@ -4842,6 +4932,8 @@ function rocblas_scnrm2_64_(handle,n,x,incx,myResult) bind(c, name="rocblas_scnr integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_scnrm2_64_typed end interface interface rocblas_dznrm2_64 @@ -4856,6 +4948,8 @@ function rocblas_dznrm2_64_(handle,n,x,incx,myResult) bind(c, name="rocblas_dznr integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_dznrm2_64_typed end interface !> \brief BLAS Level 1 API @@ -5238,6 +5332,8 @@ function rocblas_isamax_(handle,n,x,incx,myResult) bind(c, name="rocblas_isamax" integer(c_int),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_isamax_typed end interface interface rocblas_idamax @@ -5252,6 +5348,8 @@ function rocblas_idamax_(handle,n,x,incx,myResult) bind(c, name="rocblas_idamax" integer(c_int),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_idamax_typed end interface interface rocblas_icamax @@ -5267,13 +5365,19 @@ function rocblas_icamax_(handle,n,x,incx,myResult) bind(c, name="rocblas_icamax" type(c_ptr),value :: myResult end function + module procedure rocblas_icamax_typed + #ifdef USE_ASSUMED_RANK - module procedure rocblas_icamax_assumed_rank + module procedure & + rocblas_icamax_assumed_rank,& + rocblas_icamax_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_icamax_rank_0,& - rocblas_icamax_rank_1 + rocblas_icamax_rank_0_devptr,& + rocblas_icamax_rank_1,& + rocblas_icamax_rank_1_devptr #endif #endif end interface @@ -5291,13 +5395,19 @@ function rocblas_izamax_(handle,n,x,incx,myResult) bind(c, name="rocblas_izamax" type(c_ptr),value :: myResult end function + module procedure rocblas_izamax_typed + #ifdef USE_ASSUMED_RANK - module procedure rocblas_izamax_assumed_rank + module procedure & + rocblas_izamax_assumed_rank,& + rocblas_izamax_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_izamax_rank_0,& - rocblas_izamax_rank_1 + rocblas_izamax_rank_0_devptr,& + rocblas_izamax_rank_1,& + rocblas_izamax_rank_1_devptr #endif #endif end interface @@ -5314,6 +5424,8 @@ function rocblas_isamax_64_(handle,n,x,incx,myResult) bind(c, name="rocblas_isam integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_isamax_64_typed end interface interface rocblas_idamax_64 @@ -5328,6 +5440,8 @@ function rocblas_idamax_64_(handle,n,x,incx,myResult) bind(c, name="rocblas_idam integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_idamax_64_typed end interface interface rocblas_icamax_64 @@ -5342,6 +5456,8 @@ function rocblas_icamax_64_(handle,n,x,incx,myResult) bind(c, name="rocblas_icam integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_icamax_64_typed end interface interface rocblas_izamax_64 @@ -5356,6 +5472,8 @@ function rocblas_izamax_64_(handle,n,x,incx,myResult) bind(c, name="rocblas_izam integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_izamax_64_typed end interface !> \brief BLAS Level 1 API @@ -5728,6 +5846,8 @@ function rocblas_isamin_(handle,n,x,incx,myResult) bind(c, name="rocblas_isamin" integer(c_int),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_isamin_typed end interface interface rocblas_idamin @@ -5742,6 +5862,8 @@ function rocblas_idamin_(handle,n,x,incx,myResult) bind(c, name="rocblas_idamin" integer(c_int),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_idamin_typed end interface interface rocblas_icamin @@ -5757,13 +5879,19 @@ function rocblas_icamin_(handle,n,x,incx,myResult) bind(c, name="rocblas_icamin" type(c_ptr),value :: myResult end function + module procedure rocblas_icamin_typed + #ifdef USE_ASSUMED_RANK - module procedure rocblas_icamin_assumed_rank + module procedure & + rocblas_icamin_assumed_rank,& + rocblas_icamin_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_icamin_rank_0,& - rocblas_icamin_rank_1 + rocblas_icamin_rank_0_devptr,& + rocblas_icamin_rank_1,& + rocblas_icamin_rank_1_devptr #endif #endif end interface @@ -5781,13 +5909,19 @@ function rocblas_izamin_(handle,n,x,incx,myResult) bind(c, name="rocblas_izamin" type(c_ptr),value :: myResult end function + module procedure rocblas_izamin_typed + #ifdef USE_ASSUMED_RANK - module procedure rocblas_izamin_assumed_rank + module procedure & + rocblas_izamin_assumed_rank,& + rocblas_izamin_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_izamin_rank_0,& - rocblas_izamin_rank_1 + rocblas_izamin_rank_0_devptr,& + rocblas_izamin_rank_1,& + rocblas_izamin_rank_1_devptr #endif #endif end interface @@ -5804,6 +5938,8 @@ function rocblas_isamin_64_(handle,n,x,incx,myResult) bind(c, name="rocblas_isam integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_isamin_64_typed end interface interface rocblas_idamin_64 @@ -5818,6 +5954,8 @@ function rocblas_idamin_64_(handle,n,x,incx,myResult) bind(c, name="rocblas_idam integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_idamin_64_typed end interface interface rocblas_icamin_64 @@ -5832,6 +5970,8 @@ function rocblas_icamin_64_(handle,n,x,incx,myResult) bind(c, name="rocblas_icam integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_icamin_64_typed end interface interface rocblas_izamin_64 @@ -5846,6 +5986,8 @@ function rocblas_izamin_64_(handle,n,x,incx,myResult) bind(c, name="rocblas_izam integer(c_int64_t),value :: incx type(c_ptr),value :: myResult end function + + module procedure rocblas_izamin_64_typed end interface !> \brief BLAS Level 1 API @@ -6231,12 +6373,16 @@ function rocblas_srot_(handle,n,x,incx,y,incy,c,s) bind(c, name="rocblas_srot") module procedure rocblas_srot_typed #ifdef USE_ASSUMED_RANK - module procedure rocblas_srot_assumed_rank + module procedure & + rocblas_srot_assumed_rank,& + rocblas_srot_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_srot_rank_0,& - rocblas_srot_rank_1 + rocblas_srot_rank_0_devptr,& + rocblas_srot_rank_1,& + rocblas_srot_rank_1_devptr #endif #endif end interface @@ -6260,12 +6406,16 @@ function rocblas_drot_(handle,n,x,incx,y,incy,c,s) bind(c, name="rocblas_drot") module procedure rocblas_drot_typed #ifdef USE_ASSUMED_RANK - module procedure rocblas_drot_assumed_rank + module procedure & + rocblas_drot_assumed_rank,& + rocblas_drot_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_drot_rank_0,& - rocblas_drot_rank_1 + rocblas_drot_rank_0_devptr,& + rocblas_drot_rank_1,& + rocblas_drot_rank_1_devptr #endif #endif end interface @@ -6289,12 +6439,16 @@ function rocblas_crot_(handle,n,x,incx,y,incy,c,s) bind(c, name="rocblas_crot") module procedure rocblas_crot_typed #ifdef USE_ASSUMED_RANK - module procedure rocblas_crot_assumed_rank + module procedure & + rocblas_crot_assumed_rank,& + rocblas_crot_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_crot_rank_0,& - rocblas_crot_rank_1 + rocblas_crot_rank_0_devptr,& + rocblas_crot_rank_1,& + rocblas_crot_rank_1_devptr #endif #endif end interface @@ -6318,12 +6472,16 @@ function rocblas_csrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="rocblas_csrot" module procedure rocblas_csrot_typed #ifdef USE_ASSUMED_RANK - module procedure rocblas_csrot_assumed_rank + module procedure & + rocblas_csrot_assumed_rank,& + rocblas_csrot_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_csrot_rank_0,& - rocblas_csrot_rank_1 + rocblas_csrot_rank_0_devptr,& + rocblas_csrot_rank_1,& + rocblas_csrot_rank_1_devptr #endif #endif end interface @@ -6347,12 +6505,16 @@ function rocblas_zrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="rocblas_zrot") module procedure rocblas_zrot_typed #ifdef USE_ASSUMED_RANK - module procedure rocblas_zrot_assumed_rank + module procedure & + rocblas_zrot_assumed_rank,& + rocblas_zrot_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_zrot_rank_0,& - rocblas_zrot_rank_1 + rocblas_zrot_rank_0_devptr,& + rocblas_zrot_rank_1,& + rocblas_zrot_rank_1_devptr #endif #endif end interface @@ -6376,12 +6538,16 @@ function rocblas_zdrot_(handle,n,x,incx,y,incy,c,s) bind(c, name="rocblas_zdrot" module procedure rocblas_zdrot_typed #ifdef USE_ASSUMED_RANK - module procedure rocblas_zdrot_assumed_rank + module procedure & + rocblas_zdrot_assumed_rank,& + rocblas_zdrot_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_zdrot_rank_0,& - rocblas_zdrot_rank_1 + rocblas_zdrot_rank_0_devptr,& + rocblas_zdrot_rank_1,& + rocblas_zdrot_rank_1_devptr #endif #endif end interface @@ -6830,12 +6996,16 @@ function rocblas_srot_strided_batched_(handle,n,x,incx,stride_x,y,incy,stride_y, module procedure rocblas_srot_strided_batched_typed #ifdef USE_ASSUMED_RANK - module procedure rocblas_srot_strided_batched_assumed_rank + module procedure & + rocblas_srot_strided_batched_assumed_rank,& + rocblas_srot_strided_batched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_srot_strided_batched_rank_0,& - rocblas_srot_strided_batched_rank_1 + rocblas_srot_strided_batched_rank_0_devptr,& + rocblas_srot_strided_batched_rank_1,& + rocblas_srot_strided_batched_rank_1_devptr #endif #endif end interface @@ -6864,12 +7034,16 @@ function rocblas_drot_strided_batched_(handle,n,x,incx,stride_x,y,incy,stride_y, module procedure rocblas_drot_strided_batched_typed #ifdef USE_ASSUMED_RANK - module procedure rocblas_drot_strided_batched_assumed_rank + module procedure & + rocblas_drot_strided_batched_assumed_rank,& + rocblas_drot_strided_batched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_drot_strided_batched_rank_0,& - rocblas_drot_strided_batched_rank_1 + rocblas_drot_strided_batched_rank_0_devptr,& + rocblas_drot_strided_batched_rank_1,& + rocblas_drot_strided_batched_rank_1_devptr #endif #endif end interface @@ -6898,12 +7072,16 @@ function rocblas_crot_strided_batched_(handle,n,x,incx,stride_x,y,incy,stride_y, module procedure rocblas_crot_strided_batched_typed #ifdef USE_ASSUMED_RANK - module procedure rocblas_crot_strided_batched_assumed_rank + module procedure & + rocblas_crot_strided_batched_assumed_rank,& + rocblas_crot_strided_batched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_crot_strided_batched_rank_0,& - rocblas_crot_strided_batched_rank_1 + rocblas_crot_strided_batched_rank_0_devptr,& + rocblas_crot_strided_batched_rank_1,& + rocblas_crot_strided_batched_rank_1_devptr #endif #endif end interface @@ -6932,12 +7110,16 @@ function rocblas_csrot_strided_batched_(handle,n,x,incx,stride_x,y,incy,stride_y module procedure rocblas_csrot_strided_batched_typed #ifdef USE_ASSUMED_RANK - module procedure rocblas_csrot_strided_batched_assumed_rank + module procedure & + rocblas_csrot_strided_batched_assumed_rank,& + rocblas_csrot_strided_batched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_csrot_strided_batched_rank_0,& - rocblas_csrot_strided_batched_rank_1 + rocblas_csrot_strided_batched_rank_0_devptr,& + rocblas_csrot_strided_batched_rank_1,& + rocblas_csrot_strided_batched_rank_1_devptr #endif #endif end interface @@ -6966,12 +7148,16 @@ function rocblas_zrot_strided_batched_(handle,n,x,incx,stride_x,y,incy,stride_y, module procedure rocblas_zrot_strided_batched_typed #ifdef USE_ASSUMED_RANK - module procedure rocblas_zrot_strided_batched_assumed_rank + module procedure & + rocblas_zrot_strided_batched_assumed_rank,& + rocblas_zrot_strided_batched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_zrot_strided_batched_rank_0,& - rocblas_zrot_strided_batched_rank_1 + rocblas_zrot_strided_batched_rank_0_devptr,& + rocblas_zrot_strided_batched_rank_1,& + rocblas_zrot_strided_batched_rank_1_devptr #endif #endif end interface @@ -7000,12 +7186,16 @@ function rocblas_zdrot_strided_batched_(handle,n,x,incx,stride_x,y,incy,stride_y module procedure rocblas_zdrot_strided_batched_typed #ifdef USE_ASSUMED_RANK - module procedure rocblas_zdrot_strided_batched_assumed_rank + module procedure & + rocblas_zdrot_strided_batched_assumed_rank,& + rocblas_zdrot_strided_batched_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocblas_zdrot_strided_batched_rank_0,& - rocblas_zdrot_strided_batched_rank_1 + rocblas_zdrot_strided_batched_rank_0_devptr,& + rocblas_zdrot_strided_batched_rank_1,& + rocblas_zdrot_strided_batched_rank_1_devptr #endif #endif end interface @@ -7198,6 +7388,8 @@ function rocblas_srotg_(handle,a,b,c,s) bind(c, name="rocblas_srotg") type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure rocblas_srotg_typed end interface interface rocblas_drotg @@ -7212,6 +7404,8 @@ function rocblas_drotg_(handle,a,b,c,s) bind(c, name="rocblas_drotg") type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure rocblas_drotg_typed end interface interface rocblas_crotg @@ -7226,6 +7420,8 @@ function rocblas_crotg_(handle,a,b,c,s) bind(c, name="rocblas_crotg") type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure rocblas_crotg_typed end interface interface rocblas_zrotg @@ -7240,6 +7436,8 @@ function rocblas_zrotg_(handle,a,b,c,s) bind(c, name="rocblas_zrotg") type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure rocblas_zrotg_typed end interface interface rocblas_srotg_64 @@ -7254,6 +7452,8 @@ function rocblas_srotg_64_(handle,a,b,c,s) bind(c, name="rocblas_srotg_64") type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure rocblas_srotg_64_typed end interface interface rocblas_drotg_64 @@ -7268,6 +7468,8 @@ function rocblas_drotg_64_(handle,a,b,c,s) bind(c, name="rocblas_drotg_64") type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure rocblas_drotg_64_typed end interface interface rocblas_crotg_64 @@ -7282,6 +7484,8 @@ function rocblas_crotg_64_(handle,a,b,c,s) bind(c, name="rocblas_crotg_64") type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure rocblas_crotg_64_typed end interface interface rocblas_zrotg_64 @@ -7296,6 +7500,8 @@ function rocblas_zrotg_64_(handle,a,b,c,s) bind(c, name="rocblas_zrotg_64") type(c_ptr),value :: c type(c_ptr),value :: s end function + + module procedure rocblas_zrotg_64_typed end interface !> \brief BLAS Level 1 API @@ -8059,6 +8265,8 @@ function rocblas_srotmg_(handle,d1,d2,x1,y1,param) bind(c, name="rocblas_srotmg" type(c_ptr),value :: y1 type(c_ptr),value :: param end function + + module procedure rocblas_srotmg_typed end interface interface rocblas_drotmg @@ -8074,6 +8282,8 @@ function rocblas_drotmg_(handle,d1,d2,x1,y1,param) bind(c, name="rocblas_drotmg" type(c_ptr),value :: y1 type(c_ptr),value :: param end function + + module procedure rocblas_drotmg_typed end interface interface rocblas_srotmg_64 @@ -8089,6 +8299,8 @@ function rocblas_srotmg_64_(handle,d1,d2,x1,y1,param) bind(c, name="rocblas_srot type(c_ptr),value :: y1 type(c_ptr),value :: param end function + + module procedure rocblas_srotmg_64_typed end interface interface rocblas_drotmg_64 @@ -8104,6 +8316,8 @@ function rocblas_drotmg_64_(handle,d1,d2,x1,y1,param) bind(c, name="rocblas_drot type(c_ptr),value :: y1 type(c_ptr),value :: param end function + + module procedure rocblas_drotmg_64_typed end interface !> \brief BLAS Level 1 API @@ -39608,18 +39822,6 @@ function rocblas_get_math_mode_typed(handle,math_mode) rocblas_get_math_mode_typed = rocblas_get_math_mode_(handle,c_loc(math_mode)) end function - function rocblas_set_solution_fitness_query_typed(handle,fitness) - use iso_c_binding - use hipfort_rocblas_enums - implicit none - integer(kind(rocblas_status_success)) :: rocblas_set_solution_fitness_query_typed - type(c_ptr) :: handle - real(c_double),target :: fitness - ! - rocblas_set_solution_fitness_query_typed = rocblas_set_solution_fitness_query_(handle, & - c_loc(fitness)) - end function - function rocblas_get_performance_metric_typed(handle,metric) use iso_c_binding use hipfort_rocblas_enums @@ -40191,6 +40393,198 @@ function rocblas_zdscal_strided_batched_64_typed(handle,n,alpha,x,incx,stride_x, c_loc(alpha),x,incx,stride_x,batch_count) end function + function rocblas_sdot_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_sdot_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_float),target :: myResult + ! + rocblas_sdot_typed = rocblas_sdot_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function rocblas_ddot_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_ddot_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_double),target :: myResult + ! + rocblas_ddot_typed = rocblas_ddot_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function rocblas_cdotu_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_cdotu_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + complex(c_float_complex),target :: myResult + ! + rocblas_cdotu_typed = rocblas_cdotu_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function rocblas_zdotu_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdotu_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + complex(c_double_complex),target :: myResult + ! + rocblas_zdotu_typed = rocblas_zdotu_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function rocblas_cdotc_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_cdotc_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + complex(c_float_complex),target :: myResult + ! + rocblas_cdotc_typed = rocblas_cdotc_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function rocblas_zdotc_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdotc_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + complex(c_double_complex),target :: myResult + ! + rocblas_zdotc_typed = rocblas_zdotc_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function rocblas_sdot_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_sdot_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_float),target :: myResult + ! + rocblas_sdot_64_typed = rocblas_sdot_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function rocblas_ddot_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_ddot_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_double),target :: myResult + ! + rocblas_ddot_64_typed = rocblas_ddot_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function rocblas_cdotu_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_cdotu_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: myResult + ! + rocblas_cdotu_64_typed = rocblas_cdotu_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function rocblas_zdotu_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdotu_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: myResult + ! + rocblas_zdotu_64_typed = rocblas_zdotu_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function rocblas_cdotc_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_cdotc_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + complex(c_float_complex),target :: myResult + ! + rocblas_cdotc_64_typed = rocblas_cdotc_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + + function rocblas_zdotc_64_typed(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdotc_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + complex(c_double_complex),target :: myResult + ! + rocblas_zdotc_64_typed = rocblas_zdotc_64_(handle,n,x,incx,y,incy,c_loc(myResult)) + end function + function rocblas_haxpy_typed(handle,n,alpha,x,incx,y,incy) use iso_c_binding use hipfort_rocblas_enums @@ -40741,502 +41135,950 @@ function rocblas_zaxpy_strided_batched_64_typed(handle,n,alpha,x,incx,stridex,y, c_loc(alpha),x,incx,stridex,y,incy,stridey,batch_count) end function - function rocblas_srot_typed(handle,n,x,incx,y,incy,c,s) + function rocblas_sasum_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_srot_typed + integer(kind(rocblas_status_success)) :: rocblas_sasum_typed type(c_ptr) :: handle integer(c_int) :: n type(c_ptr) :: x integer(c_int) :: incx - type(c_ptr) :: y - integer(c_int) :: incy - real(c_float),target :: c - real(c_float),target :: s + real(c_float),target :: myResult ! - rocblas_srot_typed = rocblas_srot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + rocblas_sasum_typed = rocblas_sasum_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_drot_typed(handle,n,x,incx,y,incy,c,s) + function rocblas_dasum_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_drot_typed + integer(kind(rocblas_status_success)) :: rocblas_dasum_typed type(c_ptr) :: handle integer(c_int) :: n type(c_ptr) :: x integer(c_int) :: incx - type(c_ptr) :: y - integer(c_int) :: incy - real(c_double),target :: c - real(c_double),target :: s + real(c_double),target :: myResult ! - rocblas_drot_typed = rocblas_drot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + rocblas_dasum_typed = rocblas_dasum_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_crot_typed(handle,n,x,incx,y,incy,c,s) + function rocblas_scasum_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_crot_typed + integer(kind(rocblas_status_success)) :: rocblas_scasum_typed type(c_ptr) :: handle integer(c_int) :: n type(c_ptr) :: x integer(c_int) :: incx - type(c_ptr) :: y - integer(c_int) :: incy - real(c_float),target :: c - complex(c_float_complex),target :: s + real(c_float),target :: myResult ! - rocblas_crot_typed = rocblas_crot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + rocblas_scasum_typed = rocblas_scasum_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_csrot_typed(handle,n,x,incx,y,incy,c,s) + function rocblas_dzasum_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_csrot_typed + integer(kind(rocblas_status_success)) :: rocblas_dzasum_typed type(c_ptr) :: handle integer(c_int) :: n type(c_ptr) :: x integer(c_int) :: incx - type(c_ptr) :: y - integer(c_int) :: incy - real(c_float),target :: c - real(c_float),target :: s + real(c_double),target :: myResult ! - rocblas_csrot_typed = rocblas_csrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + rocblas_dzasum_typed = rocblas_dzasum_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_zrot_typed(handle,n,x,incx,y,incy,c,s) + function rocblas_sasum_64_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_zrot_typed + integer(kind(rocblas_status_success)) :: rocblas_sasum_64_typed type(c_ptr) :: handle - integer(c_int) :: n + integer(c_int64_t) :: n type(c_ptr) :: x - integer(c_int) :: incx - type(c_ptr) :: y - integer(c_int) :: incy - real(c_double),target :: c - complex(c_double_complex),target :: s + integer(c_int64_t) :: incx + real(c_float),target :: myResult ! - rocblas_zrot_typed = rocblas_zrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + rocblas_sasum_64_typed = rocblas_sasum_64_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_zdrot_typed(handle,n,x,incx,y,incy,c,s) + function rocblas_dasum_64_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_zdrot_typed + integer(kind(rocblas_status_success)) :: rocblas_dasum_64_typed type(c_ptr) :: handle - integer(c_int) :: n + integer(c_int64_t) :: n type(c_ptr) :: x - integer(c_int) :: incx - type(c_ptr) :: y - integer(c_int) :: incy - real(c_double),target :: c - real(c_double),target :: s + integer(c_int64_t) :: incx + real(c_double),target :: myResult ! - rocblas_zdrot_typed = rocblas_zdrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + rocblas_dasum_64_typed = rocblas_dasum_64_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_srot_64_typed(handle,n,x,incx,y,incy,c,s) + function rocblas_scasum_64_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_srot_64_typed + integer(kind(rocblas_status_success)) :: rocblas_scasum_64_typed type(c_ptr) :: handle integer(c_int64_t) :: n type(c_ptr) :: x integer(c_int64_t) :: incx - type(c_ptr) :: y - integer(c_int64_t) :: incy - real(c_float),target :: c - real(c_float),target :: s + real(c_float),target :: myResult ! - rocblas_srot_64_typed = rocblas_srot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + rocblas_scasum_64_typed = rocblas_scasum_64_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_drot_64_typed(handle,n,x,incx,y,incy,c,s) + function rocblas_dzasum_64_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_drot_64_typed + integer(kind(rocblas_status_success)) :: rocblas_dzasum_64_typed type(c_ptr) :: handle integer(c_int64_t) :: n type(c_ptr) :: x integer(c_int64_t) :: incx - type(c_ptr) :: y - integer(c_int64_t) :: incy - real(c_double),target :: c - real(c_double),target :: s + real(c_double),target :: myResult ! - rocblas_drot_64_typed = rocblas_drot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + rocblas_dzasum_64_typed = rocblas_dzasum_64_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_crot_64_typed(handle,n,x,incx,y,incy,c,s) + function rocblas_snrm2_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_crot_64_typed + integer(kind(rocblas_status_success)) :: rocblas_snrm2_typed type(c_ptr) :: handle - integer(c_int64_t) :: n + integer(c_int) :: n type(c_ptr) :: x - integer(c_int64_t) :: incx - type(c_ptr) :: y - integer(c_int64_t) :: incy - real(c_float),target :: c - complex(c_float_complex),target :: s + integer(c_int) :: incx + real(c_float),target :: myResult ! - rocblas_crot_64_typed = rocblas_crot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + rocblas_snrm2_typed = rocblas_snrm2_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_csrot_64_typed(handle,n,x,incx,y,incy,c,s) + function rocblas_dnrm2_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_csrot_64_typed + integer(kind(rocblas_status_success)) :: rocblas_dnrm2_typed type(c_ptr) :: handle - integer(c_int64_t) :: n + integer(c_int) :: n type(c_ptr) :: x - integer(c_int64_t) :: incx - type(c_ptr) :: y - integer(c_int64_t) :: incy - real(c_float),target :: c - real(c_float),target :: s + integer(c_int) :: incx + real(c_double),target :: myResult ! - rocblas_csrot_64_typed = rocblas_csrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + rocblas_dnrm2_typed = rocblas_dnrm2_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_zrot_64_typed(handle,n,x,incx,y,incy,c,s) + function rocblas_scnrm2_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_zrot_64_typed + integer(kind(rocblas_status_success)) :: rocblas_scnrm2_typed type(c_ptr) :: handle - integer(c_int64_t) :: n + integer(c_int) :: n type(c_ptr) :: x - integer(c_int64_t) :: incx - type(c_ptr) :: y - integer(c_int64_t) :: incy - real(c_double),target :: c - complex(c_double_complex),target :: s + integer(c_int) :: incx + real(c_float),target :: myResult ! - rocblas_zrot_64_typed = rocblas_zrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + rocblas_scnrm2_typed = rocblas_scnrm2_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_zdrot_64_typed(handle,n,x,incx,y,incy,c,s) + function rocblas_dznrm2_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_zdrot_64_typed + integer(kind(rocblas_status_success)) :: rocblas_dznrm2_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + real(c_double),target :: myResult + ! + rocblas_dznrm2_typed = rocblas_dznrm2_(handle,n,x,incx,c_loc(myResult)) + end function + + function rocblas_snrm2_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_snrm2_64_typed type(c_ptr) :: handle integer(c_int64_t) :: n type(c_ptr) :: x integer(c_int64_t) :: incx - type(c_ptr) :: y - integer(c_int64_t) :: incy - real(c_double),target :: c - real(c_double),target :: s + real(c_float),target :: myResult ! - rocblas_zdrot_64_typed = rocblas_zdrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + rocblas_snrm2_64_typed = rocblas_snrm2_64_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_srot_batched_typed(handle,n,x,incx,y,incy,c,s,batch_count) + function rocblas_dnrm2_64_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_srot_batched_typed + integer(kind(rocblas_status_success)) :: rocblas_dnrm2_64_typed type(c_ptr) :: handle - integer(c_int) :: n + integer(c_int64_t) :: n type(c_ptr) :: x - integer(c_int) :: incx - type(c_ptr) :: y - integer(c_int) :: incy - real(c_float),target :: c - real(c_float),target :: s - integer(c_int) :: batch_count + integer(c_int64_t) :: incx + real(c_double),target :: myResult ! - rocblas_srot_batched_typed = rocblas_srot_batched_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s), & - batch_count) + rocblas_dnrm2_64_typed = rocblas_dnrm2_64_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_drot_batched_typed(handle,n,x,incx,y,incy,c,s,batch_count) + function rocblas_scnrm2_64_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_drot_batched_typed + integer(kind(rocblas_status_success)) :: rocblas_scnrm2_64_typed type(c_ptr) :: handle - integer(c_int) :: n + integer(c_int64_t) :: n type(c_ptr) :: x - integer(c_int) :: incx - type(c_ptr) :: y - integer(c_int) :: incy - real(c_double),target :: c - real(c_double),target :: s - integer(c_int) :: batch_count + integer(c_int64_t) :: incx + real(c_float),target :: myResult ! - rocblas_drot_batched_typed = rocblas_drot_batched_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s), & - batch_count) + rocblas_scnrm2_64_typed = rocblas_scnrm2_64_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_crot_batched_typed(handle,n,x,incx,y,incy,c,s,batch_count) + function rocblas_dznrm2_64_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_crot_batched_typed + integer(kind(rocblas_status_success)) :: rocblas_dznrm2_64_typed type(c_ptr) :: handle - integer(c_int) :: n + integer(c_int64_t) :: n type(c_ptr) :: x - integer(c_int) :: incx - type(c_ptr) :: y - integer(c_int) :: incy - real(c_float),target :: c - complex(c_float_complex),target :: s - integer(c_int) :: batch_count + integer(c_int64_t) :: incx + real(c_double),target :: myResult ! - rocblas_crot_batched_typed = rocblas_crot_batched_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s), & - batch_count) + rocblas_dznrm2_64_typed = rocblas_dznrm2_64_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_csrot_batched_typed(handle,n,x,incx,y,incy,c,s,batch_count) + function rocblas_isamax_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_csrot_batched_typed + integer(kind(rocblas_status_success)) :: rocblas_isamax_typed type(c_ptr) :: handle integer(c_int) :: n type(c_ptr) :: x integer(c_int) :: incx - type(c_ptr) :: y - integer(c_int) :: incy - real(c_float),target :: c - real(c_float),target :: s - integer(c_int) :: batch_count + integer(c_int),target :: myResult ! - rocblas_csrot_batched_typed = rocblas_csrot_batched_(handle,n,x,incx,y,incy,c_loc(c), & - c_loc(s),batch_count) + rocblas_isamax_typed = rocblas_isamax_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_zrot_batched_typed(handle,n,x,incx,y,incy,c,s,batch_count) + function rocblas_idamax_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_zrot_batched_typed + integer(kind(rocblas_status_success)) :: rocblas_idamax_typed type(c_ptr) :: handle integer(c_int) :: n type(c_ptr) :: x integer(c_int) :: incx - type(c_ptr) :: y - integer(c_int) :: incy - real(c_double),target :: c - complex(c_double_complex),target :: s - integer(c_int) :: batch_count + integer(c_int),target :: myResult ! - rocblas_zrot_batched_typed = rocblas_zrot_batched_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s), & - batch_count) + rocblas_idamax_typed = rocblas_idamax_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_zdrot_batched_typed(handle,n,x,incx,y,incy,c,s,batch_count) + function rocblas_icamax_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_zdrot_batched_typed + integer(kind(rocblas_status_success)) :: rocblas_icamax_typed type(c_ptr) :: handle integer(c_int) :: n type(c_ptr) :: x integer(c_int) :: incx - type(c_ptr) :: y - integer(c_int) :: incy - real(c_double),target :: c - real(c_double),target :: s - integer(c_int) :: batch_count + integer(c_int),target :: myResult ! - rocblas_zdrot_batched_typed = rocblas_zdrot_batched_(handle,n,x,incx,y,incy,c_loc(c), & - c_loc(s),batch_count) + rocblas_icamax_typed = rocblas_icamax_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_srot_batched_64_typed(handle,n,x,incx,y,incy,c,s,batch_count) + function rocblas_izamax_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_srot_batched_64_typed + integer(kind(rocblas_status_success)) :: rocblas_izamax_typed type(c_ptr) :: handle - integer(c_int64_t) :: n + integer(c_int) :: n type(c_ptr) :: x - integer(c_int64_t) :: incx - type(c_ptr) :: y - integer(c_int64_t) :: incy - real(c_float),target :: c - real(c_float),target :: s - integer(c_int64_t) :: batch_count + integer(c_int) :: incx + integer(c_int),target :: myResult ! - rocblas_srot_batched_64_typed = rocblas_srot_batched_64_(handle,n,x,incx,y,incy,c_loc(c), & - c_loc(s),batch_count) + rocblas_izamax_typed = rocblas_izamax_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_drot_batched_64_typed(handle,n,x,incx,y,incy,c,s,batch_count) + function rocblas_isamax_64_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_drot_batched_64_typed + integer(kind(rocblas_status_success)) :: rocblas_isamax_64_typed type(c_ptr) :: handle integer(c_int64_t) :: n type(c_ptr) :: x integer(c_int64_t) :: incx - type(c_ptr) :: y - integer(c_int64_t) :: incy - real(c_double),target :: c - real(c_double),target :: s - integer(c_int64_t) :: batch_count + integer(c_int64_t),target :: myResult ! - rocblas_drot_batched_64_typed = rocblas_drot_batched_64_(handle,n,x,incx,y,incy,c_loc(c), & - c_loc(s),batch_count) + rocblas_isamax_64_typed = rocblas_isamax_64_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_crot_batched_64_typed(handle,n,x,incx,y,incy,c,s,batch_count) + function rocblas_idamax_64_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_crot_batched_64_typed + integer(kind(rocblas_status_success)) :: rocblas_idamax_64_typed type(c_ptr) :: handle integer(c_int64_t) :: n type(c_ptr) :: x integer(c_int64_t) :: incx - type(c_ptr) :: y - integer(c_int64_t) :: incy - real(c_float),target :: c - complex(c_float_complex),target :: s - integer(c_int64_t) :: batch_count + integer(c_int64_t),target :: myResult ! - rocblas_crot_batched_64_typed = rocblas_crot_batched_64_(handle,n,x,incx,y,incy,c_loc(c), & - c_loc(s),batch_count) + rocblas_idamax_64_typed = rocblas_idamax_64_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_csrot_batched_64_typed(handle,n,x,incx,y,incy,c,s,batch_count) + function rocblas_icamax_64_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_csrot_batched_64_typed + integer(kind(rocblas_status_success)) :: rocblas_icamax_64_typed type(c_ptr) :: handle integer(c_int64_t) :: n type(c_ptr) :: x integer(c_int64_t) :: incx - type(c_ptr) :: y - integer(c_int64_t) :: incy - real(c_float),target :: c - real(c_float),target :: s - integer(c_int64_t) :: batch_count + integer(c_int64_t),target :: myResult ! - rocblas_csrot_batched_64_typed = rocblas_csrot_batched_64_(handle,n,x,incx,y,incy,c_loc(c), & - c_loc(s),batch_count) + rocblas_icamax_64_typed = rocblas_icamax_64_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_zrot_batched_64_typed(handle,n,x,incx,y,incy,c,s,batch_count) + function rocblas_izamax_64_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_zrot_batched_64_typed + integer(kind(rocblas_status_success)) :: rocblas_izamax_64_typed type(c_ptr) :: handle integer(c_int64_t) :: n type(c_ptr) :: x integer(c_int64_t) :: incx - type(c_ptr) :: y - integer(c_int64_t) :: incy - real(c_double),target :: c - complex(c_double_complex),target :: s - integer(c_int64_t) :: batch_count + integer(c_int64_t),target :: myResult ! - rocblas_zrot_batched_64_typed = rocblas_zrot_batched_64_(handle,n,x,incx,y,incy,c_loc(c), & - c_loc(s),batch_count) + rocblas_izamax_64_typed = rocblas_izamax_64_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_zdrot_batched_64_typed(handle,n,x,incx,y,incy,c,s,batch_count) + function rocblas_isamin_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_zdrot_batched_64_typed + integer(kind(rocblas_status_success)) :: rocblas_isamin_typed type(c_ptr) :: handle - integer(c_int64_t) :: n + integer(c_int) :: n type(c_ptr) :: x - integer(c_int64_t) :: incx - type(c_ptr) :: y - integer(c_int64_t) :: incy - real(c_double),target :: c - real(c_double),target :: s - integer(c_int64_t) :: batch_count + integer(c_int) :: incx + integer(c_int),target :: myResult ! - rocblas_zdrot_batched_64_typed = rocblas_zdrot_batched_64_(handle,n,x,incx,y,incy,c_loc(c), & - c_loc(s),batch_count) + rocblas_isamin_typed = rocblas_isamin_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_srot_strided_batched_typed(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & - batch_count) + function rocblas_idamin_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_srot_strided_batched_typed + integer(kind(rocblas_status_success)) :: rocblas_idamin_typed type(c_ptr) :: handle integer(c_int) :: n type(c_ptr) :: x integer(c_int) :: incx - integer(c_int64_t) :: stride_x - type(c_ptr) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stride_y - real(c_float),target :: c - real(c_float),target :: s - integer(c_int) :: batch_count + integer(c_int),target :: myResult ! - rocblas_srot_strided_batched_typed = rocblas_srot_strided_batched_(handle,n,x,incx,stride_x, & - y,incy,stride_y,c_loc(c),c_loc(s),batch_count) + rocblas_idamin_typed = rocblas_idamin_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_drot_strided_batched_typed(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & - batch_count) + function rocblas_icamin_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_drot_strided_batched_typed + integer(kind(rocblas_status_success)) :: rocblas_icamin_typed type(c_ptr) :: handle integer(c_int) :: n type(c_ptr) :: x integer(c_int) :: incx - integer(c_int64_t) :: stride_x - type(c_ptr) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stride_y - real(c_double),target :: c - real(c_double),target :: s - integer(c_int) :: batch_count + integer(c_int),target :: myResult ! - rocblas_drot_strided_batched_typed = rocblas_drot_strided_batched_(handle,n,x,incx,stride_x, & - y,incy,stride_y,c_loc(c),c_loc(s),batch_count) + rocblas_icamin_typed = rocblas_icamin_(handle,n,x,incx,c_loc(myResult)) end function - function rocblas_crot_strided_batched_typed(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & - batch_count) + function rocblas_izamin_typed(handle,n,x,incx,myResult) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_crot_strided_batched_typed + integer(kind(rocblas_status_success)) :: rocblas_izamin_typed type(c_ptr) :: handle integer(c_int) :: n type(c_ptr) :: x integer(c_int) :: incx - integer(c_int64_t) :: stride_x - type(c_ptr) :: y - integer(c_int) :: incy - integer(c_int64_t) :: stride_y - real(c_float),target :: c - complex(c_float_complex),target :: s - integer(c_int) :: batch_count + integer(c_int),target :: myResult ! - rocblas_crot_strided_batched_typed = rocblas_crot_strided_batched_(handle,n,x,incx,stride_x, & - y,incy,stride_y,c_loc(c),c_loc(s),batch_count) + rocblas_izamin_typed = rocblas_izamin_(handle,n,x,incx,c_loc(myResult)) + end function + + function rocblas_isamin_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_isamin_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + rocblas_isamin_64_typed = rocblas_isamin_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function rocblas_idamin_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_idamin_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + rocblas_idamin_64_typed = rocblas_idamin_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function rocblas_icamin_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_icamin_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + rocblas_icamin_64_typed = rocblas_icamin_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function rocblas_izamin_64_typed(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_izamin_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + integer(c_int64_t),target :: myResult + ! + rocblas_izamin_64_typed = rocblas_izamin_64_(handle,n,x,incx,c_loc(myResult)) + end function + + function rocblas_srot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_srot_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + rocblas_srot_typed = rocblas_srot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function rocblas_drot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_drot_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + rocblas_drot_typed = rocblas_drot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function rocblas_crot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_crot_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + rocblas_crot_typed = rocblas_crot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function rocblas_csrot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_csrot_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + rocblas_csrot_typed = rocblas_csrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function rocblas_zrot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zrot_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + rocblas_zrot_typed = rocblas_zrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function rocblas_zdrot_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdrot_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + rocblas_zdrot_typed = rocblas_zdrot_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function rocblas_srot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_srot_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + rocblas_srot_64_typed = rocblas_srot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function rocblas_drot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_drot_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + rocblas_drot_64_typed = rocblas_drot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function rocblas_crot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_crot_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + rocblas_crot_64_typed = rocblas_crot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function rocblas_csrot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_csrot_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s + ! + rocblas_csrot_64_typed = rocblas_csrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function rocblas_zrot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zrot_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + rocblas_zrot_64_typed = rocblas_zrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function rocblas_zdrot_64_typed(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdrot_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + rocblas_zdrot_64_typed = rocblas_zdrot_64_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s)) + end function + + function rocblas_srot_batched_typed(handle,n,x,incx,y,incy,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_srot_batched_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s + integer(c_int) :: batch_count + ! + rocblas_srot_batched_typed = rocblas_srot_batched_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s), & + batch_count) + end function + + function rocblas_drot_batched_typed(handle,n,x,incx,y,incy,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_drot_batched_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + integer(c_int) :: batch_count + ! + rocblas_drot_batched_typed = rocblas_drot_batched_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s), & + batch_count) + end function + + function rocblas_crot_batched_typed(handle,n,x,incx,y,incy,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_crot_batched_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + integer(c_int) :: batch_count + ! + rocblas_crot_batched_typed = rocblas_crot_batched_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s), & + batch_count) + end function + + function rocblas_csrot_batched_typed(handle,n,x,incx,y,incy,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_csrot_batched_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_float),target :: c + real(c_float),target :: s + integer(c_int) :: batch_count + ! + rocblas_csrot_batched_typed = rocblas_csrot_batched_(handle,n,x,incx,y,incy,c_loc(c), & + c_loc(s),batch_count) + end function + + function rocblas_zrot_batched_typed(handle,n,x,incx,y,incy,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zrot_batched_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_double),target :: c + complex(c_double_complex),target :: s + integer(c_int) :: batch_count + ! + rocblas_zrot_batched_typed = rocblas_zrot_batched_(handle,n,x,incx,y,incy,c_loc(c),c_loc(s), & + batch_count) + end function + + function rocblas_zdrot_batched_typed(handle,n,x,incx,y,incy,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdrot_batched_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + type(c_ptr) :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + integer(c_int) :: batch_count + ! + rocblas_zdrot_batched_typed = rocblas_zdrot_batched_(handle,n,x,incx,y,incy,c_loc(c), & + c_loc(s),batch_count) + end function + + function rocblas_srot_batched_64_typed(handle,n,x,incx,y,incy,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_srot_batched_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s + integer(c_int64_t) :: batch_count + ! + rocblas_srot_batched_64_typed = rocblas_srot_batched_64_(handle,n,x,incx,y,incy,c_loc(c), & + c_loc(s),batch_count) + end function + + function rocblas_drot_batched_64_typed(handle,n,x,incx,y,incy,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_drot_batched_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + real(c_double),target :: s + integer(c_int64_t) :: batch_count + ! + rocblas_drot_batched_64_typed = rocblas_drot_batched_64_(handle,n,x,incx,y,incy,c_loc(c), & + c_loc(s),batch_count) + end function + + function rocblas_crot_batched_64_typed(handle,n,x,incx,y,incy,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_crot_batched_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + complex(c_float_complex),target :: s + integer(c_int64_t) :: batch_count + ! + rocblas_crot_batched_64_typed = rocblas_crot_batched_64_(handle,n,x,incx,y,incy,c_loc(c), & + c_loc(s),batch_count) + end function + + function rocblas_csrot_batched_64_typed(handle,n,x,incx,y,incy,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_csrot_batched_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_float),target :: c + real(c_float),target :: s + integer(c_int64_t) :: batch_count + ! + rocblas_csrot_batched_64_typed = rocblas_csrot_batched_64_(handle,n,x,incx,y,incy,c_loc(c), & + c_loc(s),batch_count) + end function + + function rocblas_zrot_batched_64_typed(handle,n,x,incx,y,incy,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zrot_batched_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + complex(c_double_complex),target :: s + integer(c_int64_t) :: batch_count + ! + rocblas_zrot_batched_64_typed = rocblas_zrot_batched_64_(handle,n,x,incx,y,incy,c_loc(c), & + c_loc(s),batch_count) + end function + + function rocblas_zdrot_batched_64_typed(handle,n,x,incx,y,incy,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdrot_batched_64_typed + type(c_ptr) :: handle + integer(c_int64_t) :: n + type(c_ptr) :: x + integer(c_int64_t) :: incx + type(c_ptr) :: y + integer(c_int64_t) :: incy + real(c_double),target :: c + real(c_double),target :: s + integer(c_int64_t) :: batch_count + ! + rocblas_zdrot_batched_64_typed = rocblas_zdrot_batched_64_(handle,n,x,incx,y,incy,c_loc(c), & + c_loc(s),batch_count) + end function + + function rocblas_srot_strided_batched_typed(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & + batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_srot_strided_batched_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + real(c_float),target :: c + real(c_float),target :: s + integer(c_int) :: batch_count + ! + rocblas_srot_strided_batched_typed = rocblas_srot_strided_batched_(handle,n,x,incx,stride_x, & + y,incy,stride_y,c_loc(c),c_loc(s),batch_count) + end function + + function rocblas_drot_strided_batched_typed(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & + batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_drot_strided_batched_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + real(c_double),target :: c + real(c_double),target :: s + integer(c_int) :: batch_count + ! + rocblas_drot_strided_batched_typed = rocblas_drot_strided_batched_(handle,n,x,incx,stride_x, & + y,incy,stride_y,c_loc(c),c_loc(s),batch_count) + end function + + function rocblas_crot_strided_batched_typed(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & + batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_crot_strided_batched_typed + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + type(c_ptr) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + real(c_float),target :: c + complex(c_float_complex),target :: s + integer(c_int) :: batch_count + ! + rocblas_crot_strided_batched_typed = rocblas_crot_strided_batched_(handle,n,x,incx,stride_x, & + y,incy,stride_y,c_loc(c),c_loc(s),batch_count) end function function rocblas_csrot_strided_batched_typed(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & @@ -41437,6 +42279,180 @@ function rocblas_zdrot_strided_batched_64_typed(handle,n,x,incx,stride_x,y,incy, stride_x,y,incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_srotg_typed(handle,a,b,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_srotg_typed + type(c_ptr) :: handle + real(c_float),target :: a + real(c_float),target :: b + real(c_float),target :: c + real(c_float),target :: s + ! + rocblas_srotg_typed = rocblas_srotg_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function rocblas_drotg_typed(handle,a,b,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_drotg_typed + type(c_ptr) :: handle + real(c_double),target :: a + real(c_double),target :: b + real(c_double),target :: c + real(c_double),target :: s + ! + rocblas_drotg_typed = rocblas_drotg_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function rocblas_crotg_typed(handle,a,b,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_crotg_typed + type(c_ptr) :: handle + complex(c_float_complex),target :: a + complex(c_float_complex),target :: b + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + rocblas_crotg_typed = rocblas_crotg_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function rocblas_zrotg_typed(handle,a,b,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zrotg_typed + type(c_ptr) :: handle + complex(c_double_complex),target :: a + complex(c_double_complex),target :: b + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + rocblas_zrotg_typed = rocblas_zrotg_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function rocblas_srotg_64_typed(handle,a,b,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_srotg_64_typed + type(c_ptr) :: handle + real(c_float),target :: a + real(c_float),target :: b + real(c_float),target :: c + real(c_float),target :: s + ! + rocblas_srotg_64_typed = rocblas_srotg_64_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function rocblas_drotg_64_typed(handle,a,b,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_drotg_64_typed + type(c_ptr) :: handle + real(c_double),target :: a + real(c_double),target :: b + real(c_double),target :: c + real(c_double),target :: s + ! + rocblas_drotg_64_typed = rocblas_drotg_64_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function rocblas_crotg_64_typed(handle,a,b,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_crotg_64_typed + type(c_ptr) :: handle + complex(c_float_complex),target :: a + complex(c_float_complex),target :: b + real(c_float),target :: c + complex(c_float_complex),target :: s + ! + rocblas_crotg_64_typed = rocblas_crotg_64_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function rocblas_zrotg_64_typed(handle,a,b,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zrotg_64_typed + type(c_ptr) :: handle + complex(c_double_complex),target :: a + complex(c_double_complex),target :: b + real(c_double),target :: c + complex(c_double_complex),target :: s + ! + rocblas_zrotg_64_typed = rocblas_zrotg_64_(handle,c_loc(a),c_loc(b),c_loc(c),c_loc(s)) + end function + + function rocblas_srotmg_typed(handle,d1,d2,x1,y1,param) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_srotmg_typed + type(c_ptr) :: handle + real(c_float),target :: d1 + real(c_float),target :: d2 + real(c_float),target :: x1 + real(c_float),target :: y1 + type(c_ptr) :: param + ! + rocblas_srotmg_typed = rocblas_srotmg_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1),param) + end function + + function rocblas_drotmg_typed(handle,d1,d2,x1,y1,param) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_drotmg_typed + type(c_ptr) :: handle + real(c_double),target :: d1 + real(c_double),target :: d2 + real(c_double),target :: x1 + real(c_double),target :: y1 + type(c_ptr) :: param + ! + rocblas_drotmg_typed = rocblas_drotmg_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1),param) + end function + + function rocblas_srotmg_64_typed(handle,d1,d2,x1,y1,param) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_srotmg_64_typed + type(c_ptr) :: handle + real(c_float),target :: d1 + real(c_float),target :: d2 + real(c_float),target :: x1 + real(c_float),target :: y1 + type(c_ptr) :: param + ! + rocblas_srotmg_64_typed = rocblas_srotmg_64_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1), & + param) + end function + + function rocblas_drotmg_64_typed(handle,d1,d2,x1,y1,param) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_drotmg_64_typed + type(c_ptr) :: handle + real(c_double),target :: d1 + real(c_double),target :: d2 + real(c_double),target :: x1 + real(c_double),target :: y1 + type(c_ptr) :: param + ! + rocblas_drotmg_64_typed = rocblas_drotmg_64_(handle,c_loc(d1),c_loc(d2),c_loc(x1),c_loc(y1), & + param) + end function + function rocblas_sgbmv_typed(handle,trans,m,n,kl,ku,alpha,A,lda,x,incx,beta,y,incy) use iso_c_binding use hipfort_rocblas_enums @@ -56320,9 +57336,27 @@ function rocblas_sdot_assumed_rank(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx real(c_float),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + real(c_float),target :: myResult ! - rocblas_sdot_assumed_rank = rocblas_sdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_sdot_assumed_rank = rocblas_sdot_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function rocblas_sdot_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_sdot_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + rocblas_sdot_assumed_rank_devptr = rocblas_sdot_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #else @@ -56337,9 +57371,25 @@ function rocblas_sdot_rank_0(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx real(c_float),target :: y integer(c_int) :: incy - type(c_ptr) :: myResult + real(c_float),target :: myResult + ! + rocblas_sdot_rank_0 = rocblas_sdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function rocblas_sdot_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_sdot_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - rocblas_sdot_rank_0 = rocblas_sdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_sdot_rank_0_devptr = rocblas_sdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function function rocblas_sdot_rank_1(handle,n,x,incx,y,incy,myResult) @@ -56353,9 +57403,25 @@ function rocblas_sdot_rank_1(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx real(c_float),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + real(c_float),target :: myResult ! - rocblas_sdot_rank_1 = rocblas_sdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_sdot_rank_1 = rocblas_sdot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function rocblas_sdot_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_sdot_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + rocblas_sdot_rank_1_devptr = rocblas_sdot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif @@ -56371,9 +57437,27 @@ function rocblas_ddot_assumed_rank(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx real(c_double),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + real(c_double),target :: myResult ! - rocblas_ddot_assumed_rank = rocblas_ddot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_ddot_assumed_rank = rocblas_ddot_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function rocblas_ddot_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_ddot_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + rocblas_ddot_assumed_rank_devptr = rocblas_ddot_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #else @@ -56388,9 +57472,25 @@ function rocblas_ddot_rank_0(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx real(c_double),target :: y integer(c_int) :: incy - type(c_ptr) :: myResult + real(c_double),target :: myResult ! - rocblas_ddot_rank_0 = rocblas_ddot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_ddot_rank_0 = rocblas_ddot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function rocblas_ddot_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_ddot_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + rocblas_ddot_rank_0_devptr = rocblas_ddot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function function rocblas_ddot_rank_1(handle,n,x,incx,y,incy,myResult) @@ -56404,9 +57504,25 @@ function rocblas_ddot_rank_1(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx real(c_double),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + real(c_double),target :: myResult ! - rocblas_ddot_rank_1 = rocblas_ddot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_ddot_rank_1 = rocblas_ddot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function rocblas_ddot_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_ddot_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + rocblas_ddot_rank_1_devptr = rocblas_ddot_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif @@ -56422,9 +57538,27 @@ function rocblas_cdotu_assumed_rank(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_float_complex),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_float_complex),target :: myResult ! - rocblas_cdotu_assumed_rank = rocblas_cdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_cdotu_assumed_rank = rocblas_cdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function rocblas_cdotu_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_cdotu_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + rocblas_cdotu_assumed_rank_devptr = rocblas_cdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #else @@ -56439,9 +57573,25 @@ function rocblas_cdotu_rank_0(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_float_complex),target :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_float_complex),target :: myResult ! - rocblas_cdotu_rank_0 = rocblas_cdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_cdotu_rank_0 = rocblas_cdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function rocblas_cdotu_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_cdotu_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + rocblas_cdotu_rank_0_devptr = rocblas_cdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function function rocblas_cdotu_rank_1(handle,n,x,incx,y,incy,myResult) @@ -56455,9 +57605,25 @@ function rocblas_cdotu_rank_1(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_float_complex),target :: myResult + ! + rocblas_cdotu_rank_1 = rocblas_cdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function rocblas_cdotu_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_cdotu_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - rocblas_cdotu_rank_1 = rocblas_cdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_cdotu_rank_1_devptr = rocblas_cdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif @@ -56473,9 +57639,27 @@ function rocblas_zdotu_assumed_rank(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_double_complex),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_double_complex),target :: myResult ! - rocblas_zdotu_assumed_rank = rocblas_zdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_zdotu_assumed_rank = rocblas_zdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function rocblas_zdotu_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdotu_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + rocblas_zdotu_assumed_rank_devptr = rocblas_zdotu_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #else @@ -56490,9 +57674,25 @@ function rocblas_zdotu_rank_0(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_double_complex),target :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_double_complex),target :: myResult ! - rocblas_zdotu_rank_0 = rocblas_zdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_zdotu_rank_0 = rocblas_zdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function rocblas_zdotu_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdotu_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + rocblas_zdotu_rank_0_devptr = rocblas_zdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function function rocblas_zdotu_rank_1(handle,n,x,incx,y,incy,myResult) @@ -56506,9 +57706,25 @@ function rocblas_zdotu_rank_1(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_double_complex),target :: myResult + ! + rocblas_zdotu_rank_1 = rocblas_zdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function rocblas_zdotu_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdotu_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - rocblas_zdotu_rank_1 = rocblas_zdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_zdotu_rank_1_devptr = rocblas_zdotu_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif @@ -56524,9 +57740,27 @@ function rocblas_cdotc_assumed_rank(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_float_complex),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_float_complex),target :: myResult + ! + rocblas_cdotc_assumed_rank = rocblas_cdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function rocblas_cdotc_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_cdotc_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - rocblas_cdotc_assumed_rank = rocblas_cdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_cdotc_assumed_rank_devptr = rocblas_cdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #else @@ -56541,9 +57775,25 @@ function rocblas_cdotc_rank_0(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_float_complex),target :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_float_complex),target :: myResult ! - rocblas_cdotc_rank_0 = rocblas_cdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_cdotc_rank_0 = rocblas_cdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function rocblas_cdotc_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_cdotc_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + rocblas_cdotc_rank_0_devptr = rocblas_cdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function function rocblas_cdotc_rank_1(handle,n,x,incx,y,incy,myResult) @@ -56557,9 +57807,25 @@ function rocblas_cdotc_rank_1(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_float_complex),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_float_complex),target :: myResult ! - rocblas_cdotc_rank_1 = rocblas_cdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_cdotc_rank_1 = rocblas_cdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function rocblas_cdotc_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_cdotc_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + rocblas_cdotc_rank_1_devptr = rocblas_cdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif @@ -56575,9 +57841,27 @@ function rocblas_zdotc_assumed_rank(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_double_complex),target,contiguous,dimension(..) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_double_complex),target :: myResult ! - rocblas_zdotc_assumed_rank = rocblas_zdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_zdotc_assumed_rank = rocblas_zdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + c_loc(myResult)) + end function + + function rocblas_zdotc_assumed_rank_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdotc_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + rocblas_zdotc_assumed_rank_devptr = rocblas_zdotc_(handle,n,c_loc(x),incx,c_loc(y),incy, & + myResult) end function #else @@ -56592,9 +57876,25 @@ function rocblas_zdotc_rank_0(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_double_complex),target :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_double_complex),target :: myResult + ! + rocblas_zdotc_rank_0 = rocblas_zdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function rocblas_zdotc_rank_0_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdotc_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult ! - rocblas_zdotc_rank_0 = rocblas_zdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_zdotc_rank_0_devptr = rocblas_zdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function function rocblas_zdotc_rank_1(handle,n,x,incx,y,incy,myResult) @@ -56608,9 +57908,25 @@ function rocblas_zdotc_rank_1(handle,n,x,incx,y,incy,myResult) integer(c_int) :: incx complex(c_double_complex),target,dimension(:) :: y integer(c_int) :: incy - type(c_ptr) :: myResult + complex(c_double_complex),target :: myResult ! - rocblas_zdotc_rank_1 = rocblas_zdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) + rocblas_zdotc_rank_1 = rocblas_zdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(myResult)) + end function + + function rocblas_zdotc_rank_1_devptr(handle,n,x,incx,y,incy,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdotc_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: myResult + ! + rocblas_zdotc_rank_1_devptr = rocblas_zdotc_(handle,n,c_loc(x),incx,c_loc(y),incy,myResult) end function #endif @@ -57836,9 +59152,23 @@ function rocblas_scasum_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult ! - rocblas_scasum_assumed_rank = rocblas_scasum_(handle,n,c_loc(x),incx,myResult) + rocblas_scasum_assumed_rank = rocblas_scasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_scasum_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_scasum_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + rocblas_scasum_assumed_rank_devptr = rocblas_scasum_(handle,n,c_loc(x),incx,myResult) end function #else @@ -57851,9 +59181,23 @@ function rocblas_scasum_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult + ! + rocblas_scasum_rank_0 = rocblas_scasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_scasum_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_scasum_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - rocblas_scasum_rank_0 = rocblas_scasum_(handle,n,c_loc(x),incx,myResult) + rocblas_scasum_rank_0_devptr = rocblas_scasum_(handle,n,c_loc(x),incx,myResult) end function function rocblas_scasum_rank_1(handle,n,x,incx,myResult) @@ -57865,9 +59209,23 @@ function rocblas_scasum_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult + ! + rocblas_scasum_rank_1 = rocblas_scasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_scasum_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_scasum_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - rocblas_scasum_rank_1 = rocblas_scasum_(handle,n,c_loc(x),incx,myResult) + rocblas_scasum_rank_1_devptr = rocblas_scasum_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -57881,9 +59239,23 @@ function rocblas_dzasum_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult ! - rocblas_dzasum_assumed_rank = rocblas_dzasum_(handle,n,c_loc(x),incx,myResult) + rocblas_dzasum_assumed_rank = rocblas_dzasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_dzasum_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_dzasum_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + rocblas_dzasum_assumed_rank_devptr = rocblas_dzasum_(handle,n,c_loc(x),incx,myResult) end function #else @@ -57896,9 +59268,23 @@ function rocblas_dzasum_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult ! - rocblas_dzasum_rank_0 = rocblas_dzasum_(handle,n,c_loc(x),incx,myResult) + rocblas_dzasum_rank_0 = rocblas_dzasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_dzasum_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_dzasum_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + rocblas_dzasum_rank_0_devptr = rocblas_dzasum_(handle,n,c_loc(x),incx,myResult) end function function rocblas_dzasum_rank_1(handle,n,x,incx,myResult) @@ -57910,9 +59296,23 @@ function rocblas_dzasum_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult + ! + rocblas_dzasum_rank_1 = rocblas_dzasum_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_dzasum_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_dzasum_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - rocblas_dzasum_rank_1 = rocblas_dzasum_(handle,n,c_loc(x),incx,myResult) + rocblas_dzasum_rank_1_devptr = rocblas_dzasum_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -58144,9 +59544,23 @@ function rocblas_scnrm2_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult ! - rocblas_scnrm2_assumed_rank = rocblas_scnrm2_(handle,n,c_loc(x),incx,myResult) + rocblas_scnrm2_assumed_rank = rocblas_scnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_scnrm2_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_scnrm2_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + rocblas_scnrm2_assumed_rank_devptr = rocblas_scnrm2_(handle,n,c_loc(x),incx,myResult) end function #else @@ -58159,9 +59573,23 @@ function rocblas_scnrm2_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult ! - rocblas_scnrm2_rank_0 = rocblas_scnrm2_(handle,n,c_loc(x),incx,myResult) + rocblas_scnrm2_rank_0 = rocblas_scnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_scnrm2_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_scnrm2_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + rocblas_scnrm2_rank_0_devptr = rocblas_scnrm2_(handle,n,c_loc(x),incx,myResult) end function function rocblas_scnrm2_rank_1(handle,n,x,incx,myResult) @@ -58173,9 +59601,23 @@ function rocblas_scnrm2_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_float),target :: myResult + ! + rocblas_scnrm2_rank_1 = rocblas_scnrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_scnrm2_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_scnrm2_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - rocblas_scnrm2_rank_1 = rocblas_scnrm2_(handle,n,c_loc(x),incx,myResult) + rocblas_scnrm2_rank_1_devptr = rocblas_scnrm2_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -58189,9 +59631,23 @@ function rocblas_dznrm2_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult ! - rocblas_dznrm2_assumed_rank = rocblas_dznrm2_(handle,n,c_loc(x),incx,myResult) + rocblas_dznrm2_assumed_rank = rocblas_dznrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_dznrm2_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_dznrm2_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + rocblas_dznrm2_assumed_rank_devptr = rocblas_dznrm2_(handle,n,c_loc(x),incx,myResult) end function #else @@ -58204,9 +59660,23 @@ function rocblas_dznrm2_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult + ! + rocblas_dznrm2_rank_0 = rocblas_dznrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_dznrm2_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_dznrm2_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - rocblas_dznrm2_rank_0 = rocblas_dznrm2_(handle,n,c_loc(x),incx,myResult) + rocblas_dznrm2_rank_0_devptr = rocblas_dznrm2_(handle,n,c_loc(x),incx,myResult) end function function rocblas_dznrm2_rank_1(handle,n,x,incx,myResult) @@ -58218,9 +59688,23 @@ function rocblas_dznrm2_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + real(c_double),target :: myResult + ! + rocblas_dznrm2_rank_1 = rocblas_dznrm2_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_dznrm2_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_dznrm2_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - rocblas_dznrm2_rank_1 = rocblas_dznrm2_(handle,n,c_loc(x),incx,myResult) + rocblas_dznrm2_rank_1_devptr = rocblas_dznrm2_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -58452,9 +59936,23 @@ function rocblas_icamax_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - rocblas_icamax_assumed_rank = rocblas_icamax_(handle,n,c_loc(x),incx,myResult) + rocblas_icamax_assumed_rank = rocblas_icamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_icamax_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_icamax_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + rocblas_icamax_assumed_rank_devptr = rocblas_icamax_(handle,n,c_loc(x),incx,myResult) end function #else @@ -58467,9 +59965,23 @@ function rocblas_icamax_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + rocblas_icamax_rank_0 = rocblas_icamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_icamax_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_icamax_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - rocblas_icamax_rank_0 = rocblas_icamax_(handle,n,c_loc(x),incx,myResult) + rocblas_icamax_rank_0_devptr = rocblas_icamax_(handle,n,c_loc(x),incx,myResult) end function function rocblas_icamax_rank_1(handle,n,x,incx,myResult) @@ -58481,9 +59993,23 @@ function rocblas_icamax_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + rocblas_icamax_rank_1 = rocblas_icamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_icamax_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_icamax_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - rocblas_icamax_rank_1 = rocblas_icamax_(handle,n,c_loc(x),incx,myResult) + rocblas_icamax_rank_1_devptr = rocblas_icamax_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -58497,9 +60023,23 @@ function rocblas_izamax_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - rocblas_izamax_assumed_rank = rocblas_izamax_(handle,n,c_loc(x),incx,myResult) + rocblas_izamax_assumed_rank = rocblas_izamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_izamax_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_izamax_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + rocblas_izamax_assumed_rank_devptr = rocblas_izamax_(handle,n,c_loc(x),incx,myResult) end function #else @@ -58512,9 +60052,23 @@ function rocblas_izamax_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + rocblas_izamax_rank_0 = rocblas_izamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_izamax_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_izamax_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - rocblas_izamax_rank_0 = rocblas_izamax_(handle,n,c_loc(x),incx,myResult) + rocblas_izamax_rank_0_devptr = rocblas_izamax_(handle,n,c_loc(x),incx,myResult) end function function rocblas_izamax_rank_1(handle,n,x,incx,myResult) @@ -58526,9 +60080,23 @@ function rocblas_izamax_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + rocblas_izamax_rank_1 = rocblas_izamax_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_izamax_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_izamax_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - rocblas_izamax_rank_1 = rocblas_izamax_(handle,n,c_loc(x),incx,myResult) + rocblas_izamax_rank_1_devptr = rocblas_izamax_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -58762,9 +60330,23 @@ function rocblas_icamin_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - rocblas_icamin_assumed_rank = rocblas_icamin_(handle,n,c_loc(x),incx,myResult) + rocblas_icamin_assumed_rank = rocblas_icamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_icamin_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_icamin_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + rocblas_icamin_assumed_rank_devptr = rocblas_icamin_(handle,n,c_loc(x),incx,myResult) end function #else @@ -58777,9 +60359,23 @@ function rocblas_icamin_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - rocblas_icamin_rank_0 = rocblas_icamin_(handle,n,c_loc(x),incx,myResult) + rocblas_icamin_rank_0 = rocblas_icamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_icamin_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_icamin_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + rocblas_icamin_rank_0_devptr = rocblas_icamin_(handle,n,c_loc(x),incx,myResult) end function function rocblas_icamin_rank_1(handle,n,x,incx,myResult) @@ -58791,9 +60387,23 @@ function rocblas_icamin_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_float_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + rocblas_icamin_rank_1 = rocblas_icamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_icamin_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_icamin_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - rocblas_icamin_rank_1 = rocblas_icamin_(handle,n,c_loc(x),incx,myResult) + rocblas_icamin_rank_1_devptr = rocblas_icamin_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -58807,9 +60417,23 @@ function rocblas_izamin_assumed_rank(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target,contiguous,dimension(..) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult ! - rocblas_izamin_assumed_rank = rocblas_izamin_(handle,n,c_loc(x),incx,myResult) + rocblas_izamin_assumed_rank = rocblas_izamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_izamin_assumed_rank_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_izamin_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult + ! + rocblas_izamin_assumed_rank_devptr = rocblas_izamin_(handle,n,c_loc(x),incx,myResult) end function #else @@ -58822,9 +60446,23 @@ function rocblas_izamin_rank_0(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + rocblas_izamin_rank_0 = rocblas_izamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_izamin_rank_0_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_izamin_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - rocblas_izamin_rank_0 = rocblas_izamin_(handle,n,c_loc(x),incx,myResult) + rocblas_izamin_rank_0_devptr = rocblas_izamin_(handle,n,c_loc(x),incx,myResult) end function function rocblas_izamin_rank_1(handle,n,x,incx,myResult) @@ -58836,9 +60474,23 @@ function rocblas_izamin_rank_1(handle,n,x,incx,myResult) integer(c_int) :: n complex(c_double_complex),target,dimension(:) :: x integer(c_int) :: incx - type(c_ptr) :: myResult + integer(c_int),target :: myResult + ! + rocblas_izamin_rank_1 = rocblas_izamin_(handle,n,c_loc(x),incx,c_loc(myResult)) + end function + + function rocblas_izamin_rank_1_devptr(handle,n,x,incx,myResult) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_izamin_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: myResult ! - rocblas_izamin_rank_1 = rocblas_izamin_(handle,n,c_loc(x),incx,myResult) + rocblas_izamin_rank_1_devptr = rocblas_izamin_(handle,n,c_loc(x),incx,myResult) end function #endif @@ -59081,6 +60733,23 @@ function rocblas_srot_assumed_rank(handle,n,x,incx,y,incy,c,s) c_loc(s)) end function + function rocblas_srot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_srot_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + real(c_float),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_srot_assumed_rank_devptr = rocblas_srot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + #else function rocblas_srot_rank_0(handle,n,x,incx,y,incy,c,s) use iso_c_binding @@ -59099,6 +60768,23 @@ function rocblas_srot_rank_0(handle,n,x,incx,y,incy,c,s) rocblas_srot_rank_0 = rocblas_srot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function + function rocblas_srot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_srot_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + real(c_float),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_srot_rank_0_devptr = rocblas_srot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + function rocblas_srot_rank_1(handle,n,x,incx,y,incy,c,s) use iso_c_binding use hipfort_rocblas_enums @@ -59116,6 +60802,23 @@ function rocblas_srot_rank_1(handle,n,x,incx,y,incy,c,s) rocblas_srot_rank_1 = rocblas_srot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function + function rocblas_srot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_srot_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_srot_rank_1_devptr = rocblas_srot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + #endif #ifdef USE_ASSUMED_RANK function rocblas_drot_assumed_rank(handle,n,x,incx,y,incy,c,s) @@ -59132,26 +60835,60 @@ function rocblas_drot_assumed_rank(handle,n,x,incx,y,incy,c,s) real(c_double),target :: c real(c_double),target :: s ! - rocblas_drot_assumed_rank = rocblas_drot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & - c_loc(s)) + rocblas_drot_assumed_rank = rocblas_drot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c), & + c_loc(s)) + end function + + function rocblas_drot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_drot_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + real(c_double),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_drot_assumed_rank_devptr = rocblas_drot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + +#else + function rocblas_drot_rank_0(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_drot_rank_0 + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + real(c_double),target :: y + integer(c_int) :: incy + real(c_double),target :: c + real(c_double),target :: s + ! + rocblas_drot_rank_0 = rocblas_drot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function -#else - function rocblas_drot_rank_0(handle,n,x,incx,y,incy,c,s) + function rocblas_drot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) use iso_c_binding use hipfort_rocblas_enums implicit none - integer(kind(rocblas_status_success)) :: rocblas_drot_rank_0 + integer(kind(rocblas_status_success)) :: rocblas_drot_rank_0_devptr type(c_ptr) :: handle integer(c_int) :: n real(c_double),target :: x integer(c_int) :: incx real(c_double),target :: y integer(c_int) :: incy - real(c_double),target :: c - real(c_double),target :: s + type(c_ptr),value :: c + type(c_ptr),value :: s ! - rocblas_drot_rank_0 = rocblas_drot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) + rocblas_drot_rank_0_devptr = rocblas_drot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) end function function rocblas_drot_rank_1(handle,n,x,incx,y,incy,c,s) @@ -59171,6 +60908,23 @@ function rocblas_drot_rank_1(handle,n,x,incx,y,incy,c,s) rocblas_drot_rank_1 = rocblas_drot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function + function rocblas_drot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_drot_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_drot_rank_1_devptr = rocblas_drot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + #endif #ifdef USE_ASSUMED_RANK function rocblas_crot_assumed_rank(handle,n,x,incx,y,incy,c,s) @@ -59191,6 +60945,23 @@ function rocblas_crot_assumed_rank(handle,n,x,incx,y,incy,c,s) c_loc(s)) end function + function rocblas_crot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_crot_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_crot_assumed_rank_devptr = rocblas_crot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + #else function rocblas_crot_rank_0(handle,n,x,incx,y,incy,c,s) use iso_c_binding @@ -59209,6 +60980,23 @@ function rocblas_crot_rank_0(handle,n,x,incx,y,incy,c,s) rocblas_crot_rank_0 = rocblas_crot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function + function rocblas_crot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_crot_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_crot_rank_0_devptr = rocblas_crot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + function rocblas_crot_rank_1(handle,n,x,incx,y,incy,c,s) use iso_c_binding use hipfort_rocblas_enums @@ -59226,6 +61014,23 @@ function rocblas_crot_rank_1(handle,n,x,incx,y,incy,c,s) rocblas_crot_rank_1 = rocblas_crot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function + function rocblas_crot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_crot_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_crot_rank_1_devptr = rocblas_crot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + #endif #ifdef USE_ASSUMED_RANK function rocblas_csrot_assumed_rank(handle,n,x,incx,y,incy,c,s) @@ -59246,6 +61051,23 @@ function rocblas_csrot_assumed_rank(handle,n,x,incx,y,incy,c,s) c_loc(s)) end function + function rocblas_csrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_csrot_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + complex(c_float_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_csrot_assumed_rank_devptr = rocblas_csrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + #else function rocblas_csrot_rank_0(handle,n,x,incx,y,incy,c,s) use iso_c_binding @@ -59264,6 +61086,23 @@ function rocblas_csrot_rank_0(handle,n,x,incx,y,incy,c,s) rocblas_csrot_rank_0 = rocblas_csrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function + function rocblas_csrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_csrot_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + complex(c_float_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_csrot_rank_0_devptr = rocblas_csrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + function rocblas_csrot_rank_1(handle,n,x,incx,y,incy,c,s) use iso_c_binding use hipfort_rocblas_enums @@ -59281,6 +61120,23 @@ function rocblas_csrot_rank_1(handle,n,x,incx,y,incy,c,s) rocblas_csrot_rank_1 = rocblas_csrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function + function rocblas_csrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_csrot_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_csrot_rank_1_devptr = rocblas_csrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + #endif #ifdef USE_ASSUMED_RANK function rocblas_zrot_assumed_rank(handle,n,x,incx,y,incy,c,s) @@ -59301,6 +61157,23 @@ function rocblas_zrot_assumed_rank(handle,n,x,incx,y,incy,c,s) c_loc(s)) end function + function rocblas_zrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zrot_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_zrot_assumed_rank_devptr = rocblas_zrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + #else function rocblas_zrot_rank_0(handle,n,x,incx,y,incy,c,s) use iso_c_binding @@ -59319,6 +61192,23 @@ function rocblas_zrot_rank_0(handle,n,x,incx,y,incy,c,s) rocblas_zrot_rank_0 = rocblas_zrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function + function rocblas_zrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zrot_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_zrot_rank_0_devptr = rocblas_zrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + function rocblas_zrot_rank_1(handle,n,x,incx,y,incy,c,s) use iso_c_binding use hipfort_rocblas_enums @@ -59336,6 +61226,23 @@ function rocblas_zrot_rank_1(handle,n,x,incx,y,incy,c,s) rocblas_zrot_rank_1 = rocblas_zrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function + function rocblas_zrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zrot_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_zrot_rank_1_devptr = rocblas_zrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + #endif #ifdef USE_ASSUMED_RANK function rocblas_zdrot_assumed_rank(handle,n,x,incx,y,incy,c,s) @@ -59356,6 +61263,23 @@ function rocblas_zdrot_assumed_rank(handle,n,x,incx,y,incy,c,s) c_loc(s)) end function + function rocblas_zdrot_assumed_rank_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdrot_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + complex(c_double_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_zdrot_assumed_rank_devptr = rocblas_zdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + #else function rocblas_zdrot_rank_0(handle,n,x,incx,y,incy,c,s) use iso_c_binding @@ -59374,6 +61298,23 @@ function rocblas_zdrot_rank_0(handle,n,x,incx,y,incy,c,s) rocblas_zdrot_rank_0 = rocblas_zdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function + function rocblas_zdrot_rank_0_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdrot_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + complex(c_double_complex),target :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_zdrot_rank_0_devptr = rocblas_zdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + function rocblas_zdrot_rank_1(handle,n,x,incx,y,incy,c,s) use iso_c_binding use hipfort_rocblas_enums @@ -59391,6 +61332,23 @@ function rocblas_zdrot_rank_1(handle,n,x,incx,y,incy,c,s) rocblas_zdrot_rank_1 = rocblas_zdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c_loc(c),c_loc(s)) end function + function rocblas_zdrot_rank_1_devptr(handle,n,x,incx,y,incy,c,s) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdrot_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + type(c_ptr),value :: c + type(c_ptr),value :: s + ! + rocblas_zdrot_rank_1_devptr = rocblas_zdrot_(handle,n,c_loc(x),incx,c_loc(y),incy,c,s) + end function + #endif #ifdef USE_ASSUMED_RANK function rocblas_srot_strided_batched_assumed_rank(handle,n,x,incx,stride_x,y,incy,stride_y,c, & @@ -59415,6 +61373,28 @@ function rocblas_srot_strided_batched_assumed_rank(handle,n,x,incx,stride_x,y,in incx,stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_srot_strided_batched_assumed_rank_devptr(handle,n,x,incx,stride_x,y,incy, & + stride_y,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_srot_strided_batched_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + real(c_float),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_srot_strided_batched_assumed_rank_devptr = rocblas_srot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + #else function rocblas_srot_strided_batched_rank_0(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & batch_count) @@ -59438,6 +61418,28 @@ function rocblas_srot_strided_batched_rank_0(handle,n,x,incx,stride_x,y,incy,str stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_srot_strided_batched_rank_0_devptr(handle,n,x,incx,stride_x,y,incy,stride_y, & + c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_srot_strided_batched_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + real(c_float),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_srot_strided_batched_rank_0_devptr = rocblas_srot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + function rocblas_srot_strided_batched_rank_1(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & batch_count) use iso_c_binding @@ -59460,6 +61462,28 @@ function rocblas_srot_strided_batched_rank_1(handle,n,x,incx,stride_x,y,incy,str stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_srot_strided_batched_rank_1_devptr(handle,n,x,incx,stride_x,y,incy,stride_y, & + c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_srot_strided_batched_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + real(c_float),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_srot_strided_batched_rank_1_devptr = rocblas_srot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + #endif #ifdef USE_ASSUMED_RANK function rocblas_drot_strided_batched_assumed_rank(handle,n,x,incx,stride_x,y,incy,stride_y,c, & @@ -59484,6 +61508,28 @@ function rocblas_drot_strided_batched_assumed_rank(handle,n,x,incx,stride_x,y,in incx,stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_drot_strided_batched_assumed_rank_devptr(handle,n,x,incx,stride_x,y,incy, & + stride_y,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_drot_strided_batched_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + real(c_double),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_drot_strided_batched_assumed_rank_devptr = rocblas_drot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + #else function rocblas_drot_strided_batched_rank_0(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & batch_count) @@ -59507,6 +61553,28 @@ function rocblas_drot_strided_batched_rank_0(handle,n,x,incx,stride_x,y,incy,str stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_drot_strided_batched_rank_0_devptr(handle,n,x,incx,stride_x,y,incy,stride_y, & + c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_drot_strided_batched_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + real(c_double),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_drot_strided_batched_rank_0_devptr = rocblas_drot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + function rocblas_drot_strided_batched_rank_1(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & batch_count) use iso_c_binding @@ -59529,6 +61597,28 @@ function rocblas_drot_strided_batched_rank_1(handle,n,x,incx,stride_x,y,incy,str stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_drot_strided_batched_rank_1_devptr(handle,n,x,incx,stride_x,y,incy,stride_y, & + c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_drot_strided_batched_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + real(c_double),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_drot_strided_batched_rank_1_devptr = rocblas_drot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + #endif #ifdef USE_ASSUMED_RANK function rocblas_crot_strided_batched_assumed_rank(handle,n,x,incx,stride_x,y,incy,stride_y,c, & @@ -59553,6 +61643,28 @@ function rocblas_crot_strided_batched_assumed_rank(handle,n,x,incx,stride_x,y,in incx,stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_crot_strided_batched_assumed_rank_devptr(handle,n,x,incx,stride_x,y,incy, & + stride_y,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_crot_strided_batched_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + complex(c_float_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_crot_strided_batched_assumed_rank_devptr = rocblas_crot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + #else function rocblas_crot_strided_batched_rank_0(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & batch_count) @@ -59576,6 +61688,28 @@ function rocblas_crot_strided_batched_rank_0(handle,n,x,incx,stride_x,y,incy,str stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_crot_strided_batched_rank_0_devptr(handle,n,x,incx,stride_x,y,incy,stride_y, & + c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_crot_strided_batched_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_crot_strided_batched_rank_0_devptr = rocblas_crot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + function rocblas_crot_strided_batched_rank_1(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & batch_count) use iso_c_binding @@ -59598,6 +61732,28 @@ function rocblas_crot_strided_batched_rank_1(handle,n,x,incx,stride_x,y,incy,str stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_crot_strided_batched_rank_1_devptr(handle,n,x,incx,stride_x,y,incy,stride_y, & + c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_crot_strided_batched_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_crot_strided_batched_rank_1_devptr = rocblas_crot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + #endif #ifdef USE_ASSUMED_RANK function rocblas_csrot_strided_batched_assumed_rank(handle,n,x,incx,stride_x,y,incy,stride_y, & @@ -59622,6 +61778,28 @@ function rocblas_csrot_strided_batched_assumed_rank(handle,n,x,incx,stride_x,y,i c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_csrot_strided_batched_assumed_rank_devptr(handle,n,x,incx,stride_x,y,incy, & + stride_y,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_csrot_strided_batched_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + complex(c_float_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_csrot_strided_batched_assumed_rank_devptr = rocblas_csrot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + #else function rocblas_csrot_strided_batched_rank_0(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & batch_count) @@ -59645,6 +61823,28 @@ function rocblas_csrot_strided_batched_rank_0(handle,n,x,incx,stride_x,y,incy,st incx,stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_csrot_strided_batched_rank_0_devptr(handle,n,x,incx,stride_x,y,incy,stride_y, & + c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_csrot_strided_batched_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + complex(c_float_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_csrot_strided_batched_rank_0_devptr = rocblas_csrot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + function rocblas_csrot_strided_batched_rank_1(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & batch_count) use iso_c_binding @@ -59667,6 +61867,28 @@ function rocblas_csrot_strided_batched_rank_1(handle,n,x,incx,stride_x,y,incy,st incx,stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_csrot_strided_batched_rank_1_devptr(handle,n,x,incx,stride_x,y,incy,stride_y, & + c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_csrot_strided_batched_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + complex(c_float_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_csrot_strided_batched_rank_1_devptr = rocblas_csrot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + #endif #ifdef USE_ASSUMED_RANK function rocblas_zrot_strided_batched_assumed_rank(handle,n,x,incx,stride_x,y,incy,stride_y,c, & @@ -59691,6 +61913,28 @@ function rocblas_zrot_strided_batched_assumed_rank(handle,n,x,incx,stride_x,y,in incx,stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_zrot_strided_batched_assumed_rank_devptr(handle,n,x,incx,stride_x,y,incy, & + stride_y,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zrot_strided_batched_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + complex(c_double_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_zrot_strided_batched_assumed_rank_devptr = rocblas_zrot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + #else function rocblas_zrot_strided_batched_rank_0(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & batch_count) @@ -59714,6 +61958,28 @@ function rocblas_zrot_strided_batched_rank_0(handle,n,x,incx,stride_x,y,incy,str stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_zrot_strided_batched_rank_0_devptr(handle,n,x,incx,stride_x,y,incy,stride_y, & + c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zrot_strided_batched_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_zrot_strided_batched_rank_0_devptr = rocblas_zrot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + function rocblas_zrot_strided_batched_rank_1(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & batch_count) use iso_c_binding @@ -59736,6 +62002,28 @@ function rocblas_zrot_strided_batched_rank_1(handle,n,x,incx,stride_x,y,incy,str stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_zrot_strided_batched_rank_1_devptr(handle,n,x,incx,stride_x,y,incy,stride_y, & + c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zrot_strided_batched_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_zrot_strided_batched_rank_1_devptr = rocblas_zrot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + #endif #ifdef USE_ASSUMED_RANK function rocblas_zdrot_strided_batched_assumed_rank(handle,n,x,incx,stride_x,y,incy,stride_y, & @@ -59760,6 +62048,28 @@ function rocblas_zdrot_strided_batched_assumed_rank(handle,n,x,incx,stride_x,y,i c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_zdrot_strided_batched_assumed_rank_devptr(handle,n,x,incx,stride_x,y,incy, & + stride_y,c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdrot_strided_batched_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + complex(c_double_complex),target,contiguous,dimension(..) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_zdrot_strided_batched_assumed_rank_devptr = rocblas_zdrot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + #else function rocblas_zdrot_strided_batched_rank_0(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & batch_count) @@ -59783,6 +62093,28 @@ function rocblas_zdrot_strided_batched_rank_0(handle,n,x,incx,stride_x,y,incy,st incx,stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_zdrot_strided_batched_rank_0_devptr(handle,n,x,incx,stride_x,y,incy,stride_y, & + c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdrot_strided_batched_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + complex(c_double_complex),target :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_zdrot_strided_batched_rank_0_devptr = rocblas_zdrot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + function rocblas_zdrot_strided_batched_rank_1(handle,n,x,incx,stride_x,y,incy,stride_y,c,s, & batch_count) use iso_c_binding @@ -59805,6 +62137,28 @@ function rocblas_zdrot_strided_batched_rank_1(handle,n,x,incx,stride_x,y,incy,st incx,stride_x,c_loc(y),incy,stride_y,c_loc(c),c_loc(s),batch_count) end function + function rocblas_zdrot_strided_batched_rank_1_devptr(handle,n,x,incx,stride_x,y,incy,stride_y, & + c,s,batch_count) + use iso_c_binding + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocblas_zdrot_strided_batched_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + integer(c_int64_t) :: stride_x + complex(c_double_complex),target,dimension(:) :: y + integer(c_int) :: incy + integer(c_int64_t) :: stride_y + type(c_ptr),value :: c + type(c_ptr),value :: s + integer(c_int) :: batch_count + ! + rocblas_zdrot_strided_batched_rank_1_devptr = rocblas_zdrot_strided_batched_(handle,n, & + c_loc(x),incx,stride_x,c_loc(y),incy,stride_y,c,s,batch_count) + end function + #endif #ifdef USE_ASSUMED_RANK function rocblas_srotm_assumed_rank(handle,n,x,incx,y,incy,param) diff --git a/lib/hipfort/hipfort_rocsolver.F90 b/lib/hipfort/hipfort_rocsolver.F90 index a334b298c..b5fbb8238 100644 --- a/lib/hipfort/hipfort_rocsolver.F90 +++ b/lib/hipfort/hipfort_rocsolver.F90 @@ -875,15 +875,17 @@ function rocsolver_slarfg_(handle,n,alpha,x,incx,tau) bind(c, name="rocsolver_sl type(c_ptr),value :: tau end function - module procedure rocsolver_slarfg_typed - #ifdef USE_ASSUMED_RANK - module procedure rocsolver_slarfg_assumed_rank + module procedure & + rocsolver_slarfg_assumed_rank,& + rocsolver_slarfg_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocsolver_slarfg_rank_0,& - rocsolver_slarfg_rank_1 + rocsolver_slarfg_rank_0_devptr,& + rocsolver_slarfg_rank_1,& + rocsolver_slarfg_rank_1_devptr #endif #endif end interface @@ -903,15 +905,17 @@ function rocsolver_dlarfg_(handle,n,alpha,x,incx,tau) bind(c, name="rocsolver_dl type(c_ptr),value :: tau end function - module procedure rocsolver_dlarfg_typed - #ifdef USE_ASSUMED_RANK - module procedure rocsolver_dlarfg_assumed_rank + module procedure & + rocsolver_dlarfg_assumed_rank,& + rocsolver_dlarfg_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocsolver_dlarfg_rank_0,& - rocsolver_dlarfg_rank_1 + rocsolver_dlarfg_rank_0_devptr,& + rocsolver_dlarfg_rank_1,& + rocsolver_dlarfg_rank_1_devptr #endif #endif end interface @@ -931,15 +935,17 @@ function rocsolver_clarfg_(handle,n,alpha,x,incx,tau) bind(c, name="rocsolver_cl type(c_ptr),value :: tau end function - module procedure rocsolver_clarfg_typed - #ifdef USE_ASSUMED_RANK - module procedure rocsolver_clarfg_assumed_rank + module procedure & + rocsolver_clarfg_assumed_rank,& + rocsolver_clarfg_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocsolver_clarfg_rank_0,& - rocsolver_clarfg_rank_1 + rocsolver_clarfg_rank_0_devptr,& + rocsolver_clarfg_rank_1,& + rocsolver_clarfg_rank_1_devptr #endif #endif end interface @@ -959,15 +965,17 @@ function rocsolver_zlarfg_(handle,n,alpha,x,incx,tau) bind(c, name="rocsolver_zl type(c_ptr),value :: tau end function - module procedure rocsolver_zlarfg_typed - #ifdef USE_ASSUMED_RANK - module procedure rocsolver_zlarfg_assumed_rank + module procedure & + rocsolver_zlarfg_assumed_rank,& + rocsolver_zlarfg_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocsolver_zlarfg_rank_0,& - rocsolver_zlarfg_rank_1 + rocsolver_zlarfg_rank_0_devptr,& + rocsolver_zlarfg_rank_1,& + rocsolver_zlarfg_rank_1_devptr #endif #endif end interface @@ -1363,16 +1371,19 @@ function rocsolver_slarf_(handle,side,m,n,x,incx,alpha,A,lda) bind(c, name="rocs integer(c_int),value :: lda end function - module procedure rocsolver_slarf_typed - #ifdef USE_ASSUMED_RANK - module procedure rocsolver_slarf_assumed_rank + module procedure & + rocsolver_slarf_assumed_rank,& + rocsolver_slarf_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocsolver_slarf_rank_0,& + rocsolver_slarf_rank_0_devptr,& rocsolver_slarf_rank_1,& - rocsolver_slarf_full_rank + rocsolver_slarf_rank_1_devptr,& + rocsolver_slarf_full_rank,& + rocsolver_slarf_full_rank_devptr #endif #endif end interface @@ -1395,16 +1406,19 @@ function rocsolver_dlarf_(handle,side,m,n,x,incx,alpha,A,lda) bind(c, name="rocs integer(c_int),value :: lda end function - module procedure rocsolver_dlarf_typed - #ifdef USE_ASSUMED_RANK - module procedure rocsolver_dlarf_assumed_rank + module procedure & + rocsolver_dlarf_assumed_rank,& + rocsolver_dlarf_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocsolver_dlarf_rank_0,& + rocsolver_dlarf_rank_0_devptr,& rocsolver_dlarf_rank_1,& - rocsolver_dlarf_full_rank + rocsolver_dlarf_rank_1_devptr,& + rocsolver_dlarf_full_rank,& + rocsolver_dlarf_full_rank_devptr #endif #endif end interface @@ -1427,16 +1441,19 @@ function rocsolver_clarf_(handle,side,m,n,x,incx,alpha,A,lda) bind(c, name="rocs integer(c_int),value :: lda end function - module procedure rocsolver_clarf_typed - #ifdef USE_ASSUMED_RANK - module procedure rocsolver_clarf_assumed_rank + module procedure & + rocsolver_clarf_assumed_rank,& + rocsolver_clarf_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocsolver_clarf_rank_0,& + rocsolver_clarf_rank_0_devptr,& rocsolver_clarf_rank_1,& - rocsolver_clarf_full_rank + rocsolver_clarf_rank_1_devptr,& + rocsolver_clarf_full_rank,& + rocsolver_clarf_full_rank_devptr #endif #endif end interface @@ -1459,16 +1476,19 @@ function rocsolver_zlarf_(handle,side,m,n,x,incx,alpha,A,lda) bind(c, name="rocs integer(c_int),value :: lda end function - module procedure rocsolver_zlarf_typed - #ifdef USE_ASSUMED_RANK - module procedure rocsolver_zlarf_assumed_rank + module procedure & + rocsolver_zlarf_assumed_rank,& + rocsolver_zlarf_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocsolver_zlarf_rank_0,& + rocsolver_zlarf_rank_0_devptr,& rocsolver_zlarf_rank_1,& - rocsolver_zlarf_full_rank + rocsolver_zlarf_rank_1_devptr,& + rocsolver_zlarf_full_rank,& + rocsolver_zlarf_full_rank_devptr #endif #endif end interface @@ -45838,70 +45858,6 @@ function rocsolver_get_alg_mode_typed(handle,func,mode) rocsolver_get_alg_mode_typed = rocsolver_get_alg_mode_(handle,func,c_loc(mode)) end function - function rocsolver_slarfg_typed(handle,n,alpha,x,incx,tau) - use iso_c_binding - use hipfort_rocsolver_enums - use hipfort_rocblas_enums - implicit none - integer(kind(rocblas_status_success)) :: rocsolver_slarfg_typed - type(c_ptr) :: handle - integer(c_int) :: n - real(c_float),target :: alpha - type(c_ptr) :: x - integer(c_int) :: incx - real(c_float),target :: tau - ! - rocsolver_slarfg_typed = rocsolver_slarfg_(handle,n,c_loc(alpha),x,incx,c_loc(tau)) - end function - - function rocsolver_dlarfg_typed(handle,n,alpha,x,incx,tau) - use iso_c_binding - use hipfort_rocsolver_enums - use hipfort_rocblas_enums - implicit none - integer(kind(rocblas_status_success)) :: rocsolver_dlarfg_typed - type(c_ptr) :: handle - integer(c_int) :: n - real(c_double),target :: alpha - type(c_ptr) :: x - integer(c_int) :: incx - real(c_double),target :: tau - ! - rocsolver_dlarfg_typed = rocsolver_dlarfg_(handle,n,c_loc(alpha),x,incx,c_loc(tau)) - end function - - function rocsolver_clarfg_typed(handle,n,alpha,x,incx,tau) - use iso_c_binding - use hipfort_rocsolver_enums - use hipfort_rocblas_enums - implicit none - integer(kind(rocblas_status_success)) :: rocsolver_clarfg_typed - type(c_ptr) :: handle - integer(c_int) :: n - complex(c_float_complex),target :: alpha - type(c_ptr) :: x - integer(c_int) :: incx - complex(c_float_complex),target :: tau - ! - rocsolver_clarfg_typed = rocsolver_clarfg_(handle,n,c_loc(alpha),x,incx,c_loc(tau)) - end function - - function rocsolver_zlarfg_typed(handle,n,alpha,x,incx,tau) - use iso_c_binding - use hipfort_rocsolver_enums - use hipfort_rocblas_enums - implicit none - integer(kind(rocblas_status_success)) :: rocsolver_zlarfg_typed - type(c_ptr) :: handle - integer(c_int) :: n - complex(c_double_complex),target :: alpha - type(c_ptr) :: x - integer(c_int) :: incx - complex(c_double_complex),target :: tau - ! - rocsolver_zlarfg_typed = rocsolver_zlarfg_(handle,n,c_loc(alpha),x,incx,c_loc(tau)) - end function - function rocsolver_slarfg_64_typed(handle,n,alpha,x,incx,tau) use iso_c_binding use hipfort_rocsolver_enums @@ -45966,82 +45922,6 @@ function rocsolver_zlarfg_64_typed(handle,n,alpha,x,incx,tau) rocsolver_zlarfg_64_typed = rocsolver_zlarfg_64_(handle,n,c_loc(alpha),x,incx,c_loc(tau)) end function - function rocsolver_slarf_typed(handle,side,m,n,x,incx,alpha,A,lda) - use iso_c_binding - use hipfort_rocsolver_enums - use hipfort_rocblas_enums - implicit none - integer(kind(rocblas_status_success)) :: rocsolver_slarf_typed - type(c_ptr) :: handle - integer(kind(rocblas_side_left)) :: side - integer(c_int) :: m - integer(c_int) :: n - type(c_ptr) :: x - integer(c_int) :: incx - real(c_float),target :: alpha - type(c_ptr) :: A - integer(c_int) :: lda - ! - rocsolver_slarf_typed = rocsolver_slarf_(handle,side,m,n,x,incx,c_loc(alpha),A,lda) - end function - - function rocsolver_dlarf_typed(handle,side,m,n,x,incx,alpha,A,lda) - use iso_c_binding - use hipfort_rocsolver_enums - use hipfort_rocblas_enums - implicit none - integer(kind(rocblas_status_success)) :: rocsolver_dlarf_typed - type(c_ptr) :: handle - integer(kind(rocblas_side_left)) :: side - integer(c_int) :: m - integer(c_int) :: n - type(c_ptr) :: x - integer(c_int) :: incx - real(c_double),target :: alpha - type(c_ptr) :: A - integer(c_int) :: lda - ! - rocsolver_dlarf_typed = rocsolver_dlarf_(handle,side,m,n,x,incx,c_loc(alpha),A,lda) - end function - - function rocsolver_clarf_typed(handle,side,m,n,x,incx,alpha,A,lda) - use iso_c_binding - use hipfort_rocsolver_enums - use hipfort_rocblas_enums - implicit none - integer(kind(rocblas_status_success)) :: rocsolver_clarf_typed - type(c_ptr) :: handle - integer(kind(rocblas_side_left)) :: side - integer(c_int) :: m - integer(c_int) :: n - type(c_ptr) :: x - integer(c_int) :: incx - complex(c_float_complex),target :: alpha - type(c_ptr) :: A - integer(c_int) :: lda - ! - rocsolver_clarf_typed = rocsolver_clarf_(handle,side,m,n,x,incx,c_loc(alpha),A,lda) - end function - - function rocsolver_zlarf_typed(handle,side,m,n,x,incx,alpha,A,lda) - use iso_c_binding - use hipfort_rocsolver_enums - use hipfort_rocblas_enums - implicit none - integer(kind(rocblas_status_success)) :: rocsolver_zlarf_typed - type(c_ptr) :: handle - integer(kind(rocblas_side_left)) :: side - integer(c_int) :: m - integer(c_int) :: n - type(c_ptr) :: x - integer(c_int) :: incx - complex(c_double_complex),target :: alpha - type(c_ptr) :: A - integer(c_int) :: lda - ! - rocsolver_zlarf_typed = rocsolver_zlarf_(handle,side,m,n,x,incx,c_loc(alpha),A,lda) - end function - function rocsolver_slarf_64_typed(handle,side,m,n,x,incx,alpha,A,lda) use iso_c_binding use hipfort_rocsolver_enums @@ -46545,6 +46425,22 @@ function rocsolver_slarfg_assumed_rank(handle,n,alpha,x,incx,tau) c_loc(tau)) end function + function rocsolver_slarfg_assumed_rank_devptr(handle,n,alpha,x,incx,tau) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_slarfg_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: tau + ! + rocsolver_slarfg_assumed_rank_devptr = rocsolver_slarfg_(handle,n,alpha,c_loc(x),incx,tau) + end function + #else function rocsolver_slarfg_rank_0(handle,n,alpha,x,incx,tau) use iso_c_binding @@ -46562,6 +46458,22 @@ function rocsolver_slarfg_rank_0(handle,n,alpha,x,incx,tau) rocsolver_slarfg_rank_0 = rocsolver_slarfg_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(tau)) end function + function rocsolver_slarfg_rank_0_devptr(handle,n,alpha,x,incx,tau) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_slarfg_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target :: x + integer(c_int) :: incx + type(c_ptr),value :: tau + ! + rocsolver_slarfg_rank_0_devptr = rocsolver_slarfg_(handle,n,alpha,c_loc(x),incx,tau) + end function + function rocsolver_slarfg_rank_1(handle,n,alpha,x,incx,tau) use iso_c_binding use hipfort_rocsolver_enums @@ -46578,6 +46490,22 @@ function rocsolver_slarfg_rank_1(handle,n,alpha,x,incx,tau) rocsolver_slarfg_rank_1 = rocsolver_slarfg_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(tau)) end function + function rocsolver_slarfg_rank_1_devptr(handle,n,alpha,x,incx,tau) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_slarfg_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: tau + ! + rocsolver_slarfg_rank_1_devptr = rocsolver_slarfg_(handle,n,alpha,c_loc(x),incx,tau) + end function + #endif #ifdef USE_ASSUMED_RANK function rocsolver_dlarfg_assumed_rank(handle,n,alpha,x,incx,tau) @@ -46597,6 +46525,22 @@ function rocsolver_dlarfg_assumed_rank(handle,n,alpha,x,incx,tau) c_loc(tau)) end function + function rocsolver_dlarfg_assumed_rank_devptr(handle,n,alpha,x,incx,tau) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_dlarfg_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: tau + ! + rocsolver_dlarfg_assumed_rank_devptr = rocsolver_dlarfg_(handle,n,alpha,c_loc(x),incx,tau) + end function + #else function rocsolver_dlarfg_rank_0(handle,n,alpha,x,incx,tau) use iso_c_binding @@ -46614,6 +46558,22 @@ function rocsolver_dlarfg_rank_0(handle,n,alpha,x,incx,tau) rocsolver_dlarfg_rank_0 = rocsolver_dlarfg_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(tau)) end function + function rocsolver_dlarfg_rank_0_devptr(handle,n,alpha,x,incx,tau) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_dlarfg_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target :: x + integer(c_int) :: incx + type(c_ptr),value :: tau + ! + rocsolver_dlarfg_rank_0_devptr = rocsolver_dlarfg_(handle,n,alpha,c_loc(x),incx,tau) + end function + function rocsolver_dlarfg_rank_1(handle,n,alpha,x,incx,tau) use iso_c_binding use hipfort_rocsolver_enums @@ -46630,6 +46590,22 @@ function rocsolver_dlarfg_rank_1(handle,n,alpha,x,incx,tau) rocsolver_dlarfg_rank_1 = rocsolver_dlarfg_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(tau)) end function + function rocsolver_dlarfg_rank_1_devptr(handle,n,alpha,x,incx,tau) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_dlarfg_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: tau + ! + rocsolver_dlarfg_rank_1_devptr = rocsolver_dlarfg_(handle,n,alpha,c_loc(x),incx,tau) + end function + #endif #ifdef USE_ASSUMED_RANK function rocsolver_clarfg_assumed_rank(handle,n,alpha,x,incx,tau) @@ -46649,6 +46625,22 @@ function rocsolver_clarfg_assumed_rank(handle,n,alpha,x,incx,tau) c_loc(tau)) end function + function rocsolver_clarfg_assumed_rank_devptr(handle,n,alpha,x,incx,tau) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_clarfg_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: tau + ! + rocsolver_clarfg_assumed_rank_devptr = rocsolver_clarfg_(handle,n,alpha,c_loc(x),incx,tau) + end function + #else function rocsolver_clarfg_rank_0(handle,n,alpha,x,incx,tau) use iso_c_binding @@ -46666,6 +46658,22 @@ function rocsolver_clarfg_rank_0(handle,n,alpha,x,incx,tau) rocsolver_clarfg_rank_0 = rocsolver_clarfg_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(tau)) end function + function rocsolver_clarfg_rank_0_devptr(handle,n,alpha,x,incx,tau) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_clarfg_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: tau + ! + rocsolver_clarfg_rank_0_devptr = rocsolver_clarfg_(handle,n,alpha,c_loc(x),incx,tau) + end function + function rocsolver_clarfg_rank_1(handle,n,alpha,x,incx,tau) use iso_c_binding use hipfort_rocsolver_enums @@ -46682,6 +46690,22 @@ function rocsolver_clarfg_rank_1(handle,n,alpha,x,incx,tau) rocsolver_clarfg_rank_1 = rocsolver_clarfg_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(tau)) end function + function rocsolver_clarfg_rank_1_devptr(handle,n,alpha,x,incx,tau) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_clarfg_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: tau + ! + rocsolver_clarfg_rank_1_devptr = rocsolver_clarfg_(handle,n,alpha,c_loc(x),incx,tau) + end function + #endif #ifdef USE_ASSUMED_RANK function rocsolver_zlarfg_assumed_rank(handle,n,alpha,x,incx,tau) @@ -46701,6 +46725,22 @@ function rocsolver_zlarfg_assumed_rank(handle,n,alpha,x,incx,tau) c_loc(tau)) end function + function rocsolver_zlarfg_assumed_rank_devptr(handle,n,alpha,x,incx,tau) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_zlarfg_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: tau + ! + rocsolver_zlarfg_assumed_rank_devptr = rocsolver_zlarfg_(handle,n,alpha,c_loc(x),incx,tau) + end function + #else function rocsolver_zlarfg_rank_0(handle,n,alpha,x,incx,tau) use iso_c_binding @@ -46718,6 +46758,22 @@ function rocsolver_zlarfg_rank_0(handle,n,alpha,x,incx,tau) rocsolver_zlarfg_rank_0 = rocsolver_zlarfg_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(tau)) end function + function rocsolver_zlarfg_rank_0_devptr(handle,n,alpha,x,incx,tau) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_zlarfg_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: tau + ! + rocsolver_zlarfg_rank_0_devptr = rocsolver_zlarfg_(handle,n,alpha,c_loc(x),incx,tau) + end function + function rocsolver_zlarfg_rank_1(handle,n,alpha,x,incx,tau) use iso_c_binding use hipfort_rocsolver_enums @@ -46734,6 +46790,22 @@ function rocsolver_zlarfg_rank_1(handle,n,alpha,x,incx,tau) rocsolver_zlarfg_rank_1 = rocsolver_zlarfg_(handle,n,c_loc(alpha),c_loc(x),incx,c_loc(tau)) end function + function rocsolver_zlarfg_rank_1_devptr(handle,n,alpha,x,incx,tau) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_zlarfg_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: n + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: tau + ! + rocsolver_zlarfg_rank_1_devptr = rocsolver_zlarfg_(handle,n,alpha,c_loc(x),incx,tau) + end function + #endif #ifdef USE_ASSUMED_RANK function rocsolver_slarft_assumed_rank(handle,myDirect,storev,n,k,V,ldv,tau,T,ldt) @@ -47104,6 +47176,26 @@ function rocsolver_slarf_assumed_rank(handle,side,m,n,x,incx,alpha,A,lda) c_loc(A),lda) end function + function rocsolver_slarf_assumed_rank_devptr(handle,side,m,n,x,incx,alpha,A,lda) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_slarf_assumed_rank_devptr + type(c_ptr) :: handle + integer(kind(rocblas_side_left)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: alpha + real(c_float),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + ! + rocsolver_slarf_assumed_rank_devptr = rocsolver_slarf_(handle,side,m,n,c_loc(x),incx,alpha, & + c_loc(A),lda) + end function + #else function rocsolver_slarf_rank_0(handle,side,m,n,x,incx,alpha,A,lda) use iso_c_binding @@ -47125,6 +47217,26 @@ function rocsolver_slarf_rank_0(handle,side,m,n,x,incx,alpha,A,lda) c_loc(A),lda) end function + function rocsolver_slarf_rank_0_devptr(handle,side,m,n,x,incx,alpha,A,lda) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_slarf_rank_0_devptr + type(c_ptr) :: handle + integer(kind(rocblas_side_left)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target :: x + integer(c_int) :: incx + type(c_ptr),value :: alpha + real(c_float),target :: A + integer(c_int) :: lda + ! + rocsolver_slarf_rank_0_devptr = rocsolver_slarf_(handle,side,m,n,c_loc(x),incx,alpha, & + c_loc(A),lda) + end function + function rocsolver_slarf_rank_1(handle,side,m,n,x,incx,alpha,A,lda) use iso_c_binding use hipfort_rocsolver_enums @@ -47145,6 +47257,26 @@ function rocsolver_slarf_rank_1(handle,side,m,n,x,incx,alpha,A,lda) c_loc(A),lda) end function + function rocsolver_slarf_rank_1_devptr(handle,side,m,n,x,incx,alpha,A,lda) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_slarf_rank_1_devptr + type(c_ptr) :: handle + integer(kind(rocblas_side_left)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: alpha + real(c_float),target,dimension(:) :: A + integer(c_int) :: lda + ! + rocsolver_slarf_rank_1_devptr = rocsolver_slarf_(handle,side,m,n,c_loc(x),incx,alpha, & + c_loc(A),lda) + end function + function rocsolver_slarf_full_rank(handle,side,m,n,x,incx,alpha,A,lda) use iso_c_binding use hipfort_rocsolver_enums @@ -47165,6 +47297,26 @@ function rocsolver_slarf_full_rank(handle,side,m,n,x,incx,alpha,A,lda) c_loc(A),lda) end function + function rocsolver_slarf_full_rank_devptr(handle,side,m,n,x,incx,alpha,A,lda) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_slarf_full_rank_devptr + type(c_ptr) :: handle + integer(kind(rocblas_side_left)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_float),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: alpha + real(c_float),target,dimension(:,:) :: A + integer(c_int) :: lda + ! + rocsolver_slarf_full_rank_devptr = rocsolver_slarf_(handle,side,m,n,c_loc(x),incx,alpha, & + c_loc(A),lda) + end function + #endif #ifdef USE_ASSUMED_RANK function rocsolver_dlarf_assumed_rank(handle,side,m,n,x,incx,alpha,A,lda) @@ -47187,6 +47339,26 @@ function rocsolver_dlarf_assumed_rank(handle,side,m,n,x,incx,alpha,A,lda) c_loc(A),lda) end function + function rocsolver_dlarf_assumed_rank_devptr(handle,side,m,n,x,incx,alpha,A,lda) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_dlarf_assumed_rank_devptr + type(c_ptr) :: handle + integer(kind(rocblas_side_left)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: alpha + real(c_double),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + ! + rocsolver_dlarf_assumed_rank_devptr = rocsolver_dlarf_(handle,side,m,n,c_loc(x),incx,alpha, & + c_loc(A),lda) + end function + #else function rocsolver_dlarf_rank_0(handle,side,m,n,x,incx,alpha,A,lda) use iso_c_binding @@ -47208,6 +47380,26 @@ function rocsolver_dlarf_rank_0(handle,side,m,n,x,incx,alpha,A,lda) c_loc(A),lda) end function + function rocsolver_dlarf_rank_0_devptr(handle,side,m,n,x,incx,alpha,A,lda) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_dlarf_rank_0_devptr + type(c_ptr) :: handle + integer(kind(rocblas_side_left)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target :: x + integer(c_int) :: incx + type(c_ptr),value :: alpha + real(c_double),target :: A + integer(c_int) :: lda + ! + rocsolver_dlarf_rank_0_devptr = rocsolver_dlarf_(handle,side,m,n,c_loc(x),incx,alpha, & + c_loc(A),lda) + end function + function rocsolver_dlarf_rank_1(handle,side,m,n,x,incx,alpha,A,lda) use iso_c_binding use hipfort_rocsolver_enums @@ -47228,6 +47420,26 @@ function rocsolver_dlarf_rank_1(handle,side,m,n,x,incx,alpha,A,lda) c_loc(A),lda) end function + function rocsolver_dlarf_rank_1_devptr(handle,side,m,n,x,incx,alpha,A,lda) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_dlarf_rank_1_devptr + type(c_ptr) :: handle + integer(kind(rocblas_side_left)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: alpha + real(c_double),target,dimension(:) :: A + integer(c_int) :: lda + ! + rocsolver_dlarf_rank_1_devptr = rocsolver_dlarf_(handle,side,m,n,c_loc(x),incx,alpha, & + c_loc(A),lda) + end function + function rocsolver_dlarf_full_rank(handle,side,m,n,x,incx,alpha,A,lda) use iso_c_binding use hipfort_rocsolver_enums @@ -47248,6 +47460,26 @@ function rocsolver_dlarf_full_rank(handle,side,m,n,x,incx,alpha,A,lda) c_loc(A),lda) end function + function rocsolver_dlarf_full_rank_devptr(handle,side,m,n,x,incx,alpha,A,lda) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_dlarf_full_rank_devptr + type(c_ptr) :: handle + integer(kind(rocblas_side_left)) :: side + integer(c_int) :: m + integer(c_int) :: n + real(c_double),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: alpha + real(c_double),target,dimension(:,:) :: A + integer(c_int) :: lda + ! + rocsolver_dlarf_full_rank_devptr = rocsolver_dlarf_(handle,side,m,n,c_loc(x),incx,alpha, & + c_loc(A),lda) + end function + #endif #ifdef USE_ASSUMED_RANK function rocsolver_clarf_assumed_rank(handle,side,m,n,x,incx,alpha,A,lda) @@ -47270,6 +47502,26 @@ function rocsolver_clarf_assumed_rank(handle,side,m,n,x,incx,alpha,A,lda) c_loc(A),lda) end function + function rocsolver_clarf_assumed_rank_devptr(handle,side,m,n,x,incx,alpha,A,lda) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_clarf_assumed_rank_devptr + type(c_ptr) :: handle + integer(kind(rocblas_side_left)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: alpha + complex(c_float_complex),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + ! + rocsolver_clarf_assumed_rank_devptr = rocsolver_clarf_(handle,side,m,n,c_loc(x),incx,alpha, & + c_loc(A),lda) + end function + #else function rocsolver_clarf_rank_0(handle,side,m,n,x,incx,alpha,A,lda) use iso_c_binding @@ -47291,6 +47543,26 @@ function rocsolver_clarf_rank_0(handle,side,m,n,x,incx,alpha,A,lda) c_loc(A),lda) end function + function rocsolver_clarf_rank_0_devptr(handle,side,m,n,x,incx,alpha,A,lda) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_clarf_rank_0_devptr + type(c_ptr) :: handle + integer(kind(rocblas_side_left)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: alpha + complex(c_float_complex),target :: A + integer(c_int) :: lda + ! + rocsolver_clarf_rank_0_devptr = rocsolver_clarf_(handle,side,m,n,c_loc(x),incx,alpha, & + c_loc(A),lda) + end function + function rocsolver_clarf_rank_1(handle,side,m,n,x,incx,alpha,A,lda) use iso_c_binding use hipfort_rocsolver_enums @@ -47311,6 +47583,26 @@ function rocsolver_clarf_rank_1(handle,side,m,n,x,incx,alpha,A,lda) c_loc(A),lda) end function + function rocsolver_clarf_rank_1_devptr(handle,side,m,n,x,incx,alpha,A,lda) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_clarf_rank_1_devptr + type(c_ptr) :: handle + integer(kind(rocblas_side_left)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:) :: A + integer(c_int) :: lda + ! + rocsolver_clarf_rank_1_devptr = rocsolver_clarf_(handle,side,m,n,c_loc(x),incx,alpha, & + c_loc(A),lda) + end function + function rocsolver_clarf_full_rank(handle,side,m,n,x,incx,alpha,A,lda) use iso_c_binding use hipfort_rocsolver_enums @@ -47331,6 +47623,26 @@ function rocsolver_clarf_full_rank(handle,side,m,n,x,incx,alpha,A,lda) c_loc(A),lda) end function + function rocsolver_clarf_full_rank_devptr(handle,side,m,n,x,incx,alpha,A,lda) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_clarf_full_rank_devptr + type(c_ptr) :: handle + integer(kind(rocblas_side_left)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_float_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: alpha + complex(c_float_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + ! + rocsolver_clarf_full_rank_devptr = rocsolver_clarf_(handle,side,m,n,c_loc(x),incx,alpha, & + c_loc(A),lda) + end function + #endif #ifdef USE_ASSUMED_RANK function rocsolver_zlarf_assumed_rank(handle,side,m,n,x,incx,alpha,A,lda) @@ -47353,6 +47665,26 @@ function rocsolver_zlarf_assumed_rank(handle,side,m,n,x,incx,alpha,A,lda) c_loc(A),lda) end function + function rocsolver_zlarf_assumed_rank_devptr(handle,side,m,n,x,incx,alpha,A,lda) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_zlarf_assumed_rank_devptr + type(c_ptr) :: handle + integer(kind(rocblas_side_left)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,contiguous,dimension(..) :: x + integer(c_int) :: incx + type(c_ptr),value :: alpha + complex(c_double_complex),target,contiguous,dimension(..) :: A + integer(c_int) :: lda + ! + rocsolver_zlarf_assumed_rank_devptr = rocsolver_zlarf_(handle,side,m,n,c_loc(x),incx,alpha, & + c_loc(A),lda) + end function + #else function rocsolver_zlarf_rank_0(handle,side,m,n,x,incx,alpha,A,lda) use iso_c_binding @@ -47374,6 +47706,26 @@ function rocsolver_zlarf_rank_0(handle,side,m,n,x,incx,alpha,A,lda) c_loc(A),lda) end function + function rocsolver_zlarf_rank_0_devptr(handle,side,m,n,x,incx,alpha,A,lda) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_zlarf_rank_0_devptr + type(c_ptr) :: handle + integer(kind(rocblas_side_left)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target :: x + integer(c_int) :: incx + type(c_ptr),value :: alpha + complex(c_double_complex),target :: A + integer(c_int) :: lda + ! + rocsolver_zlarf_rank_0_devptr = rocsolver_zlarf_(handle,side,m,n,c_loc(x),incx,alpha, & + c_loc(A),lda) + end function + function rocsolver_zlarf_rank_1(handle,side,m,n,x,incx,alpha,A,lda) use iso_c_binding use hipfort_rocsolver_enums @@ -47394,6 +47746,26 @@ function rocsolver_zlarf_rank_1(handle,side,m,n,x,incx,alpha,A,lda) c_loc(A),lda) end function + function rocsolver_zlarf_rank_1_devptr(handle,side,m,n,x,incx,alpha,A,lda) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_zlarf_rank_1_devptr + type(c_ptr) :: handle + integer(kind(rocblas_side_left)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:) :: A + integer(c_int) :: lda + ! + rocsolver_zlarf_rank_1_devptr = rocsolver_zlarf_(handle,side,m,n,c_loc(x),incx,alpha, & + c_loc(A),lda) + end function + function rocsolver_zlarf_full_rank(handle,side,m,n,x,incx,alpha,A,lda) use iso_c_binding use hipfort_rocsolver_enums @@ -47414,6 +47786,26 @@ function rocsolver_zlarf_full_rank(handle,side,m,n,x,incx,alpha,A,lda) c_loc(A),lda) end function + function rocsolver_zlarf_full_rank_devptr(handle,side,m,n,x,incx,alpha,A,lda) + use iso_c_binding + use hipfort_rocsolver_enums + use hipfort_rocblas_enums + implicit none + integer(kind(rocblas_status_success)) :: rocsolver_zlarf_full_rank_devptr + type(c_ptr) :: handle + integer(kind(rocblas_side_left)) :: side + integer(c_int) :: m + integer(c_int) :: n + complex(c_double_complex),target,dimension(:) :: x + integer(c_int) :: incx + type(c_ptr),value :: alpha + complex(c_double_complex),target,dimension(:,:) :: A + integer(c_int) :: lda + ! + rocsolver_zlarf_full_rank_devptr = rocsolver_zlarf_(handle,side,m,n,c_loc(x),incx,alpha, & + c_loc(A),lda) + end function + #endif #ifdef USE_ASSUMED_RANK function rocsolver_slarfb_assumed_rank(handle,side,trans,myDirect,storev,m,n,k,V,ldv,T,ldt,A, & diff --git a/lib/hipfort/hipfort_rocsparse.F90 b/lib/hipfort/hipfort_rocsparse.F90 index ec43cd0f0..5e571fa4e 100644 --- a/lib/hipfort/hipfort_rocsparse.F90 +++ b/lib/hipfort/hipfort_rocsparse.F90 @@ -1896,7 +1896,7 @@ function rocsparse_spgeam_get_output_(handle,descr,output,myData,data_size_in_by integer(kind(rocsparse_spgeam_output_nnz)),value :: output type(c_ptr),value :: myData integer(c_size_t),value :: data_size_in_bytes - type(c_ptr) :: error + type(c_ptr), optional :: error end function end interface @@ -1970,7 +1970,7 @@ function rocsparse_spmv_set_input_(handle,descr,input,in,size_in_bytes,error) & integer(kind(rocsparse_spmv_input_alg)),value :: input type(c_ptr),value :: in integer(c_size_t),value :: size_in_bytes - type(c_ptr) :: error + type(c_ptr), optional :: error end function end interface @@ -5687,6 +5687,8 @@ function rocsparse_csr2bsr_nnz_(handle,dir,m,n,csr_descr,csr_row_ptr,csr_col_ind type(c_ptr),value :: bsr_nnz end function + module procedure rocsparse_csr2bsr_nnz_typed + #ifdef USE_ASSUMED_RANK module procedure rocsparse_csr2bsr_nnz_assumed_rank #else @@ -6680,6 +6682,8 @@ function rocsparse_csr2ell_width_(handle,m,csr_descr,csr_row_ptr,ell_descr,ell_w type(c_ptr),value :: ell_width end function + module procedure rocsparse_csr2ell_width_typed + #ifdef USE_ASSUMED_RANK module procedure rocsparse_csr2ell_width_assumed_rank #else @@ -7124,13 +7128,19 @@ function rocsparse_csr2gebsr_nnz_(handle,dir,m,n,csr_descr,csr_row_ptr,csr_col_i type(c_ptr),value :: temp_buffer end function + module procedure rocsparse_csr2gebsr_nnz_typed + #ifdef USE_ASSUMED_RANK - module procedure rocsparse_csr2gebsr_nnz_assumed_rank + module procedure & + rocsparse_csr2gebsr_nnz_assumed_rank,& + rocsparse_csr2gebsr_nnz_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocsparse_csr2gebsr_nnz_rank_0,& - rocsparse_csr2gebsr_nnz_rank_1 + rocsparse_csr2gebsr_nnz_rank_0_devptr,& + rocsparse_csr2gebsr_nnz_rank_1,& + rocsparse_csr2gebsr_nnz_rank_1_devptr #endif #endif end interface @@ -8227,6 +8237,8 @@ function rocsparse_ell2csr_nnz_(handle,m,n,ell_descr,ell_width,ell_col_ind,csr_d type(c_ptr),value :: csr_nnz end function + module procedure rocsparse_ell2csr_nnz_typed + #ifdef USE_ASSUMED_RANK module procedure rocsparse_ell2csr_nnz_assumed_rank #else @@ -8670,12 +8682,16 @@ function rocsparse_sgebsr2gebsc_buffer_size_(handle,mb,nb,nnzb,bsr_val,bsr_row_p module procedure rocsparse_sgebsr2gebsc_buffer_size_typed #ifdef USE_ASSUMED_RANK - module procedure rocsparse_sgebsr2gebsc_buffer_size_assumed_rank + module procedure & + rocsparse_sgebsr2gebsc_buffer_size_assumed_rank,& + rocsparse_sgebsr2gebsc_buffer_size_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocsparse_sgebsr2gebsc_buffer_size_rank_0,& - rocsparse_sgebsr2gebsc_buffer_size_rank_1 + rocsparse_sgebsr2gebsc_buffer_size_rank_0_devptr,& + rocsparse_sgebsr2gebsc_buffer_size_rank_1,& + rocsparse_sgebsr2gebsc_buffer_size_rank_1_devptr #endif #endif end interface @@ -8703,12 +8719,16 @@ function rocsparse_dgebsr2gebsc_buffer_size_(handle,mb,nb,nnzb,bsr_val,bsr_row_p module procedure rocsparse_dgebsr2gebsc_buffer_size_typed #ifdef USE_ASSUMED_RANK - module procedure rocsparse_dgebsr2gebsc_buffer_size_assumed_rank + module procedure & + rocsparse_dgebsr2gebsc_buffer_size_assumed_rank,& + rocsparse_dgebsr2gebsc_buffer_size_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocsparse_dgebsr2gebsc_buffer_size_rank_0,& - rocsparse_dgebsr2gebsc_buffer_size_rank_1 + rocsparse_dgebsr2gebsc_buffer_size_rank_0_devptr,& + rocsparse_dgebsr2gebsc_buffer_size_rank_1,& + rocsparse_dgebsr2gebsc_buffer_size_rank_1_devptr #endif #endif end interface @@ -8736,12 +8756,16 @@ function rocsparse_cgebsr2gebsc_buffer_size_(handle,mb,nb,nnzb,bsr_val,bsr_row_p module procedure rocsparse_cgebsr2gebsc_buffer_size_typed #ifdef USE_ASSUMED_RANK - module procedure rocsparse_cgebsr2gebsc_buffer_size_assumed_rank + module procedure & + rocsparse_cgebsr2gebsc_buffer_size_assumed_rank,& + rocsparse_cgebsr2gebsc_buffer_size_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocsparse_cgebsr2gebsc_buffer_size_rank_0,& - rocsparse_cgebsr2gebsc_buffer_size_rank_1 + rocsparse_cgebsr2gebsc_buffer_size_rank_0_devptr,& + rocsparse_cgebsr2gebsc_buffer_size_rank_1,& + rocsparse_cgebsr2gebsc_buffer_size_rank_1_devptr #endif #endif end interface @@ -8769,12 +8793,16 @@ function rocsparse_zgebsr2gebsc_buffer_size_(handle,mb,nb,nnzb,bsr_val,bsr_row_p module procedure rocsparse_zgebsr2gebsc_buffer_size_typed #ifdef USE_ASSUMED_RANK - module procedure rocsparse_zgebsr2gebsc_buffer_size_assumed_rank + module procedure & + rocsparse_zgebsr2gebsc_buffer_size_assumed_rank,& + rocsparse_zgebsr2gebsc_buffer_size_assumed_rank_devptr #else #ifdef USE_ASSUMED_SHAPE module procedure & rocsparse_zgebsr2gebsc_buffer_size_rank_0,& - rocsparse_zgebsr2gebsc_buffer_size_rank_1 + rocsparse_zgebsr2gebsc_buffer_size_rank_0_devptr,& + rocsparse_zgebsr2gebsc_buffer_size_rank_1,& + rocsparse_zgebsr2gebsc_buffer_size_rank_1_devptr #endif #endif end interface @@ -10071,6 +10099,8 @@ function rocsparse_snnz_compress_(handle,m,descr_A,csr_val_A,csr_row_ptr_A,nnz_p real(c_float),value :: tol end function + module procedure rocsparse_snnz_compress_typed + #ifdef USE_ASSUMED_RANK module procedure rocsparse_snnz_compress_assumed_rank #else @@ -10100,6 +10130,8 @@ function rocsparse_dnnz_compress_(handle,m,descr_A,csr_val_A,csr_row_ptr_A,nnz_p real(c_double),value :: tol end function + module procedure rocsparse_dnnz_compress_typed + #ifdef USE_ASSUMED_RANK module procedure rocsparse_dnnz_compress_assumed_rank #else @@ -10129,6 +10161,8 @@ function rocsparse_cnnz_compress_(handle,m,descr_A,csr_val_A,csr_row_ptr_A,nnz_p complex(c_float_complex),value :: tol end function + module procedure rocsparse_cnnz_compress_typed + #ifdef USE_ASSUMED_RANK module procedure rocsparse_cnnz_compress_assumed_rank #else @@ -10158,6 +10192,8 @@ function rocsparse_znnz_compress_(handle,m,descr_A,csr_val_A,csr_row_ptr_A,nnz_p complex(c_double_complex),value :: tol end function + module procedure rocsparse_znnz_compress_typed + #ifdef USE_ASSUMED_RANK module procedure rocsparse_znnz_compress_assumed_rank #else @@ -11765,6 +11801,8 @@ function rocsparse_bsrgeam_nnzb_(handle,dir,mb,nb,block_dim,descr_A,nnzb_A,bsr_r type(c_ptr),value :: bsr_row_ptr_C type(c_ptr),value :: nnzb_C end function + + module procedure rocsparse_bsrgeam_nnzb_typed end interface !> \ingroup extra_module @@ -12345,6 +12383,8 @@ function rocsparse_bsrgemm_nnzb_(handle,dir,trans_A,trans_B,mb,nb,kb,block_dim,d type(c_ptr),value :: info_C type(c_ptr),value :: temp_buffer end function + + module procedure rocsparse_bsrgemm_nnzb_typed end interface !> \ingroup extra_module @@ -12745,6 +12785,8 @@ function rocsparse_csrgeam_nnz_(handle,m,n,descr_A,nnz_A,csr_row_ptr_A,csr_col_i type(c_ptr),value :: nnz_C end function + module procedure rocsparse_csrgeam_nnz_typed + #ifdef USE_ASSUMED_RANK module procedure rocsparse_csrgeam_nnz_assumed_rank #else @@ -13389,6 +13431,8 @@ function rocsparse_csrgemm_nnz_(handle,trans_A,trans_B,m,n,k,descr_A,nnz_A,csr_r type(c_ptr),value :: temp_buffer end function + module procedure rocsparse_csrgemm_nnz_typed + #ifdef USE_ASSUMED_RANK module procedure rocsparse_csrgemm_nnz_assumed_rank #else @@ -15880,7 +15924,7 @@ function rocsparse_spgeam_buffer_size_(handle,descr,mat_A,mat_B,mat_C,stage,buff type(c_ptr),value :: mat_C integer(kind(rocsparse_spgeam_stage_analysis)),value :: stage type(c_ptr),value :: buffer_size - type(c_ptr) :: error + type(c_ptr), optional :: error end function module procedure rocsparse_spgeam_buffer_size_typed @@ -16066,7 +16110,7 @@ function rocsparse_spgeam_(handle,descr,mat_A,mat_B,mat_C,stage,buffer_size,temp integer(kind(rocsparse_spgeam_stage_analysis)),value :: stage integer(c_size_t),value :: buffer_size type(c_ptr),value :: temp_buffer - type(c_ptr) :: error + type(c_ptr), optional :: error end function end interface @@ -18253,7 +18297,7 @@ function rocsparse_v2_spmv_buffer_size_(handle,descr,mat,x,y,stage,buffer_size_i type(c_ptr),value :: y integer(kind(rocsparse_v2_spmv_stage_analysis)),value :: stage type(c_ptr),value :: buffer_size_in_bytes - type(c_ptr) :: error + type(c_ptr), optional :: error end function module procedure rocsparse_v2_spmv_buffer_size_typed @@ -18465,7 +18509,7 @@ function rocsparse_v2_spmv_(handle,descr,alpha,mat,x,beta,y,stage,buffer_size_in integer(kind(rocsparse_v2_spmv_stage_analysis)),value :: stage integer(c_size_t),value :: buffer_size_in_bytes type(c_ptr),value :: buffer - type(c_ptr) :: error + type(c_ptr), optional :: error end function end interface @@ -18776,6 +18820,8 @@ function rocsparse_cdotci_(handle,nnz,x_val,x_ind,y,myResult,idx_base) & integer(kind(rocsparse_index_base_zero)),value :: idx_base end function + module procedure rocsparse_cdotci_typed + #ifdef USE_ASSUMED_RANK module procedure rocsparse_cdotci_assumed_rank #else @@ -18803,6 +18849,8 @@ function rocsparse_zdotci_(handle,nnz,x_val,x_ind,y,myResult,idx_base) & integer(kind(rocsparse_index_base_zero)),value :: idx_base end function + module procedure rocsparse_zdotci_typed + #ifdef USE_ASSUMED_RANK module procedure rocsparse_zdotci_assumed_rank #else @@ -18875,6 +18923,8 @@ function rocsparse_sdoti_(handle,nnz,x_val,x_ind,y,myResult,idx_base) & integer(kind(rocsparse_index_base_zero)),value :: idx_base end function + module procedure rocsparse_sdoti_typed + #ifdef USE_ASSUMED_RANK module procedure rocsparse_sdoti_assumed_rank #else @@ -18902,6 +18952,8 @@ function rocsparse_ddoti_(handle,nnz,x_val,x_ind,y,myResult,idx_base) & integer(kind(rocsparse_index_base_zero)),value :: idx_base end function + module procedure rocsparse_ddoti_typed + #ifdef USE_ASSUMED_RANK module procedure rocsparse_ddoti_assumed_rank #else @@ -18929,6 +18981,8 @@ function rocsparse_cdoti_(handle,nnz,x_val,x_ind,y,myResult,idx_base) & integer(kind(rocsparse_index_base_zero)),value :: idx_base end function + module procedure rocsparse_cdoti_typed + #ifdef USE_ASSUMED_RANK module procedure rocsparse_cdoti_assumed_rank #else @@ -18956,6 +19010,8 @@ function rocsparse_zdoti_(handle,nnz,x_val,x_ind,y,myResult,idx_base) & integer(kind(rocsparse_index_base_zero)),value :: idx_base end function + module procedure rocsparse_zdoti_typed + #ifdef USE_ASSUMED_RANK module procedure rocsparse_zdoti_assumed_rank #else @@ -21175,6 +21231,8 @@ function rocsparse_csritsv_zero_pivot_(handle,descr,myInfo,position) & type(c_ptr),value :: myInfo type(c_ptr),value :: position end function + + module procedure rocsparse_csritsv_zero_pivot_typed end interface !> \ingroup level2_module @@ -28610,6 +28668,8 @@ function rocsparse_csric0_singular_pivot_(handle,myInfo,position) & type(c_ptr),value :: myInfo type(c_ptr),value :: position end function + + module procedure rocsparse_csric0_singular_pivot_typed end interface !> \ingroup precond_module @@ -29522,6 +29582,8 @@ function rocsparse_csrilu0_singular_pivot_(handle,myInfo,position) & type(c_ptr),value :: myInfo type(c_ptr),value :: position end function + + module procedure rocsparse_csrilu0_singular_pivot_typed end interface !> \ingroup precond_module @@ -35743,6 +35805,28 @@ function rocsparse_cscsort_buffer_size_typed(handle,m,n,nnz,csc_col_ptr,csc_row_ csc_col_ptr,csc_row_ind,c_loc(buffer_size)) end function + function rocsparse_csr2bsr_nnz_typed(handle,dir,m,n,csr_descr,csr_row_ptr,csr_col_ind, & + block_dim,bsr_descr,bsr_row_ptr,bsr_nnz) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_csr2bsr_nnz_typed + type(c_ptr) :: handle + integer(kind(rocsparse_direction_row)) :: dir + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: csr_descr + type(c_ptr) :: csr_row_ptr + type(c_ptr) :: csr_col_ind + integer(c_int) :: block_dim + type(c_ptr) :: bsr_descr + type(c_ptr) :: bsr_row_ptr + integer(c_int),target :: bsr_nnz + ! + rocsparse_csr2bsr_nnz_typed = rocsparse_csr2bsr_nnz_(handle,dir,m,n,csr_descr,csr_row_ptr, & + csr_col_ind,block_dim,bsr_descr,bsr_row_ptr,c_loc(bsr_nnz)) + end function + function rocsparse_csr2csc_buffer_size_typed(handle,m,n,nnz,csr_row_ptr,csr_col_ind, & copy_values,buffer_size) use iso_c_binding @@ -35762,6 +35846,22 @@ function rocsparse_csr2csc_buffer_size_typed(handle,m,n,nnz,csr_row_ptr,csr_col_ csr_row_ptr,csr_col_ind,copy_values,c_loc(buffer_size)) end function + function rocsparse_csr2ell_width_typed(handle,m,csr_descr,csr_row_ptr,ell_descr,ell_width) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_csr2ell_width_typed + type(c_ptr) :: handle + integer(c_int) :: m + type(c_ptr) :: csr_descr + type(c_ptr) :: csr_row_ptr + type(c_ptr) :: ell_descr + integer(c_int),target :: ell_width + ! + rocsparse_csr2ell_width_typed = rocsparse_csr2ell_width_(handle,m,csr_descr,csr_row_ptr, & + ell_descr,c_loc(ell_width)) + end function + function rocsparse_scsr2gebsr_buffer_size_typed(handle,dir,m,n,csr_descr,csr_val,csr_row_ptr, & csr_col_ind,row_block_dim,col_block_dim,buffer_size) use iso_c_binding @@ -35850,6 +35950,31 @@ function rocsparse_zcsr2gebsr_buffer_size_typed(handle,dir,m,n,csr_descr,csr_val csr_descr,csr_val,csr_row_ptr,csr_col_ind,row_block_dim,col_block_dim,c_loc(buffer_size)) end function + function rocsparse_csr2gebsr_nnz_typed(handle,dir,m,n,csr_descr,csr_row_ptr,csr_col_ind, & + bsr_descr,bsr_row_ptr,row_block_dim,col_block_dim,bsr_nnz_devhost,temp_buffer) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_csr2gebsr_nnz_typed + type(c_ptr) :: handle + integer(kind(rocsparse_direction_row)) :: dir + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: csr_descr + type(c_ptr) :: csr_row_ptr + type(c_ptr) :: csr_col_ind + type(c_ptr) :: bsr_descr + type(c_ptr) :: bsr_row_ptr + integer(c_int) :: row_block_dim + integer(c_int) :: col_block_dim + integer(c_int),target :: bsr_nnz_devhost + type(c_ptr) :: temp_buffer + ! + rocsparse_csr2gebsr_nnz_typed = rocsparse_csr2gebsr_nnz_(handle,dir,m,n,csr_descr, & + csr_row_ptr,csr_col_ind,bsr_descr,bsr_row_ptr,row_block_dim,col_block_dim, & + c_loc(bsr_nnz_devhost),temp_buffer) + end function + function rocsparse_csrsort_buffer_size_typed(handle,m,n,nnz,csr_row_ptr,csr_col_ind,buffer_size) use iso_c_binding use hipfort_rocsparse_enums @@ -35867,6 +35992,26 @@ function rocsparse_csrsort_buffer_size_typed(handle,m,n,nnz,csr_row_ptr,csr_col_ csr_row_ptr,csr_col_ind,c_loc(buffer_size)) end function + function rocsparse_ell2csr_nnz_typed(handle,m,n,ell_descr,ell_width,ell_col_ind,csr_descr, & + csr_row_ptr,csr_nnz) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_ell2csr_nnz_typed + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: ell_descr + integer(c_int) :: ell_width + type(c_ptr) :: ell_col_ind + type(c_ptr) :: csr_descr + type(c_ptr) :: csr_row_ptr + integer(c_int),target :: csr_nnz + ! + rocsparse_ell2csr_nnz_typed = rocsparse_ell2csr_nnz_(handle,m,n,ell_descr,ell_width, & + ell_col_ind,csr_descr,csr_row_ptr,c_loc(csr_nnz)) + end function + function rocsparse_sgebsr2gebsc_buffer_size_typed(handle,mb,nb,nnzb,bsr_val,bsr_row_ptr, & bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) use iso_c_binding @@ -36183,6 +36328,82 @@ function rocsparse_znnz_typed(handle,dir,m,n,descr,A,ld,nnz_per_row_columns, & c_loc(nnz_total_dev_host_ptr)) end function + function rocsparse_snnz_compress_typed(handle,m,descr_A,csr_val_A,csr_row_ptr_A,nnz_per_row, & + nnz_C,tol) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_snnz_compress_typed + type(c_ptr) :: handle + integer(c_int) :: m + type(c_ptr) :: descr_A + type(c_ptr) :: csr_val_A + type(c_ptr) :: csr_row_ptr_A + type(c_ptr) :: nnz_per_row + integer(c_int),target :: nnz_C + real(c_float) :: tol + ! + rocsparse_snnz_compress_typed = rocsparse_snnz_compress_(handle,m,descr_A,csr_val_A, & + csr_row_ptr_A,nnz_per_row,c_loc(nnz_C),tol) + end function + + function rocsparse_dnnz_compress_typed(handle,m,descr_A,csr_val_A,csr_row_ptr_A,nnz_per_row, & + nnz_C,tol) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_dnnz_compress_typed + type(c_ptr) :: handle + integer(c_int) :: m + type(c_ptr) :: descr_A + type(c_ptr) :: csr_val_A + type(c_ptr) :: csr_row_ptr_A + type(c_ptr) :: nnz_per_row + integer(c_int),target :: nnz_C + real(c_double) :: tol + ! + rocsparse_dnnz_compress_typed = rocsparse_dnnz_compress_(handle,m,descr_A,csr_val_A, & + csr_row_ptr_A,nnz_per_row,c_loc(nnz_C),tol) + end function + + function rocsparse_cnnz_compress_typed(handle,m,descr_A,csr_val_A,csr_row_ptr_A,nnz_per_row, & + nnz_C,tol) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_cnnz_compress_typed + type(c_ptr) :: handle + integer(c_int) :: m + type(c_ptr) :: descr_A + type(c_ptr) :: csr_val_A + type(c_ptr) :: csr_row_ptr_A + type(c_ptr) :: nnz_per_row + integer(c_int),target :: nnz_C + complex(c_float_complex) :: tol + ! + rocsparse_cnnz_compress_typed = rocsparse_cnnz_compress_(handle,m,descr_A,csr_val_A, & + csr_row_ptr_A,nnz_per_row,c_loc(nnz_C),tol) + end function + + function rocsparse_znnz_compress_typed(handle,m,descr_A,csr_val_A,csr_row_ptr_A,nnz_per_row, & + nnz_C,tol) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_znnz_compress_typed + type(c_ptr) :: handle + integer(c_int) :: m + type(c_ptr) :: descr_A + type(c_ptr) :: csr_val_A + type(c_ptr) :: csr_row_ptr_A + type(c_ptr) :: nnz_per_row + integer(c_int),target :: nnz_C + complex(c_double_complex) :: tol + ! + rocsparse_znnz_compress_typed = rocsparse_znnz_compress_(handle,m,descr_A,csr_val_A, & + csr_row_ptr_A,nnz_per_row,c_loc(nnz_C),tol) + end function + function rocsparse_sprune_csr2csr_buffer_size_typed(handle,m,n,nnz_A,csr_descr_A,csr_val_A, & csr_row_ptr_A,csr_col_ind_A,threshold,csr_descr_C,csr_val_C,csr_row_ptr_C,csr_col_ind_C, & buffer_size) @@ -36777,6 +36998,34 @@ function rocsparse_dprune_dense2csr_nnz_by_percentage_typed(handle,m,n,A,lda,per csr_row_ptr,c_loc(nnz_total_dev_host_ptr),myInfo,temp_buffer) end function + function rocsparse_bsrgeam_nnzb_typed(handle,dir,mb,nb,block_dim,descr_A,nnzb_A,bsr_row_ptr_A, & + bsr_col_ind_A,descr_B,nnzb_B,bsr_row_ptr_B,bsr_col_ind_B,descr_C,bsr_row_ptr_C,nnzb_C) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_bsrgeam_nnzb_typed + type(c_ptr) :: handle + integer(kind(rocsparse_direction_row)) :: dir + integer(c_int) :: mb + integer(c_int) :: nb + integer(c_int) :: block_dim + type(c_ptr) :: descr_A + integer(c_int) :: nnzb_A + type(c_ptr) :: bsr_row_ptr_A + type(c_ptr) :: bsr_col_ind_A + type(c_ptr) :: descr_B + integer(c_int) :: nnzb_B + type(c_ptr) :: bsr_row_ptr_B + type(c_ptr) :: bsr_col_ind_B + type(c_ptr) :: descr_C + type(c_ptr) :: bsr_row_ptr_C + integer(c_int),target :: nnzb_C + ! + rocsparse_bsrgeam_nnzb_typed = rocsparse_bsrgeam_nnzb_(handle,dir,mb,nb,block_dim,descr_A, & + nnzb_A,bsr_row_ptr_A,bsr_col_ind_A,descr_B,nnzb_B,bsr_row_ptr_B,bsr_col_ind_B,descr_C, & + bsr_row_ptr_C,c_loc(nnzb_C)) + end function + function rocsparse_sbsrgeam_typed(handle,dir,mb,nb,block_dim,alpha,descr_A,nnzb_A,bsr_val_A, & bsr_row_ptr_A,bsr_col_ind_A,beta,descr_B,nnzb_B,bsr_val_B,bsr_row_ptr_B,bsr_col_ind_B, & descr_C,bsr_val_C,bsr_row_ptr_C,bsr_col_ind_C) @@ -37065,6 +37314,45 @@ function rocsparse_zbsrgemm_buffer_size_typed(handle,dir,trans_A,trans_B,mb,nb,k c_loc(buffer_size)) end function + function rocsparse_bsrgemm_nnzb_typed(handle,dir,trans_A,trans_B,mb,nb,kb,block_dim,descr_A, & + nnzb_A,bsr_row_ptr_A,bsr_col_ind_A,descr_B,nnzb_B,bsr_row_ptr_B,bsr_col_ind_B,descr_D, & + nnzb_D,bsr_row_ptr_D,bsr_col_ind_D,descr_C,bsr_row_ptr_C,nnzb_C,info_C,temp_buffer) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_bsrgemm_nnzb_typed + type(c_ptr) :: handle + integer(kind(rocsparse_direction_row)) :: dir + integer(kind(rocsparse_operation_none)) :: trans_A + integer(kind(rocsparse_operation_none)) :: trans_B + integer(c_int) :: mb + integer(c_int) :: nb + integer(c_int) :: kb + integer(c_int) :: block_dim + type(c_ptr) :: descr_A + integer(c_int) :: nnzb_A + type(c_ptr) :: bsr_row_ptr_A + type(c_ptr) :: bsr_col_ind_A + type(c_ptr) :: descr_B + integer(c_int) :: nnzb_B + type(c_ptr) :: bsr_row_ptr_B + type(c_ptr) :: bsr_col_ind_B + type(c_ptr) :: descr_D + integer(c_int) :: nnzb_D + type(c_ptr) :: bsr_row_ptr_D + type(c_ptr) :: bsr_col_ind_D + type(c_ptr) :: descr_C + type(c_ptr) :: bsr_row_ptr_C + integer(c_int),target :: nnzb_C + type(c_ptr) :: info_C + type(c_ptr) :: temp_buffer + ! + rocsparse_bsrgemm_nnzb_typed = rocsparse_bsrgemm_nnzb_(handle,dir,trans_A,trans_B,mb,nb,kb, & + block_dim,descr_A,nnzb_A,bsr_row_ptr_A,bsr_col_ind_A,descr_B,nnzb_B,bsr_row_ptr_B, & + bsr_col_ind_B,descr_D,nnzb_D,bsr_row_ptr_D,bsr_col_ind_D,descr_C,bsr_row_ptr_C, & + c_loc(nnzb_C),info_C,temp_buffer) + end function + function rocsparse_sbsrgemm_typed(handle,dir,trans_A,trans_B,mb,nb,kb,block_dim,alpha,descr_A, & nnzb_A,bsr_val_A,bsr_row_ptr_A,bsr_col_ind_A,descr_B,nnzb_B,bsr_val_B,bsr_row_ptr_B, & bsr_col_ind_B,beta,descr_D,nnzb_D,bsr_val_D,bsr_row_ptr_D,bsr_col_ind_D,descr_C,bsr_val_C, & @@ -37253,6 +37541,31 @@ function rocsparse_zbsrgemm_typed(handle,dir,trans_A,trans_B,mb,nb,kb,block_dim, temp_buffer) end function + function rocsparse_csrgeam_nnz_typed(handle,m,n,descr_A,nnz_A,csr_row_ptr_A,csr_col_ind_A, & + descr_B,nnz_B,csr_row_ptr_B,csr_col_ind_B,descr_C,csr_row_ptr_C,nnz_C) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_csrgeam_nnz_typed + type(c_ptr) :: handle + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: descr_A + integer(c_int) :: nnz_A + type(c_ptr) :: csr_row_ptr_A + type(c_ptr) :: csr_col_ind_A + type(c_ptr) :: descr_B + integer(c_int) :: nnz_B + type(c_ptr) :: csr_row_ptr_B + type(c_ptr) :: csr_col_ind_B + type(c_ptr) :: descr_C + type(c_ptr) :: csr_row_ptr_C + integer(c_int),target :: nnz_C + ! + rocsparse_csrgeam_nnz_typed = rocsparse_csrgeam_nnz_(handle,m,n,descr_A,nnz_A,csr_row_ptr_A, & + csr_col_ind_A,descr_B,nnz_B,csr_row_ptr_B,csr_col_ind_B,descr_C,csr_row_ptr_C,c_loc(nnz_C)) + end function + function rocsparse_scsrgeam_typed(handle,m,n,alpha,descr_A,nnz_A,csr_val_A,csr_row_ptr_A, & csr_col_ind_A,beta,descr_B,nnz_B,csr_val_B,csr_row_ptr_B,csr_col_ind_B,descr_C,csr_val_C, & csr_row_ptr_C,csr_col_ind_C) @@ -37665,6 +37978,42 @@ function rocsparse_zcsrgemm_buffer_size_devptr(handle,trans_A,trans_B,m,n,k,alph csr_col_ind_B,beta,descr_D,nnz_D,csr_row_ptr_D,csr_col_ind_D,info_C,c_loc(buffer_size)) end function + function rocsparse_csrgemm_nnz_typed(handle,trans_A,trans_B,m,n,k,descr_A,nnz_A,csr_row_ptr_A, & + csr_col_ind_A,descr_B,nnz_B,csr_row_ptr_B,csr_col_ind_B,descr_D,nnz_D,csr_row_ptr_D, & + csr_col_ind_D,descr_C,csr_row_ptr_C,nnz_C,info_C,temp_buffer) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_csrgemm_nnz_typed + type(c_ptr) :: handle + integer(kind(rocsparse_operation_none)) :: trans_A + integer(kind(rocsparse_operation_none)) :: trans_B + integer(c_int) :: m + integer(c_int) :: n + integer(c_int) :: k + type(c_ptr) :: descr_A + integer(c_int) :: nnz_A + type(c_ptr) :: csr_row_ptr_A + type(c_ptr) :: csr_col_ind_A + type(c_ptr) :: descr_B + integer(c_int) :: nnz_B + type(c_ptr) :: csr_row_ptr_B + type(c_ptr) :: csr_col_ind_B + type(c_ptr) :: descr_D + integer(c_int) :: nnz_D + type(c_ptr) :: csr_row_ptr_D + type(c_ptr) :: csr_col_ind_D + type(c_ptr) :: descr_C + type(c_ptr) :: csr_row_ptr_C + integer(c_int),target :: nnz_C + type(c_ptr) :: info_C + type(c_ptr) :: temp_buffer + ! + rocsparse_csrgemm_nnz_typed = rocsparse_csrgemm_nnz_(handle,trans_A,trans_B,m,n,k,descr_A, & + nnz_A,csr_row_ptr_A,csr_col_ind_A,descr_B,nnz_B,csr_row_ptr_B,csr_col_ind_B,descr_D,nnz_D, & + csr_row_ptr_D,csr_col_ind_D,descr_C,csr_row_ptr_C,c_loc(nnz_C),info_C,temp_buffer) + end function + function rocsparse_scsrgemm_typed(handle,trans_A,trans_B,m,n,k,alpha,descr_A,nnz_A,csr_val_A, & csr_row_ptr_A,csr_col_ind_A,descr_B,nnz_B,csr_val_B,csr_row_ptr_B,csr_col_ind_B,beta, & descr_D,nnz_D,csr_val_D,csr_row_ptr_D,csr_col_ind_D,descr_C,csr_val_C,csr_row_ptr_C, & @@ -38150,7 +38499,7 @@ function rocsparse_spgeam_buffer_size_typed(handle,descr,mat_A,mat_B,mat_C,stage type(c_ptr) :: mat_C integer(kind(rocsparse_spgeam_stage_analysis)) :: stage integer(c_size_t),target :: buffer_size - type(c_ptr) :: error + type(c_ptr), optional :: error ! rocsparse_spgeam_buffer_size_typed = rocsparse_spgeam_buffer_size_(handle,descr,mat_A,mat_B, & mat_C,stage,c_loc(buffer_size),error) @@ -38421,7 +38770,7 @@ function rocsparse_v2_spmv_buffer_size_typed(handle,descr,mat,x,y,stage,buffer_s type(c_ptr) :: y integer(kind(rocsparse_v2_spmv_stage_analysis)) :: stage integer(c_size_t),target :: buffer_size_in_bytes - type(c_ptr) :: error + type(c_ptr), optional :: error ! rocsparse_v2_spmv_buffer_size_typed = rocsparse_v2_spmv_buffer_size_(handle,descr,mat,x,y, & stage,c_loc(buffer_size_in_bytes),error) @@ -38491,6 +38840,102 @@ function rocsparse_zaxpyi_typed(handle,nnz,alpha,x_val,x_ind,y,idx_base) rocsparse_zaxpyi_typed = rocsparse_zaxpyi_(handle,nnz,c_loc(alpha),x_val,x_ind,y,idx_base) end function + function rocsparse_cdotci_typed(handle,nnz,x_val,x_ind,y,myResult,idx_base) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_cdotci_typed + type(c_ptr) :: handle + integer(c_int) :: nnz + type(c_ptr) :: x_val + type(c_ptr) :: x_ind + type(c_ptr) :: y + complex(c_float_complex),target :: myResult + integer(kind(rocsparse_index_base_zero)) :: idx_base + ! + rocsparse_cdotci_typed = rocsparse_cdotci_(handle,nnz,x_val,x_ind,y,c_loc(myResult),idx_base) + end function + + function rocsparse_zdotci_typed(handle,nnz,x_val,x_ind,y,myResult,idx_base) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_zdotci_typed + type(c_ptr) :: handle + integer(c_int) :: nnz + type(c_ptr) :: x_val + type(c_ptr) :: x_ind + type(c_ptr) :: y + complex(c_double_complex),target :: myResult + integer(kind(rocsparse_index_base_zero)) :: idx_base + ! + rocsparse_zdotci_typed = rocsparse_zdotci_(handle,nnz,x_val,x_ind,y,c_loc(myResult),idx_base) + end function + + function rocsparse_sdoti_typed(handle,nnz,x_val,x_ind,y,myResult,idx_base) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_sdoti_typed + type(c_ptr) :: handle + integer(c_int) :: nnz + type(c_ptr) :: x_val + type(c_ptr) :: x_ind + type(c_ptr) :: y + real(c_float),target :: myResult + integer(kind(rocsparse_index_base_zero)) :: idx_base + ! + rocsparse_sdoti_typed = rocsparse_sdoti_(handle,nnz,x_val,x_ind,y,c_loc(myResult),idx_base) + end function + + function rocsparse_ddoti_typed(handle,nnz,x_val,x_ind,y,myResult,idx_base) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_ddoti_typed + type(c_ptr) :: handle + integer(c_int) :: nnz + type(c_ptr) :: x_val + type(c_ptr) :: x_ind + type(c_ptr) :: y + real(c_double),target :: myResult + integer(kind(rocsparse_index_base_zero)) :: idx_base + ! + rocsparse_ddoti_typed = rocsparse_ddoti_(handle,nnz,x_val,x_ind,y,c_loc(myResult),idx_base) + end function + + function rocsparse_cdoti_typed(handle,nnz,x_val,x_ind,y,myResult,idx_base) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_cdoti_typed + type(c_ptr) :: handle + integer(c_int) :: nnz + type(c_ptr) :: x_val + type(c_ptr) :: x_ind + type(c_ptr) :: y + complex(c_float_complex),target :: myResult + integer(kind(rocsparse_index_base_zero)) :: idx_base + ! + rocsparse_cdoti_typed = rocsparse_cdoti_(handle,nnz,x_val,x_ind,y,c_loc(myResult),idx_base) + end function + + function rocsparse_zdoti_typed(handle,nnz,x_val,x_ind,y,myResult,idx_base) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_zdoti_typed + type(c_ptr) :: handle + integer(c_int) :: nnz + type(c_ptr) :: x_val + type(c_ptr) :: x_ind + type(c_ptr) :: y + complex(c_double_complex),target :: myResult + integer(kind(rocsparse_index_base_zero)) :: idx_base + ! + rocsparse_zdoti_typed = rocsparse_zdoti_(handle,nnz,x_val,x_ind,y,c_loc(myResult),idx_base) + end function + function rocsparse_sroti_typed(handle,nnz,x_val,x_ind,y,c,s,idx_base) use iso_c_binding use hipfort_rocsparse_enums @@ -39061,6 +39506,20 @@ function rocsparse_zcoomv_typed(handle,trans,m,n,nnz,alpha,descr,coo_val,coo_row coo_row_ind,coo_col_ind,x,c_loc(beta),y) end function + function rocsparse_csritsv_zero_pivot_typed(handle,descr,myInfo,position) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_csritsv_zero_pivot_typed + type(c_ptr) :: handle + type(c_ptr) :: descr + type(c_ptr) :: myInfo + integer(c_int),target :: position + ! + rocsparse_csritsv_zero_pivot_typed = rocsparse_csritsv_zero_pivot_(handle,descr,myInfo, & + c_loc(position)) + end function + function rocsparse_scsritsv_buffer_size_typed(handle,trans,m,nnz,descr,csr_val,csr_row_ptr, & csr_col_ind,myInfo,buffer_size) use iso_c_binding @@ -41840,6 +42299,19 @@ function rocsparse_csric0_zero_pivot_typed(handle,myInfo,position) c_loc(position)) end function + function rocsparse_csric0_singular_pivot_typed(handle,myInfo,position) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_csric0_singular_pivot_typed + type(c_ptr) :: handle + type(c_ptr) :: myInfo + integer(c_int),target :: position + ! + rocsparse_csric0_singular_pivot_typed = rocsparse_csric0_singular_pivot_(handle,myInfo, & + c_loc(position)) + end function + function rocsparse_csric0_get_tolerance_typed(handle,myInfo,tolerance) use iso_c_binding use hipfort_rocsparse_enums @@ -41959,6 +42431,19 @@ function rocsparse_csrilu0_get_tolerance_typed(handle,myInfo,tolerance) c_loc(tolerance)) end function + function rocsparse_csrilu0_singular_pivot_typed(handle,myInfo,position) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_csrilu0_singular_pivot_typed + type(c_ptr) :: handle + type(c_ptr) :: myInfo + integer(c_int),target :: position + ! + rocsparse_csrilu0_singular_pivot_typed = rocsparse_csrilu0_singular_pivot_(handle,myInfo, & + c_loc(position)) + end function + function rocsparse_scsrilu0_numeric_boost_typed(handle,myInfo,enable_boost,boost_tol,boost_val) use iso_c_binding use hipfort_rocsparse_enums @@ -42586,13 +43071,12 @@ function rocsparse_scsrcolor_typed(handle,m,nnz,descr,csr_val,csr_row_ptr,csr_co type(c_ptr) :: csr_col_ind real(c_float),target :: fraction_to_color integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + type(c_ptr) :: coloring + type(c_ptr) :: reordering type(c_ptr) :: myInfo ! rocsparse_scsrcolor_typed = rocsparse_scsrcolor_(handle,m,nnz,descr,csr_val,csr_row_ptr, & - csr_col_ind,c_loc(fraction_to_color),c_loc(ncolors),c_loc(coloring),c_loc(reordering), & - myInfo) + csr_col_ind,c_loc(fraction_to_color),c_loc(ncolors),coloring,reordering,myInfo) end function function rocsparse_dcsrcolor_typed(handle,m,nnz,descr,csr_val,csr_row_ptr,csr_col_ind, & @@ -42610,13 +43094,12 @@ function rocsparse_dcsrcolor_typed(handle,m,nnz,descr,csr_val,csr_row_ptr,csr_co type(c_ptr) :: csr_col_ind real(c_double),target :: fraction_to_color integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + type(c_ptr) :: coloring + type(c_ptr) :: reordering type(c_ptr) :: myInfo ! rocsparse_dcsrcolor_typed = rocsparse_dcsrcolor_(handle,m,nnz,descr,csr_val,csr_row_ptr, & - csr_col_ind,c_loc(fraction_to_color),c_loc(ncolors),c_loc(coloring),c_loc(reordering), & - myInfo) + csr_col_ind,c_loc(fraction_to_color),c_loc(ncolors),coloring,reordering,myInfo) end function function rocsparse_ccsrcolor_typed(handle,m,nnz,descr,csr_val,csr_row_ptr,csr_col_ind, & @@ -42634,13 +43117,12 @@ function rocsparse_ccsrcolor_typed(handle,m,nnz,descr,csr_val,csr_row_ptr,csr_co type(c_ptr) :: csr_col_ind real(c_float),target :: fraction_to_color integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + type(c_ptr) :: coloring + type(c_ptr) :: reordering type(c_ptr) :: myInfo ! rocsparse_ccsrcolor_typed = rocsparse_ccsrcolor_(handle,m,nnz,descr,csr_val,csr_row_ptr, & - csr_col_ind,c_loc(fraction_to_color),c_loc(ncolors),c_loc(coloring),c_loc(reordering), & - myInfo) + csr_col_ind,c_loc(fraction_to_color),c_loc(ncolors),coloring,reordering,myInfo) end function function rocsparse_zcsrcolor_typed(handle,m,nnz,descr,csr_val,csr_row_ptr,csr_col_ind, & @@ -42658,13 +43140,12 @@ function rocsparse_zcsrcolor_typed(handle,m,nnz,descr,csr_val,csr_row_ptr,csr_co type(c_ptr) :: csr_col_ind real(c_double),target :: fraction_to_color integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + type(c_ptr) :: coloring + type(c_ptr) :: reordering type(c_ptr) :: myInfo ! rocsparse_zcsrcolor_typed = rocsparse_zcsrcolor_(handle,m,nnz,descr,csr_val,csr_row_ptr, & - csr_col_ind,c_loc(fraction_to_color),c_loc(ncolors),c_loc(coloring),c_loc(reordering), & - myInfo) + csr_col_ind,c_loc(fraction_to_color),c_loc(ncolors),coloring,reordering,myInfo) end function function rocsparse_scheck_matrix_coo_buffer_size_typed(handle,m,n,nnz,coo_val,coo_row_ind, & @@ -45258,7 +45739,7 @@ function rocsparse_csr2bsr_nnz_assumed_rank(handle,dir,m,n,csr_descr,csr_row_ptr integer(c_int) :: block_dim type(c_ptr) :: bsr_descr integer(c_int),target,contiguous,dimension(..) :: bsr_row_ptr - integer(c_int),target,contiguous,dimension(..) :: bsr_nnz + integer(c_int),target :: bsr_nnz ! rocsparse_csr2bsr_nnz_assumed_rank = rocsparse_csr2bsr_nnz_(handle,dir,m,n,csr_descr, & c_loc(csr_row_ptr),c_loc(csr_col_ind),block_dim,bsr_descr,c_loc(bsr_row_ptr),c_loc(bsr_nnz)) @@ -45303,7 +45784,7 @@ function rocsparse_csr2bsr_nnz_rank_1(handle,dir,m,n,csr_descr,csr_row_ptr,csr_c integer(c_int) :: block_dim type(c_ptr) :: bsr_descr integer(c_int),target,dimension(:) :: bsr_row_ptr - integer(c_int),target,dimension(:) :: bsr_nnz + integer(c_int),target :: bsr_nnz ! rocsparse_csr2bsr_nnz_rank_1 = rocsparse_csr2bsr_nnz_(handle,dir,m,n,csr_descr, & c_loc(csr_row_ptr),c_loc(csr_col_ind),block_dim,bsr_descr,c_loc(bsr_row_ptr),c_loc(bsr_nnz)) @@ -46689,7 +47170,7 @@ function rocsparse_csr2ell_width_assumed_rank(handle,m,csr_descr,csr_row_ptr,ell type(c_ptr) :: csr_descr integer(c_int),target,contiguous,dimension(..) :: csr_row_ptr type(c_ptr) :: ell_descr - integer(c_int),target,contiguous,dimension(..) :: ell_width + integer(c_int),target :: ell_width ! rocsparse_csr2ell_width_assumed_rank = rocsparse_csr2ell_width_(handle,m,csr_descr, & c_loc(csr_row_ptr),ell_descr,c_loc(ell_width)) @@ -46722,7 +47203,7 @@ function rocsparse_csr2ell_width_rank_1(handle,m,csr_descr,csr_row_ptr,ell_descr type(c_ptr) :: csr_descr integer(c_int),target,dimension(:) :: csr_row_ptr type(c_ptr) :: ell_descr - integer(c_int),target,dimension(:) :: ell_width + integer(c_int),target :: ell_width ! rocsparse_csr2ell_width_rank_1 = rocsparse_csr2ell_width_(handle,m,csr_descr, & c_loc(csr_row_ptr),ell_descr,c_loc(ell_width)) @@ -47299,12 +47780,37 @@ function rocsparse_csr2gebsr_nnz_assumed_rank(handle,dir,m,n,csr_descr,csr_row_p integer(c_int),target,contiguous,dimension(..) :: bsr_row_ptr integer(c_int) :: row_block_dim integer(c_int) :: col_block_dim - type(c_ptr) :: bsr_nnz_devhost + integer(c_int),target :: bsr_nnz_devhost type(c_ptr) :: temp_buffer ! rocsparse_csr2gebsr_nnz_assumed_rank = rocsparse_csr2gebsr_nnz_(handle,dir,m,n,csr_descr, & c_loc(csr_row_ptr),c_loc(csr_col_ind),bsr_descr,c_loc(bsr_row_ptr),row_block_dim, & - col_block_dim,bsr_nnz_devhost,temp_buffer) + col_block_dim,c_loc(bsr_nnz_devhost),temp_buffer) + end function + + function rocsparse_csr2gebsr_nnz_assumed_rank_devptr(handle,dir,m,n,csr_descr,csr_row_ptr, & + csr_col_ind,bsr_descr,bsr_row_ptr,row_block_dim,col_block_dim,bsr_nnz_devhost,temp_buffer) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_csr2gebsr_nnz_assumed_rank_devptr + type(c_ptr) :: handle + integer(kind(rocsparse_direction_row)) :: dir + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: csr_descr + integer(c_int),target,contiguous,dimension(..) :: csr_row_ptr + integer(c_int),target,contiguous,dimension(..) :: csr_col_ind + type(c_ptr) :: bsr_descr + integer(c_int),target,contiguous,dimension(..) :: bsr_row_ptr + integer(c_int) :: row_block_dim + integer(c_int) :: col_block_dim + type(c_ptr),value :: bsr_nnz_devhost + type(c_ptr) :: temp_buffer + ! + rocsparse_csr2gebsr_nnz_assumed_rank_devptr = rocsparse_csr2gebsr_nnz_(handle,dir,m,n, & + csr_descr,c_loc(csr_row_ptr),c_loc(csr_col_ind),bsr_descr,c_loc(bsr_row_ptr), & + row_block_dim,col_block_dim,bsr_nnz_devhost,temp_buffer) end function #else @@ -47325,10 +47831,35 @@ function rocsparse_csr2gebsr_nnz_rank_0(handle,dir,m,n,csr_descr,csr_row_ptr,csr integer(c_int),target :: bsr_row_ptr integer(c_int) :: row_block_dim integer(c_int) :: col_block_dim - type(c_ptr) :: bsr_nnz_devhost + integer(c_int),target :: bsr_nnz_devhost type(c_ptr) :: temp_buffer ! rocsparse_csr2gebsr_nnz_rank_0 = rocsparse_csr2gebsr_nnz_(handle,dir,m,n,csr_descr, & + c_loc(csr_row_ptr),c_loc(csr_col_ind),bsr_descr,c_loc(bsr_row_ptr),row_block_dim, & + col_block_dim,c_loc(bsr_nnz_devhost),temp_buffer) + end function + + function rocsparse_csr2gebsr_nnz_rank_0_devptr(handle,dir,m,n,csr_descr,csr_row_ptr, & + csr_col_ind,bsr_descr,bsr_row_ptr,row_block_dim,col_block_dim,bsr_nnz_devhost,temp_buffer) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_csr2gebsr_nnz_rank_0_devptr + type(c_ptr) :: handle + integer(kind(rocsparse_direction_row)) :: dir + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: csr_descr + integer(c_int),target :: csr_row_ptr + integer(c_int),target :: csr_col_ind + type(c_ptr) :: bsr_descr + integer(c_int),target :: bsr_row_ptr + integer(c_int) :: row_block_dim + integer(c_int) :: col_block_dim + type(c_ptr),value :: bsr_nnz_devhost + type(c_ptr) :: temp_buffer + ! + rocsparse_csr2gebsr_nnz_rank_0_devptr = rocsparse_csr2gebsr_nnz_(handle,dir,m,n,csr_descr, & c_loc(csr_row_ptr),c_loc(csr_col_ind),bsr_descr,c_loc(bsr_row_ptr),row_block_dim, & col_block_dim,bsr_nnz_devhost,temp_buffer) end function @@ -47350,10 +47881,35 @@ function rocsparse_csr2gebsr_nnz_rank_1(handle,dir,m,n,csr_descr,csr_row_ptr,csr integer(c_int),target,dimension(:) :: bsr_row_ptr integer(c_int) :: row_block_dim integer(c_int) :: col_block_dim - type(c_ptr) :: bsr_nnz_devhost + integer(c_int),target :: bsr_nnz_devhost type(c_ptr) :: temp_buffer ! rocsparse_csr2gebsr_nnz_rank_1 = rocsparse_csr2gebsr_nnz_(handle,dir,m,n,csr_descr, & + c_loc(csr_row_ptr),c_loc(csr_col_ind),bsr_descr,c_loc(bsr_row_ptr),row_block_dim, & + col_block_dim,c_loc(bsr_nnz_devhost),temp_buffer) + end function + + function rocsparse_csr2gebsr_nnz_rank_1_devptr(handle,dir,m,n,csr_descr,csr_row_ptr, & + csr_col_ind,bsr_descr,bsr_row_ptr,row_block_dim,col_block_dim,bsr_nnz_devhost,temp_buffer) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_csr2gebsr_nnz_rank_1_devptr + type(c_ptr) :: handle + integer(kind(rocsparse_direction_row)) :: dir + integer(c_int) :: m + integer(c_int) :: n + type(c_ptr) :: csr_descr + integer(c_int),target,dimension(:) :: csr_row_ptr + integer(c_int),target,dimension(:) :: csr_col_ind + type(c_ptr) :: bsr_descr + integer(c_int),target,dimension(:) :: bsr_row_ptr + integer(c_int) :: row_block_dim + integer(c_int) :: col_block_dim + type(c_ptr),value :: bsr_nnz_devhost + type(c_ptr) :: temp_buffer + ! + rocsparse_csr2gebsr_nnz_rank_1_devptr = rocsparse_csr2gebsr_nnz_(handle,dir,m,n,csr_descr, & c_loc(csr_row_ptr),c_loc(csr_col_ind),bsr_descr,c_loc(bsr_row_ptr),row_block_dim, & col_block_dim,bsr_nnz_devhost,temp_buffer) end function @@ -49140,7 +49696,7 @@ function rocsparse_ell2csr_nnz_assumed_rank(handle,m,n,ell_descr,ell_width,ell_c integer(c_int),target,contiguous,dimension(..) :: ell_col_ind type(c_ptr) :: csr_descr integer(c_int),target,contiguous,dimension(..) :: csr_row_ptr - integer(c_int),target,contiguous,dimension(..) :: csr_nnz + integer(c_int),target :: csr_nnz ! rocsparse_ell2csr_nnz_assumed_rank = rocsparse_ell2csr_nnz_(handle,m,n,ell_descr,ell_width, & c_loc(ell_col_ind),csr_descr,c_loc(csr_row_ptr),c_loc(csr_nnz)) @@ -49181,7 +49737,7 @@ function rocsparse_ell2csr_nnz_rank_1(handle,m,n,ell_descr,ell_width,ell_col_ind integer(c_int),target,dimension(:) :: ell_col_ind type(c_ptr) :: csr_descr integer(c_int),target,dimension(:) :: csr_row_ptr - integer(c_int),target,dimension(:) :: csr_nnz + integer(c_int),target :: csr_nnz ! rocsparse_ell2csr_nnz_rank_1 = rocsparse_ell2csr_nnz_(handle,m,n,ell_descr,ell_width, & c_loc(ell_col_ind),csr_descr,c_loc(csr_row_ptr),c_loc(csr_nnz)) @@ -49823,6 +50379,28 @@ function rocsparse_sgebsr2gebsc_buffer_size_assumed_rank(handle,mb,nb,nnzb,bsr_v col_block_dim,c_loc(p_buffer_size)) end function + function rocsparse_sgebsr2gebsc_buffer_size_assumed_rank_devptr(handle,mb,nb,nnzb,bsr_val, & + bsr_row_ptr,bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_sgebsr2gebsc_buffer_size_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: mb + integer(c_int) :: nb + integer(c_int) :: nnzb + real(c_float),target,contiguous,dimension(..) :: bsr_val + integer(c_int),target,contiguous,dimension(..) :: bsr_row_ptr + integer(c_int),target,contiguous,dimension(..) :: bsr_col_ind + integer(c_int) :: row_block_dim + integer(c_int) :: col_block_dim + type(c_ptr),value :: p_buffer_size + ! + rocsparse_sgebsr2gebsc_buffer_size_assumed_rank_devptr = & + rocsparse_sgebsr2gebsc_buffer_size_(handle,mb,nb,nnzb,c_loc(bsr_val),c_loc(bsr_row_ptr), & + c_loc(bsr_col_ind),row_block_dim,col_block_dim,p_buffer_size) + end function + #else function rocsparse_sgebsr2gebsc_buffer_size_rank_0(handle,mb,nb,nnzb,bsr_val,bsr_row_ptr, & bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) @@ -49846,6 +50424,28 @@ function rocsparse_sgebsr2gebsc_buffer_size_rank_0(handle,mb,nb,nnzb,bsr_val,bsr c_loc(p_buffer_size)) end function + function rocsparse_sgebsr2gebsc_buffer_size_rank_0_devptr(handle,mb,nb,nnzb,bsr_val, & + bsr_row_ptr,bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_sgebsr2gebsc_buffer_size_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: mb + integer(c_int) :: nb + integer(c_int) :: nnzb + real(c_float),target :: bsr_val + integer(c_int),target :: bsr_row_ptr + integer(c_int),target :: bsr_col_ind + integer(c_int) :: row_block_dim + integer(c_int) :: col_block_dim + type(c_ptr),value :: p_buffer_size + ! + rocsparse_sgebsr2gebsc_buffer_size_rank_0_devptr = rocsparse_sgebsr2gebsc_buffer_size_( & + handle,mb,nb,nnzb,c_loc(bsr_val),c_loc(bsr_row_ptr),c_loc(bsr_col_ind),row_block_dim, & + col_block_dim,p_buffer_size) + end function + function rocsparse_sgebsr2gebsc_buffer_size_rank_1(handle,mb,nb,nnzb,bsr_val,bsr_row_ptr, & bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) use iso_c_binding @@ -49868,6 +50468,28 @@ function rocsparse_sgebsr2gebsc_buffer_size_rank_1(handle,mb,nb,nnzb,bsr_val,bsr c_loc(p_buffer_size)) end function + function rocsparse_sgebsr2gebsc_buffer_size_rank_1_devptr(handle,mb,nb,nnzb,bsr_val, & + bsr_row_ptr,bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_sgebsr2gebsc_buffer_size_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: mb + integer(c_int) :: nb + integer(c_int) :: nnzb + real(c_float),target,dimension(:) :: bsr_val + integer(c_int),target,dimension(:) :: bsr_row_ptr + integer(c_int),target,dimension(:) :: bsr_col_ind + integer(c_int) :: row_block_dim + integer(c_int) :: col_block_dim + type(c_ptr),value :: p_buffer_size + ! + rocsparse_sgebsr2gebsc_buffer_size_rank_1_devptr = rocsparse_sgebsr2gebsc_buffer_size_( & + handle,mb,nb,nnzb,c_loc(bsr_val),c_loc(bsr_row_ptr),c_loc(bsr_col_ind),row_block_dim, & + col_block_dim,p_buffer_size) + end function + #endif #ifdef USE_ASSUMED_RANK function rocsparse_dgebsr2gebsc_buffer_size_assumed_rank(handle,mb,nb,nnzb,bsr_val, & @@ -49892,6 +50514,28 @@ function rocsparse_dgebsr2gebsc_buffer_size_assumed_rank(handle,mb,nb,nnzb,bsr_v col_block_dim,c_loc(p_buffer_size)) end function + function rocsparse_dgebsr2gebsc_buffer_size_assumed_rank_devptr(handle,mb,nb,nnzb,bsr_val, & + bsr_row_ptr,bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_dgebsr2gebsc_buffer_size_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: mb + integer(c_int) :: nb + integer(c_int) :: nnzb + real(c_double),target,contiguous,dimension(..) :: bsr_val + integer(c_int),target,contiguous,dimension(..) :: bsr_row_ptr + integer(c_int),target,contiguous,dimension(..) :: bsr_col_ind + integer(c_int) :: row_block_dim + integer(c_int) :: col_block_dim + type(c_ptr),value :: p_buffer_size + ! + rocsparse_dgebsr2gebsc_buffer_size_assumed_rank_devptr = & + rocsparse_dgebsr2gebsc_buffer_size_(handle,mb,nb,nnzb,c_loc(bsr_val),c_loc(bsr_row_ptr), & + c_loc(bsr_col_ind),row_block_dim,col_block_dim,p_buffer_size) + end function + #else function rocsparse_dgebsr2gebsc_buffer_size_rank_0(handle,mb,nb,nnzb,bsr_val,bsr_row_ptr, & bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) @@ -49915,6 +50559,28 @@ function rocsparse_dgebsr2gebsc_buffer_size_rank_0(handle,mb,nb,nnzb,bsr_val,bsr c_loc(p_buffer_size)) end function + function rocsparse_dgebsr2gebsc_buffer_size_rank_0_devptr(handle,mb,nb,nnzb,bsr_val, & + bsr_row_ptr,bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_dgebsr2gebsc_buffer_size_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: mb + integer(c_int) :: nb + integer(c_int) :: nnzb + real(c_double),target :: bsr_val + integer(c_int),target :: bsr_row_ptr + integer(c_int),target :: bsr_col_ind + integer(c_int) :: row_block_dim + integer(c_int) :: col_block_dim + type(c_ptr),value :: p_buffer_size + ! + rocsparse_dgebsr2gebsc_buffer_size_rank_0_devptr = rocsparse_dgebsr2gebsc_buffer_size_( & + handle,mb,nb,nnzb,c_loc(bsr_val),c_loc(bsr_row_ptr),c_loc(bsr_col_ind),row_block_dim, & + col_block_dim,p_buffer_size) + end function + function rocsparse_dgebsr2gebsc_buffer_size_rank_1(handle,mb,nb,nnzb,bsr_val,bsr_row_ptr, & bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) use iso_c_binding @@ -49937,6 +50603,28 @@ function rocsparse_dgebsr2gebsc_buffer_size_rank_1(handle,mb,nb,nnzb,bsr_val,bsr c_loc(p_buffer_size)) end function + function rocsparse_dgebsr2gebsc_buffer_size_rank_1_devptr(handle,mb,nb,nnzb,bsr_val, & + bsr_row_ptr,bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_dgebsr2gebsc_buffer_size_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: mb + integer(c_int) :: nb + integer(c_int) :: nnzb + real(c_double),target,dimension(:) :: bsr_val + integer(c_int),target,dimension(:) :: bsr_row_ptr + integer(c_int),target,dimension(:) :: bsr_col_ind + integer(c_int) :: row_block_dim + integer(c_int) :: col_block_dim + type(c_ptr),value :: p_buffer_size + ! + rocsparse_dgebsr2gebsc_buffer_size_rank_1_devptr = rocsparse_dgebsr2gebsc_buffer_size_( & + handle,mb,nb,nnzb,c_loc(bsr_val),c_loc(bsr_row_ptr),c_loc(bsr_col_ind),row_block_dim, & + col_block_dim,p_buffer_size) + end function + #endif #ifdef USE_ASSUMED_RANK function rocsparse_cgebsr2gebsc_buffer_size_assumed_rank(handle,mb,nb,nnzb,bsr_val, & @@ -49961,6 +50649,28 @@ function rocsparse_cgebsr2gebsc_buffer_size_assumed_rank(handle,mb,nb,nnzb,bsr_v col_block_dim,c_loc(p_buffer_size)) end function + function rocsparse_cgebsr2gebsc_buffer_size_assumed_rank_devptr(handle,mb,nb,nnzb,bsr_val, & + bsr_row_ptr,bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_cgebsr2gebsc_buffer_size_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: mb + integer(c_int) :: nb + integer(c_int) :: nnzb + complex(c_float_complex),target,contiguous,dimension(..) :: bsr_val + integer(c_int),target,contiguous,dimension(..) :: bsr_row_ptr + integer(c_int),target,contiguous,dimension(..) :: bsr_col_ind + integer(c_int) :: row_block_dim + integer(c_int) :: col_block_dim + type(c_ptr),value :: p_buffer_size + ! + rocsparse_cgebsr2gebsc_buffer_size_assumed_rank_devptr = & + rocsparse_cgebsr2gebsc_buffer_size_(handle,mb,nb,nnzb,c_loc(bsr_val),c_loc(bsr_row_ptr), & + c_loc(bsr_col_ind),row_block_dim,col_block_dim,p_buffer_size) + end function + #else function rocsparse_cgebsr2gebsc_buffer_size_rank_0(handle,mb,nb,nnzb,bsr_val,bsr_row_ptr, & bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) @@ -49984,6 +50694,28 @@ function rocsparse_cgebsr2gebsc_buffer_size_rank_0(handle,mb,nb,nnzb,bsr_val,bsr c_loc(p_buffer_size)) end function + function rocsparse_cgebsr2gebsc_buffer_size_rank_0_devptr(handle,mb,nb,nnzb,bsr_val, & + bsr_row_ptr,bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_cgebsr2gebsc_buffer_size_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: mb + integer(c_int) :: nb + integer(c_int) :: nnzb + complex(c_float_complex),target :: bsr_val + integer(c_int),target :: bsr_row_ptr + integer(c_int),target :: bsr_col_ind + integer(c_int) :: row_block_dim + integer(c_int) :: col_block_dim + type(c_ptr),value :: p_buffer_size + ! + rocsparse_cgebsr2gebsc_buffer_size_rank_0_devptr = rocsparse_cgebsr2gebsc_buffer_size_( & + handle,mb,nb,nnzb,c_loc(bsr_val),c_loc(bsr_row_ptr),c_loc(bsr_col_ind),row_block_dim, & + col_block_dim,p_buffer_size) + end function + function rocsparse_cgebsr2gebsc_buffer_size_rank_1(handle,mb,nb,nnzb,bsr_val,bsr_row_ptr, & bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) use iso_c_binding @@ -50006,6 +50738,28 @@ function rocsparse_cgebsr2gebsc_buffer_size_rank_1(handle,mb,nb,nnzb,bsr_val,bsr c_loc(p_buffer_size)) end function + function rocsparse_cgebsr2gebsc_buffer_size_rank_1_devptr(handle,mb,nb,nnzb,bsr_val, & + bsr_row_ptr,bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_cgebsr2gebsc_buffer_size_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: mb + integer(c_int) :: nb + integer(c_int) :: nnzb + complex(c_float_complex),target,dimension(:) :: bsr_val + integer(c_int),target,dimension(:) :: bsr_row_ptr + integer(c_int),target,dimension(:) :: bsr_col_ind + integer(c_int) :: row_block_dim + integer(c_int) :: col_block_dim + type(c_ptr),value :: p_buffer_size + ! + rocsparse_cgebsr2gebsc_buffer_size_rank_1_devptr = rocsparse_cgebsr2gebsc_buffer_size_( & + handle,mb,nb,nnzb,c_loc(bsr_val),c_loc(bsr_row_ptr),c_loc(bsr_col_ind),row_block_dim, & + col_block_dim,p_buffer_size) + end function + #endif #ifdef USE_ASSUMED_RANK function rocsparse_zgebsr2gebsc_buffer_size_assumed_rank(handle,mb,nb,nnzb,bsr_val, & @@ -50030,6 +50784,28 @@ function rocsparse_zgebsr2gebsc_buffer_size_assumed_rank(handle,mb,nb,nnzb,bsr_v col_block_dim,c_loc(p_buffer_size)) end function + function rocsparse_zgebsr2gebsc_buffer_size_assumed_rank_devptr(handle,mb,nb,nnzb,bsr_val, & + bsr_row_ptr,bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_zgebsr2gebsc_buffer_size_assumed_rank_devptr + type(c_ptr) :: handle + integer(c_int) :: mb + integer(c_int) :: nb + integer(c_int) :: nnzb + complex(c_double_complex),target,contiguous,dimension(..) :: bsr_val + integer(c_int),target,contiguous,dimension(..) :: bsr_row_ptr + integer(c_int),target,contiguous,dimension(..) :: bsr_col_ind + integer(c_int) :: row_block_dim + integer(c_int) :: col_block_dim + type(c_ptr),value :: p_buffer_size + ! + rocsparse_zgebsr2gebsc_buffer_size_assumed_rank_devptr = & + rocsparse_zgebsr2gebsc_buffer_size_(handle,mb,nb,nnzb,c_loc(bsr_val),c_loc(bsr_row_ptr), & + c_loc(bsr_col_ind),row_block_dim,col_block_dim,p_buffer_size) + end function + #else function rocsparse_zgebsr2gebsc_buffer_size_rank_0(handle,mb,nb,nnzb,bsr_val,bsr_row_ptr, & bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) @@ -50053,6 +50829,28 @@ function rocsparse_zgebsr2gebsc_buffer_size_rank_0(handle,mb,nb,nnzb,bsr_val,bsr c_loc(p_buffer_size)) end function + function rocsparse_zgebsr2gebsc_buffer_size_rank_0_devptr(handle,mb,nb,nnzb,bsr_val, & + bsr_row_ptr,bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_zgebsr2gebsc_buffer_size_rank_0_devptr + type(c_ptr) :: handle + integer(c_int) :: mb + integer(c_int) :: nb + integer(c_int) :: nnzb + complex(c_double_complex),target :: bsr_val + integer(c_int),target :: bsr_row_ptr + integer(c_int),target :: bsr_col_ind + integer(c_int) :: row_block_dim + integer(c_int) :: col_block_dim + type(c_ptr),value :: p_buffer_size + ! + rocsparse_zgebsr2gebsc_buffer_size_rank_0_devptr = rocsparse_zgebsr2gebsc_buffer_size_( & + handle,mb,nb,nnzb,c_loc(bsr_val),c_loc(bsr_row_ptr),c_loc(bsr_col_ind),row_block_dim, & + col_block_dim,p_buffer_size) + end function + function rocsparse_zgebsr2gebsc_buffer_size_rank_1(handle,mb,nb,nnzb,bsr_val,bsr_row_ptr, & bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) use iso_c_binding @@ -50075,6 +50873,28 @@ function rocsparse_zgebsr2gebsc_buffer_size_rank_1(handle,mb,nb,nnzb,bsr_val,bsr c_loc(p_buffer_size)) end function + function rocsparse_zgebsr2gebsc_buffer_size_rank_1_devptr(handle,mb,nb,nnzb,bsr_val, & + bsr_row_ptr,bsr_col_ind,row_block_dim,col_block_dim,p_buffer_size) + use iso_c_binding + use hipfort_rocsparse_enums + implicit none + integer(kind(rocsparse_status_success)) :: rocsparse_zgebsr2gebsc_buffer_size_rank_1_devptr + type(c_ptr) :: handle + integer(c_int) :: mb + integer(c_int) :: nb + integer(c_int) :: nnzb + complex(c_double_complex),target,dimension(:) :: bsr_val + integer(c_int),target,dimension(:) :: bsr_row_ptr + integer(c_int),target,dimension(:) :: bsr_col_ind + integer(c_int) :: row_block_dim + integer(c_int) :: col_block_dim + type(c_ptr),value :: p_buffer_size + ! + rocsparse_zgebsr2gebsc_buffer_size_rank_1_devptr = rocsparse_zgebsr2gebsc_buffer_size_( & + handle,mb,nb,nnzb,c_loc(bsr_val),c_loc(bsr_row_ptr),c_loc(bsr_col_ind),row_block_dim, & + col_block_dim,p_buffer_size) + end function + #endif #ifdef USE_ASSUMED_RANK function rocsparse_sgebsr2gebsc_assumed_rank(handle,mb,nb,nnzb,bsr_val,bsr_row_ptr, & @@ -51079,7 +51899,7 @@ function rocsparse_snnz_compress_assumed_rank(handle,m,descr_A,csr_val_A,csr_row real(c_float),target,contiguous,dimension(..) :: csr_val_A integer(c_int),target,contiguous,dimension(..) :: csr_row_ptr_A integer(c_int),target,contiguous,dimension(..) :: nnz_per_row - integer(c_int),target,contiguous,dimension(..) :: nnz_C + integer(c_int),target :: nnz_C real(c_float) :: tol ! rocsparse_snnz_compress_assumed_rank = rocsparse_snnz_compress_(handle,m,descr_A, & @@ -51118,7 +51938,7 @@ function rocsparse_snnz_compress_rank_1(handle,m,descr_A,csr_val_A,csr_row_ptr_A real(c_float),target,dimension(:) :: csr_val_A integer(c_int),target,dimension(:) :: csr_row_ptr_A integer(c_int),target,dimension(:) :: nnz_per_row - integer(c_int),target,dimension(:) :: nnz_C + integer(c_int),target :: nnz_C real(c_float) :: tol ! rocsparse_snnz_compress_rank_1 = rocsparse_snnz_compress_(handle,m,descr_A,c_loc(csr_val_A), & @@ -51139,7 +51959,7 @@ function rocsparse_dnnz_compress_assumed_rank(handle,m,descr_A,csr_val_A,csr_row real(c_double),target,contiguous,dimension(..) :: csr_val_A integer(c_int),target,contiguous,dimension(..) :: csr_row_ptr_A integer(c_int),target,contiguous,dimension(..) :: nnz_per_row - integer(c_int),target,contiguous,dimension(..) :: nnz_C + integer(c_int),target :: nnz_C real(c_double) :: tol ! rocsparse_dnnz_compress_assumed_rank = rocsparse_dnnz_compress_(handle,m,descr_A, & @@ -51178,7 +51998,7 @@ function rocsparse_dnnz_compress_rank_1(handle,m,descr_A,csr_val_A,csr_row_ptr_A real(c_double),target,dimension(:) :: csr_val_A integer(c_int),target,dimension(:) :: csr_row_ptr_A integer(c_int),target,dimension(:) :: nnz_per_row - integer(c_int),target,dimension(:) :: nnz_C + integer(c_int),target :: nnz_C real(c_double) :: tol ! rocsparse_dnnz_compress_rank_1 = rocsparse_dnnz_compress_(handle,m,descr_A,c_loc(csr_val_A), & @@ -51199,7 +52019,7 @@ function rocsparse_cnnz_compress_assumed_rank(handle,m,descr_A,csr_val_A,csr_row complex(c_float_complex),target,contiguous,dimension(..) :: csr_val_A integer(c_int),target,contiguous,dimension(..) :: csr_row_ptr_A integer(c_int),target,contiguous,dimension(..) :: nnz_per_row - integer(c_int),target,contiguous,dimension(..) :: nnz_C + integer(c_int),target :: nnz_C complex(c_float_complex) :: tol ! rocsparse_cnnz_compress_assumed_rank = rocsparse_cnnz_compress_(handle,m,descr_A, & @@ -51238,7 +52058,7 @@ function rocsparse_cnnz_compress_rank_1(handle,m,descr_A,csr_val_A,csr_row_ptr_A complex(c_float_complex),target,dimension(:) :: csr_val_A integer(c_int),target,dimension(:) :: csr_row_ptr_A integer(c_int),target,dimension(:) :: nnz_per_row - integer(c_int),target,dimension(:) :: nnz_C + integer(c_int),target :: nnz_C complex(c_float_complex) :: tol ! rocsparse_cnnz_compress_rank_1 = rocsparse_cnnz_compress_(handle,m,descr_A,c_loc(csr_val_A), & @@ -51259,7 +52079,7 @@ function rocsparse_znnz_compress_assumed_rank(handle,m,descr_A,csr_val_A,csr_row complex(c_double_complex),target,contiguous,dimension(..) :: csr_val_A integer(c_int),target,contiguous,dimension(..) :: csr_row_ptr_A integer(c_int),target,contiguous,dimension(..) :: nnz_per_row - integer(c_int),target,contiguous,dimension(..) :: nnz_C + integer(c_int),target :: nnz_C complex(c_double_complex) :: tol ! rocsparse_znnz_compress_assumed_rank = rocsparse_znnz_compress_(handle,m,descr_A, & @@ -51298,7 +52118,7 @@ function rocsparse_znnz_compress_rank_1(handle,m,descr_A,csr_val_A,csr_row_ptr_A complex(c_double_complex),target,dimension(:) :: csr_val_A integer(c_int),target,dimension(:) :: csr_row_ptr_A integer(c_int),target,dimension(:) :: nnz_per_row - integer(c_int),target,dimension(:) :: nnz_C + integer(c_int),target :: nnz_C complex(c_double_complex) :: tol ! rocsparse_znnz_compress_rank_1 = rocsparse_znnz_compress_(handle,m,descr_A,c_loc(csr_val_A), & @@ -53496,7 +54316,7 @@ function rocsparse_csrgeam_nnz_assumed_rank(handle,m,n,descr_A,nnz_A,csr_row_ptr integer(c_int),target,contiguous,dimension(..) :: csr_col_ind_B type(c_ptr) :: descr_C integer(c_int),target,contiguous,dimension(..) :: csr_row_ptr_C - integer(c_int),target,contiguous,dimension(..) :: nnz_C + integer(c_int),target :: nnz_C ! rocsparse_csrgeam_nnz_assumed_rank = rocsparse_csrgeam_nnz_(handle,m,n,descr_A,nnz_A, & c_loc(csr_row_ptr_A),c_loc(csr_col_ind_A),descr_B,nnz_B,c_loc(csr_row_ptr_B), & @@ -53549,7 +54369,7 @@ function rocsparse_csrgeam_nnz_rank_1(handle,m,n,descr_A,nnz_A,csr_row_ptr_A,csr integer(c_int),target,dimension(:) :: csr_col_ind_B type(c_ptr) :: descr_C integer(c_int),target,dimension(:) :: csr_row_ptr_C - integer(c_int),target,dimension(:) :: nnz_C + integer(c_int),target :: nnz_C ! rocsparse_csrgeam_nnz_rank_1 = rocsparse_csrgeam_nnz_(handle,m,n,descr_A,nnz_A, & c_loc(csr_row_ptr_A),c_loc(csr_col_ind_A),descr_B,nnz_B,c_loc(csr_row_ptr_B), & @@ -54437,7 +55257,7 @@ function rocsparse_csrgemm_nnz_assumed_rank(handle,trans_A,trans_B,m,n,k,descr_A integer(c_int),target,contiguous,dimension(..) :: csr_col_ind_D type(c_ptr) :: descr_C integer(c_int),target,contiguous,dimension(..) :: csr_row_ptr_C - integer(c_int),target,contiguous,dimension(..) :: nnz_C + integer(c_int),target :: nnz_C type(c_ptr) :: info_C type(c_ptr) :: temp_buffer ! @@ -54512,7 +55332,7 @@ function rocsparse_csrgemm_nnz_rank_1(handle,trans_A,trans_B,m,n,k,descr_A,nnz_A integer(c_int),target,dimension(:) :: csr_col_ind_D type(c_ptr) :: descr_C integer(c_int),target,dimension(:) :: csr_row_ptr_C - integer(c_int),target,dimension(:) :: nnz_C + integer(c_int),target :: nnz_C type(c_ptr) :: info_C type(c_ptr) :: temp_buffer ! @@ -55302,7 +56122,7 @@ function rocsparse_cdotci_assumed_rank(handle,nnz,x_val,x_ind,y,myResult,idx_bas complex(c_float_complex),target,contiguous,dimension(..) :: x_val integer(c_int),target,contiguous,dimension(..) :: x_ind complex(c_float_complex),target,contiguous,dimension(..) :: y - complex(c_float_complex),target,contiguous,dimension(..) :: myResult + complex(c_float_complex),target :: myResult integer(kind(rocsparse_index_base_zero)) :: idx_base ! rocsparse_cdotci_assumed_rank = rocsparse_cdotci_(handle,nnz,c_loc(x_val),c_loc(x_ind), & @@ -55337,7 +56157,7 @@ function rocsparse_cdotci_rank_1(handle,nnz,x_val,x_ind,y,myResult,idx_base) complex(c_float_complex),target,dimension(:) :: x_val integer(c_int),target,dimension(:) :: x_ind complex(c_float_complex),target,dimension(:) :: y - complex(c_float_complex),target,dimension(:) :: myResult + complex(c_float_complex),target :: myResult integer(kind(rocsparse_index_base_zero)) :: idx_base ! rocsparse_cdotci_rank_1 = rocsparse_cdotci_(handle,nnz,c_loc(x_val),c_loc(x_ind),c_loc(y), & @@ -55356,7 +56176,7 @@ function rocsparse_zdotci_assumed_rank(handle,nnz,x_val,x_ind,y,myResult,idx_bas complex(c_double_complex),target,contiguous,dimension(..) :: x_val integer(c_int),target,contiguous,dimension(..) :: x_ind complex(c_double_complex),target,contiguous,dimension(..) :: y - complex(c_double_complex),target,contiguous,dimension(..) :: myResult + complex(c_double_complex),target :: myResult integer(kind(rocsparse_index_base_zero)) :: idx_base ! rocsparse_zdotci_assumed_rank = rocsparse_zdotci_(handle,nnz,c_loc(x_val),c_loc(x_ind), & @@ -55391,7 +56211,7 @@ function rocsparse_zdotci_rank_1(handle,nnz,x_val,x_ind,y,myResult,idx_base) complex(c_double_complex),target,dimension(:) :: x_val integer(c_int),target,dimension(:) :: x_ind complex(c_double_complex),target,dimension(:) :: y - complex(c_double_complex),target,dimension(:) :: myResult + complex(c_double_complex),target :: myResult integer(kind(rocsparse_index_base_zero)) :: idx_base ! rocsparse_zdotci_rank_1 = rocsparse_zdotci_(handle,nnz,c_loc(x_val),c_loc(x_ind),c_loc(y), & @@ -55410,7 +56230,7 @@ function rocsparse_sdoti_assumed_rank(handle,nnz,x_val,x_ind,y,myResult,idx_base real(c_float),target,contiguous,dimension(..) :: x_val integer(c_int),target,contiguous,dimension(..) :: x_ind real(c_float),target,contiguous,dimension(..) :: y - real(c_float),target,contiguous,dimension(..) :: myResult + real(c_float),target :: myResult integer(kind(rocsparse_index_base_zero)) :: idx_base ! rocsparse_sdoti_assumed_rank = rocsparse_sdoti_(handle,nnz,c_loc(x_val),c_loc(x_ind), & @@ -55445,7 +56265,7 @@ function rocsparse_sdoti_rank_1(handle,nnz,x_val,x_ind,y,myResult,idx_base) real(c_float),target,dimension(:) :: x_val integer(c_int),target,dimension(:) :: x_ind real(c_float),target,dimension(:) :: y - real(c_float),target,dimension(:) :: myResult + real(c_float),target :: myResult integer(kind(rocsparse_index_base_zero)) :: idx_base ! rocsparse_sdoti_rank_1 = rocsparse_sdoti_(handle,nnz,c_loc(x_val),c_loc(x_ind),c_loc(y), & @@ -55464,7 +56284,7 @@ function rocsparse_ddoti_assumed_rank(handle,nnz,x_val,x_ind,y,myResult,idx_base real(c_double),target,contiguous,dimension(..) :: x_val integer(c_int),target,contiguous,dimension(..) :: x_ind real(c_double),target,contiguous,dimension(..) :: y - real(c_double),target,contiguous,dimension(..) :: myResult + real(c_double),target :: myResult integer(kind(rocsparse_index_base_zero)) :: idx_base ! rocsparse_ddoti_assumed_rank = rocsparse_ddoti_(handle,nnz,c_loc(x_val),c_loc(x_ind), & @@ -55499,7 +56319,7 @@ function rocsparse_ddoti_rank_1(handle,nnz,x_val,x_ind,y,myResult,idx_base) real(c_double),target,dimension(:) :: x_val integer(c_int),target,dimension(:) :: x_ind real(c_double),target,dimension(:) :: y - real(c_double),target,dimension(:) :: myResult + real(c_double),target :: myResult integer(kind(rocsparse_index_base_zero)) :: idx_base ! rocsparse_ddoti_rank_1 = rocsparse_ddoti_(handle,nnz,c_loc(x_val),c_loc(x_ind),c_loc(y), & @@ -55518,7 +56338,7 @@ function rocsparse_cdoti_assumed_rank(handle,nnz,x_val,x_ind,y,myResult,idx_base complex(c_float_complex),target,contiguous,dimension(..) :: x_val integer(c_int),target,contiguous,dimension(..) :: x_ind complex(c_float_complex),target,contiguous,dimension(..) :: y - complex(c_float_complex),target,contiguous,dimension(..) :: myResult + complex(c_float_complex),target :: myResult integer(kind(rocsparse_index_base_zero)) :: idx_base ! rocsparse_cdoti_assumed_rank = rocsparse_cdoti_(handle,nnz,c_loc(x_val),c_loc(x_ind), & @@ -55553,7 +56373,7 @@ function rocsparse_cdoti_rank_1(handle,nnz,x_val,x_ind,y,myResult,idx_base) complex(c_float_complex),target,dimension(:) :: x_val integer(c_int),target,dimension(:) :: x_ind complex(c_float_complex),target,dimension(:) :: y - complex(c_float_complex),target,dimension(:) :: myResult + complex(c_float_complex),target :: myResult integer(kind(rocsparse_index_base_zero)) :: idx_base ! rocsparse_cdoti_rank_1 = rocsparse_cdoti_(handle,nnz,c_loc(x_val),c_loc(x_ind),c_loc(y), & @@ -55572,7 +56392,7 @@ function rocsparse_zdoti_assumed_rank(handle,nnz,x_val,x_ind,y,myResult,idx_base complex(c_double_complex),target,contiguous,dimension(..) :: x_val integer(c_int),target,contiguous,dimension(..) :: x_ind complex(c_double_complex),target,contiguous,dimension(..) :: y - complex(c_double_complex),target,contiguous,dimension(..) :: myResult + complex(c_double_complex),target :: myResult integer(kind(rocsparse_index_base_zero)) :: idx_base ! rocsparse_zdoti_assumed_rank = rocsparse_zdoti_(handle,nnz,c_loc(x_val),c_loc(x_ind), & @@ -55607,7 +56427,7 @@ function rocsparse_zdoti_rank_1(handle,nnz,x_val,x_ind,y,myResult,idx_base) complex(c_double_complex),target,dimension(:) :: x_val integer(c_int),target,dimension(:) :: x_ind complex(c_double_complex),target,dimension(:) :: y - complex(c_double_complex),target,dimension(:) :: myResult + complex(c_double_complex),target :: myResult integer(kind(rocsparse_index_base_zero)) :: idx_base ! rocsparse_zdoti_rank_1 = rocsparse_zdoti_(handle,nnz,c_loc(x_val),c_loc(x_ind),c_loc(y), & @@ -71452,8 +72272,8 @@ function rocsparse_scsrcolor_assumed_rank(handle,m,nnz,descr,csr_val,csr_row_ptr integer(c_int),target,contiguous,dimension(..) :: csr_col_ind real(c_float),target :: fraction_to_color integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + integer(c_int),target,contiguous,dimension(..) :: coloring + integer(c_int),target,contiguous,dimension(..) :: reordering type(c_ptr) :: myInfo ! rocsparse_scsrcolor_assumed_rank = rocsparse_scsrcolor_(handle,m,nnz,descr,c_loc(csr_val), & @@ -71501,8 +72321,8 @@ function rocsparse_scsrcolor_rank_1(handle,m,nnz,descr,csr_val,csr_row_ptr,csr_c integer(c_int),target,dimension(:) :: csr_col_ind real(c_float),target :: fraction_to_color integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + integer(c_int),target,dimension(:) :: coloring + integer(c_int),target,dimension(:) :: reordering type(c_ptr) :: myInfo ! rocsparse_scsrcolor_rank_1 = rocsparse_scsrcolor_(handle,m,nnz,descr,c_loc(csr_val), & @@ -71527,8 +72347,8 @@ function rocsparse_dcsrcolor_assumed_rank(handle,m,nnz,descr,csr_val,csr_row_ptr integer(c_int),target,contiguous,dimension(..) :: csr_col_ind real(c_double),target :: fraction_to_color integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + integer(c_int),target,contiguous,dimension(..) :: coloring + integer(c_int),target,contiguous,dimension(..) :: reordering type(c_ptr) :: myInfo ! rocsparse_dcsrcolor_assumed_rank = rocsparse_dcsrcolor_(handle,m,nnz,descr,c_loc(csr_val), & @@ -71576,8 +72396,8 @@ function rocsparse_dcsrcolor_rank_1(handle,m,nnz,descr,csr_val,csr_row_ptr,csr_c integer(c_int),target,dimension(:) :: csr_col_ind real(c_double),target :: fraction_to_color integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + integer(c_int),target,dimension(:) :: coloring + integer(c_int),target,dimension(:) :: reordering type(c_ptr) :: myInfo ! rocsparse_dcsrcolor_rank_1 = rocsparse_dcsrcolor_(handle,m,nnz,descr,c_loc(csr_val), & @@ -71602,8 +72422,8 @@ function rocsparse_ccsrcolor_assumed_rank(handle,m,nnz,descr,csr_val,csr_row_ptr integer(c_int),target,contiguous,dimension(..) :: csr_col_ind real(c_float),target :: fraction_to_color integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + integer(c_int),target,contiguous,dimension(..) :: coloring + integer(c_int),target,contiguous,dimension(..) :: reordering type(c_ptr) :: myInfo ! rocsparse_ccsrcolor_assumed_rank = rocsparse_ccsrcolor_(handle,m,nnz,descr,c_loc(csr_val), & @@ -71651,8 +72471,8 @@ function rocsparse_ccsrcolor_rank_1(handle,m,nnz,descr,csr_val,csr_row_ptr,csr_c integer(c_int),target,dimension(:) :: csr_col_ind real(c_float),target :: fraction_to_color integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + integer(c_int),target,dimension(:) :: coloring + integer(c_int),target,dimension(:) :: reordering type(c_ptr) :: myInfo ! rocsparse_ccsrcolor_rank_1 = rocsparse_ccsrcolor_(handle,m,nnz,descr,c_loc(csr_val), & @@ -71677,8 +72497,8 @@ function rocsparse_zcsrcolor_assumed_rank(handle,m,nnz,descr,csr_val,csr_row_ptr integer(c_int),target,contiguous,dimension(..) :: csr_col_ind real(c_double),target :: fraction_to_color integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + integer(c_int),target,contiguous,dimension(..) :: coloring + integer(c_int),target,contiguous,dimension(..) :: reordering type(c_ptr) :: myInfo ! rocsparse_zcsrcolor_assumed_rank = rocsparse_zcsrcolor_(handle,m,nnz,descr,c_loc(csr_val), & @@ -71726,8 +72546,8 @@ function rocsparse_zcsrcolor_rank_1(handle,m,nnz,descr,csr_val,csr_row_ptr,csr_c integer(c_int),target,dimension(:) :: csr_col_ind real(c_double),target :: fraction_to_color integer(c_int),target :: ncolors - integer(c_int),target :: coloring - integer(c_int),target :: reordering + integer(c_int),target,dimension(:) :: coloring + integer(c_int),target,dimension(:) :: reordering type(c_ptr) :: myInfo ! rocsparse_zcsrcolor_rank_1 = rocsparse_zcsrcolor_(handle,m,nnz,descr,c_loc(csr_val), & diff --git a/test/CMakeLists.txt b/test/CMakeLists.txt index fd809a2b9..86906b89c 100644 --- a/test/CMakeLists.txt +++ b/test/CMakeLists.txt @@ -182,6 +182,7 @@ if(BUILD_TESTING) hipfort_add_test(hipblas ctrsm f2003) hipfort_add_test(hipblas ztrsm f2003) hipfort_add_test(hipblas snrm2 f2003) + hipfort_add_test(hipblas snrm2_typed f2003) hipfort_add_test(hipblas dnrm2 f2003) hipfort_add_test(hipblas scnrm2 f2003) hipfort_add_test(hipblas dznrm2 f2003) @@ -836,6 +837,7 @@ if(BUILD_TESTING) hipfort_add_test(rocblas izamin f2008) hipfort_add_test(rocblas sdot f2003) hipfort_add_test(rocblas ddot f2003) + hipfort_add_test(rocblas ddot_typed f2003) hipfort_add_test(rocblas cdotu f2003) hipfort_add_test(rocblas cdotc f2003) hipfort_add_test(rocblas zdotu f2003) @@ -1269,6 +1271,7 @@ if(BUILD_TESTING) if(TARGET hipfort::rocsparse) hipfort_add_symbol_test(rocsparse) hipfort_add_test(rocsparse ddoti f2003) + hipfort_add_test(rocsparse ddoti_typed f2003) hipfort_add_test(rocsparse ddoti f2008) hipfort_add_test(rocsparse rocsparse_sgthr f2003) hipfort_add_test(rocsparse rocsparse_sgthr f2008) diff --git a/test/f2003/hip/test_hip.F03 b/test/f2003/hip/test_hip.F03 index 50c69450e..0e30bc885 100644 --- a/test/f2003/hip/test_hip.F03 +++ b/test/f2003/hip/test_hip.F03 @@ -699,7 +699,6 @@ program test_hip if (never) v3 = hipStreamGetCaptureInfo_v2_spt_(v4, v4, v4, v4, v4, v4) if (never) v3 = hipLaunchHostFunc_spt_(v4, v17, v4) if (never) v3 = hipGetDriverEntryPoint_spt_(v4, v4, v19, v4) - if (never) v3 = hipChooseDevice_(v4, v12) if (never) v0 = hipMalloc_(v4, v10) if (never) v0 = hipMallocManaged_(v4, v10, v0) if (never) v0 = hipHostMalloc_(v4, v10, v0) diff --git a/test/f2003/hipblas/snrm2_typed.f03 b/test/f2003/hipblas/snrm2_typed.f03 new file mode 100644 index 000000000..50e9ce199 --- /dev/null +++ b/test/f2003/hipblas/snrm2_typed.f03 @@ -0,0 +1,77 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! The same check as snrm2.f03, through the _typed form: the result is a Fortran +! variable rather than c_loc() of one, so the generic resolves to the _typed +! module procedure, which hands the C API its address. The handle is in host +! pointer mode, as that form requires. +program hip_snrm2_typed + use iso_c_binding + use hipfort + use hipfort_check + use hipfort_hipblas + use hipfort_hipblas_enums + + implicit none + + ! nrm2(x) with x = 1 over n elements, so the result is sqrt(n). + integer, parameter :: n = 1024 + integer(c_size_t) :: Nbytes + real(c_float), allocatable, target, dimension(:) :: hx + real(c_float) :: res + real(c_float) :: res_exact, error + real(c_float), parameter :: error_max = 10*epsilon(error) + type(c_ptr) :: dx = c_null_ptr + type(c_ptr) :: handle = c_null_ptr + + write(*,"(a)",advance="no") "-- Running test 'snrm2 typed' (Fortran 2003 interfaces) - " + + call hipblasCheck(hipblasCreate(handle)) + + allocate(hx(n)) + hx = 1.0 + res_exact = sqrt(real(n, kind=kind(res_exact))) + + Nbytes = int(n, c_size_t) * 4 + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + + res = 0.0 + call hipblasCheck(hipblasSnrm2(handle, n, dx, 1, res)) + call hipCheck(hipDeviceSynchronize()) + + error = abs((res_exact - res) / res_exact) + if (error > error_max) then + write(*,*) "FAILED! error = ", error, " result = ", res + call exit(1) + end if + + call hipCheck(hipFree(dx)) + call hipblasCheck(hipblasDestroy(handle)) + + write(*,*) "PASSED!" + +end program hip_snrm2_typed + \ No newline at end of file diff --git a/test/f2003/hipsolver/test_hipsolver.F03 b/test/f2003/hipsolver/test_hipsolver.F03 index b55352ad9..e3a871913 100644 --- a/test/f2003/hipsolver/test_hipsolver.F03 +++ b/test/f2003/hipsolver/test_hipsolver.F03 @@ -131,11 +131,11 @@ program test_hipsolver if (never) v1 = hipsolverDgebrd_(v0, v3, v3, v0, v3, v0, v0, v0, v0, v0, v3, v0) if (never) v1 = hipsolverCgebrd_(v0, v3, v3, v0, v3, v0, v0, v0, v0, v0, v3, v0) if (never) v1 = hipsolverZgebrd_(v0, v3, v3, v0, v3, v0, v0, v0, v0, v0, v3, v0) -#endif if (never) v1 = hipsolverSSgels_bufferSize_(v0, v3, v3, v3, v0, v3, v0, v3, v0, v3, v0) if (never) v1 = hipsolverDDgels_bufferSize_(v0, v3, v3, v3, v0, v3, v0, v3, v0, v3, v0) if (never) v1 = hipsolverCCgels_bufferSize_(v0, v3, v3, v3, v0, v3, v0, v3, v0, v3, v0) if (never) v1 = hipsolverZZgels_bufferSize_(v0, v3, v3, v3, v0, v3, v0, v3, v0, v3, v0) +#endif if (never) v1 = hipsolverSSgels_(v0, v3, v3, v3, v0, v3, v0, v3, v0, v3, v0, v8, v0, v0) if (never) v1 = hipsolverDDgels_(v0, v3, v3, v3, v0, v3, v0, v3, v0, v3, v0, v8, v0, v0) if (never) v1 = hipsolverCCgels_(v0, v3, v3, v3, v0, v3, v0, v3, v0, v3, v0, v8, v0, v0) @@ -157,11 +157,11 @@ program test_hipsolver if (never) v1 = hipsolverDDgesv_(v0, v3, v3, v0, v3, v0, v0, v3, v0, v3, v0, v8, v0, v0) if (never) v1 = hipsolverCCgesv_(v0, v3, v3, v0, v3, v0, v0, v3, v0, v3, v0, v8, v0, v0) if (never) v1 = hipsolverZZgesv_(v0, v3, v3, v0, v3, v0, v0, v3, v0, v3, v0, v8, v0, v0) -#endif if (never) v1 = hipsolverSgesvd_bufferSize_(v0, v9, v9, v3, v3, v0) if (never) v1 = hipsolverDgesvd_bufferSize_(v0, v9, v9, v3, v3, v0) if (never) v1 = hipsolverCgesvd_bufferSize_(v0, v9, v9, v3, v3, v0) if (never) v1 = hipsolverZgesvd_bufferSize_(v0, v9, v9, v3, v3, v0) +#endif if (never) v1 = hipsolverSgesvd_(v0, v9, v9, v3, v3, v0, v3, v0, v0, v3, v0, v3, v0, v3, v0, v0) if (never) v1 = hipsolverDgesvd_(v0, v9, v9, v3, v3, v0, v3, v0, v0, v3, v0, v3, v0, v3, v0, v0) if (never) v1 = hipsolverCgesvd_(v0, v9, v9, v3, v3, v0, v3, v0, v0, v3, v0, v3, v0, v3, v0, v0) diff --git a/test/f2003/rocblas/ddot_typed.f03 b/test/f2003/rocblas/ddot_typed.f03 new file mode 100644 index 000000000..539dc8632 --- /dev/null +++ b/test/f2003/rocblas/ddot_typed.f03 @@ -0,0 +1,99 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! The same check as ddot.f03, through the _typed form: the result is a Fortran +! variable rather than c_loc() of one, so the generic resolves to the _typed +! module procedure, which hands the C API its address. The handle is in host +! pointer mode, as that form requires. +program rocblas_ddot_test_typed + + use iso_c_binding + use hipfort + use hipfort_check + use hipfort_rocblas + + implicit none + + integer, parameter :: N = 10240 + integer, parameter :: bytes_per_element = 8 ! double precision + integer(c_size_t), parameter :: Nbytes = N * bytes_per_element + + type(c_ptr) :: dx = c_null_ptr + type(c_ptr) :: dy = c_null_ptr + + double precision,allocatable,target,dimension(:) :: hx + double precision,allocatable,target,dimension(:) :: hy + double precision :: res + + double precision :: res_exact + double precision :: error + double precision, parameter :: error_max = 10 * epsilon(error_max) + + type(c_ptr) :: rocblas_handle + + write(*,"(a)",advance="no") "-- Running test 'ddot typed' (Fortran 2003 interfaces) - " + + ! Create rocblas handle + call rocblasCheck(rocblas_create_handle(rocblas_handle)) + call rocblasCheck(rocblas_set_pointer_mode(rocblas_handle, rocblas_pointer_mode_host)) ! host pointer mode + + ! Allocate host-side memory + allocate(hx(N)) + allocate(hy(N)) + + ! Initialize host memory + hx = 1.d0 ! x = 1 + hy = 2.d0 ! y = 2 + res_exact = 2.d0 * N ! sum(x*y) = 2n + + ! Allocate device-side memory + call hipCheck(hipMalloc(dx, Nbytes)) + call hipCheck(hipMalloc(dy, Nbytes)) + + ! Transfer data from host to device memory + call hipCheck(hipMemcpy(dx, c_loc(hx(1)), Nbytes, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(dy, c_loc(hy(1)), Nbytes, hipMemcpyHostToDevice)) + + ! Call rocblas function + res = 0.d0 + call rocblasCheck(rocblas_ddot(rocblas_handle, N, dx, 1, dy, 1, res)) + call hipCheck(hipDeviceSynchronize()) ! res now valid host-side + + ! Verification + error = abs((res_exact - res) / res_exact) + if(error .gt. error_max) then + write(*,*) "FAILED! Error bigger than max! Error = ", error, " result = ", res + call exit(1) + end if + + ! Cleanup + call hipCheck(hipFree(dx)) + call hipCheck(hipFree(dy)) + deallocate(hx, hy) + call rocblasCheck(rocblas_destroy_handle(rocblas_handle)) + + write(*,*) "PASSED!" + +end program rocblas_ddot_test_typed diff --git a/test/f2003/rocsparse/ddoti_typed.f03 b/test/f2003/rocsparse/ddoti_typed.f03 new file mode 100644 index 000000000..c05875b35 --- /dev/null +++ b/test/f2003/rocsparse/ddoti_typed.f03 @@ -0,0 +1,109 @@ +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! +! Copyright (C) 2026 Advanced Micro Devices, Inc. All rights reserved. +! +! SPDX-License-Identifier: MIT +! +! Permission is hereby granted, free of charge, to any person obtaining a copy +! of this software and associated documentation files (the "Software"), to deal +! in the Software without restriction, including without limitation the rights +! to use, copy, modify, merge, publish, distribute, sublicense, and/or sell +! copies of the Software, and to permit persons to whom the Software is +! furnished to do so, subject to the following conditions: +! +! The above copyright notice and this permission notice shall be included in +! all copies or substantial portions of the Software. +! +! THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR +! IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, +! FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE +! AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER +! LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, +! OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN +! THE SOFTWARE. +! +!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! + +! The same check as ddoti.f03, through the _typed form: the result is a Fortran +! variable rather than c_loc() of one, so the generic resolves to the _typed +! module procedure, which hands the C API its address. The handle is in host +! pointer mode, as that form requires. +program rocsparse_ddoti_test_typed + + use iso_c_binding + use hipfort + use hipfort_check + use hipfort_rocsparse + + implicit none + + integer, target :: h_xind(3) + real(8), target :: h_xval(3), h_y(9) + real(8), target :: h_dot + + type(c_ptr) :: d_xind + type(c_ptr) :: d_xval + type(c_ptr) :: d_y + + integer :: i + integer(c_int) :: M, nnz + + type(c_ptr) :: handle + + write(*,"(a)",advance="no") "-- Running test 'ddoti typed' (Fortran 2003 interfaces) - " + +! Input data + +! Number of rows + M = 9 + +! Number of non-zero entries + nnz = 3 + +! Fill structures + h_xind = (/0, 3, 5/) + h_xval = (/1, 2, 3/) + h_y = (/1, 2, 3, 4, 5, 6, 7, 8, 9/) + +! Allocate device memory + call hipCheck(hipMalloc(d_xind, (int(nnz, c_size_t) + 1) * 4)) + call hipCheck(hipMalloc(d_xval, int(nnz, c_size_t) * 8)) + call hipCheck(hipMalloc(d_y, int(M, c_size_t) * 8)) + +! Copy host data to device + call hipCheck(hipMemcpy(d_xind, c_loc(h_xind(1)), (int(nnz, c_size_t) + 1) * 4, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_xval, c_loc(h_xval(1)), int(nnz, c_size_t) * 8, hipMemcpyHostToDevice)) + call hipCheck(hipMemcpy(d_y, c_loc(h_y(1)), int(M, c_size_t) * 8, hipMemcpyHostToDevice)) + +! Create rocSPARSE handle + call rocsparseCheck(rocsparse_create_handle(handle)) + call rocsparseCheck(rocsparse_set_pointer_mode(handle, rocsparse_pointer_mode_host)) + +! Call ddoti, the result written straight into the host variable + h_dot = -1d0 + call rocsparseCheck(rocsparse_ddoti(handle, & + nnz, & + d_xval, & + d_xind, & + d_y, & + h_dot, & + rocsparse_index_base_zero)) + + +! Verification + if(h_dot /= 27d0) then + write(*,*) 'FAILED!' + call exit(1) + end if + +! Clear rocSPARSE + call rocsparseCheck(rocsparse_destroy_handle(handle)) + +! Clear device memory + call hipCheck(hipFree(d_xind)) + call hipCheck(hipFree(d_xval)) + call hipCheck(hipFree(d_y)) + +! Print success + write(*,*) 'PASSED!' + +end program rocsparse_ddoti_test_typed \ No newline at end of file