Skip to content

Update the classification of the arguments, and cover the query routines #571

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
amontoison merged 4 commits into from
Oct 2, 2026
Merged

Update the classification of the arguments, and cover the query routines #571

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
0422854
Update the classification of the arguments
amontoison Oct 1, 2026
39a5b38
fix(test): follow the spildlt0 buffer-size signature change
amontoison Oct 1, 2026
e10dd78
test: cover the library and handle query routines
amontoison Oct 1, 2026
2d13ec5
Fix tests
amontoison Oct 1, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
54 changes: 27 additions & 27 deletions lib/hipfort/hipfort_hipsolver.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -100,7 +100,7 @@ function hipsolverGetDeterministicMode_(handle,mode) &
implicit none
integer(kind(HIPSOLVER_STATUS_SUCCESS)) :: hipsolverGetDeterministicMode_
type(c_ptr),value :: handle
type(c_ptr),value :: mode
integer(kind(HIPSOLVER_DETERMINISTIC_RESULTS)) :: mode
end function
end interface
#endif
Expand Down Expand Up @@ -7065,7 +7065,7 @@ function hipsolverDnGetDeterministicMode_(handle,mode) &
implicit none
integer(kind(HIPSOLVER_STATUS_SUCCESS)) :: hipsolverDnGetDeterministicMode_
type(c_ptr),value :: handle
type(c_ptr),value :: mode
integer(kind(HIPSOLVER_DETERMINISTIC_RESULTS)) :: mode
end function
end interface

Expand Down Expand Up @@ -13087,8 +13087,8 @@ function hipsolverDnXgeev_bufferSize_(handle,params,jobvl,jobvr,n,dataTypeA,A,ld
type(c_ptr),value :: VR
integer(c_int64_t),value :: ldvr
integer(kind(HIP_R_32F)),value :: computeType
type(c_ptr),value :: lworkOnDevice
type(c_ptr),value :: lworkOnHost
integer(c_size_t) :: lworkOnDevice
integer(c_size_t) :: lworkOnHost
end function
end interface

Expand Down Expand Up @@ -13159,8 +13159,8 @@ function hipsolverDnXgeqrf_bufferSize_(handle,params,m,n,dataTypeA,A,lda,dataTyp
integer(kind(HIP_R_32F)),value :: dataTypeTau
type(c_ptr),value :: tau
integer(kind(HIP_R_32F)),value :: computeType
type(c_ptr),value :: lworkOnDevice
type(c_ptr),value :: lworkOnHost
integer(c_size_t) :: lworkOnDevice
integer(c_size_t) :: lworkOnHost
end function
end interface

Expand Down Expand Up @@ -13220,7 +13220,7 @@ function hipsolverDnXgetrf_bufferSize_(handle,params,m,n,dataTypeA,A,lda,compute
type(c_ptr),value :: A
integer(c_int64_t),value :: lda
integer(kind(HIP_R_32F)),value :: computeType
type(c_ptr),value :: lworkOnDevice
integer(c_size_t) :: lworkOnDevice
integer(c_size_t) :: lworkOnHost
end function
end interface
Expand Down Expand Up @@ -13383,8 +13383,8 @@ function hipsolverDnXpotrf_bufferSize_(handle,params,uplo,n,dataTypeA,A,lda,comp
type(c_ptr),value :: A
integer(c_int64_t),value :: lda
integer(kind(HIP_R_32F)),value :: computeType
type(c_ptr),value :: lworkOnDevice
type(c_ptr),value :: lworkOnHost
integer(c_size_t) :: lworkOnDevice
integer(c_size_t) :: lworkOnHost
end function
end interface

Expand Down Expand Up @@ -13473,8 +13473,8 @@ function hipsolverDnXsyevd_bufferSize_(handle,params,jobz,uplo,n,dataTypeA,A,lda
integer(kind(HIP_R_32F)),value :: dataTypeW
type(c_ptr),value :: W
integer(kind(HIP_R_32F)),value :: computeType
type(c_ptr),value :: lworkOnDevice
type(c_ptr),value :: lworkOnHost
integer(c_size_t) :: lworkOnDevice
integer(c_size_t) :: lworkOnHost
end function
end interface

Expand Down Expand Up @@ -13538,8 +13538,8 @@ function hipsolverDnXsyevBatched_bufferSize_(handle,params,jobz,uplo,n,dataTypeA
integer(kind(HIP_R_32F)),value :: dataTypeW
type(c_ptr),value :: W
integer(kind(HIP_R_32F)),value :: computeType
type(c_ptr),value :: lworkOnDevice
type(c_ptr),value :: lworkOnHost
integer(c_size_t) :: lworkOnDevice
integer(c_size_t) :: lworkOnHost
integer(c_int64_t),value :: batchSize
end function
end interface
Expand Down Expand Up @@ -13605,8 +13605,8 @@ function hipsolverDnXsytrs_bufferSize_(handle,uplo,n,nrhs,dataTypeA,A,lda,devIpi
integer(kind(HIP_R_32F)),value :: dataTypeB
type(c_ptr),value :: B
integer(c_int64_t),value :: ldb
type(c_ptr),value :: lworkOnDevice
type(c_ptr),value :: lworkOnHost
integer(c_size_t) :: lworkOnDevice
integer(c_size_t) :: lworkOnHost
end function
end interface

Expand Down Expand Up @@ -13751,7 +13751,7 @@ function hipsolverRfAccessBundledFactorsDevice_(handle,nnzM,Mp,Mi,Mx) &
implicit none
integer(kind(HIPSOLVER_STATUS_SUCCESS)) :: hipsolverRfAccessBundledFactorsDevice_
type(c_ptr),value :: handle
type(c_ptr),value :: nnzM
integer(c_int) :: nnzM
type(c_ptr) :: Mp
type(c_ptr) :: Mi
type(c_ptr) :: Mx
Expand Down Expand Up @@ -13785,7 +13785,7 @@ function hipsolverRfExtractBundledFactorsHost_(handle,h_nnzM,h_Mp,h_Mi,h_Mx) &
implicit none
integer(kind(HIPSOLVER_STATUS_SUCCESS)) :: hipsolverRfExtractBundledFactorsHost_
type(c_ptr),value :: handle
type(c_ptr),value :: h_nnzM
integer(c_int) :: h_nnzM
type(c_ptr) :: h_Mp
type(c_ptr) :: h_Mi
type(c_ptr) :: h_Mx
Expand All @@ -13807,11 +13807,11 @@ function hipsolverRfExtractSplitFactorsHost_(handle,h_nnzL,h_Lp,h_Li,h_Lx,h_nnzU
implicit none
integer(kind(HIPSOLVER_STATUS_SUCCESS)) :: hipsolverRfExtractSplitFactorsHost_
type(c_ptr),value :: handle
type(c_ptr),value :: h_nnzL
integer(c_int) :: h_nnzL
type(c_ptr) :: h_Lp
type(c_ptr) :: h_Li
type(c_ptr) :: h_Lx
type(c_ptr),value :: h_nnzU
integer(c_int) :: h_nnzU
type(c_ptr) :: h_Up
type(c_ptr) :: h_Ui
type(c_ptr) :: h_Ux
Expand All @@ -13826,8 +13826,8 @@ function hipsolverRfGet_Algs_(handle,fact_alg,solve_alg) bind(c, name="hipsolver
implicit none
integer(kind(HIPSOLVER_STATUS_SUCCESS)) :: hipsolverRfGet_Algs_
type(c_ptr),value :: handle
type(c_ptr),value :: fact_alg
type(c_ptr),value :: solve_alg
integer(kind(HIPSOLVERRF_FACTORIZATION_ALG0)) :: fact_alg
integer(kind(HIPSOLVERRF_TRIANGULAR_SOLVE_ALG1)) :: solve_alg
end function
end interface
#endif
Expand All @@ -13845,8 +13845,8 @@ function hipsolverRfGetMatrixFormat_(handle,myFormat,diag) &
implicit none
integer(kind(HIPSOLVER_STATUS_SUCCESS)) :: hipsolverRfGetMatrixFormat_
type(c_ptr),value :: handle
type(c_ptr),value :: myFormat
type(c_ptr),value :: diag
integer(kind(HIPSOLVERRF_MATRIX_FORMAT_CSR)) :: myFormat
integer(kind(HIPSOLVERRF_UNIT_DIAGONAL_STORED_L)) :: diag
end function
end interface

Expand All @@ -13863,7 +13863,7 @@ function hipsolverRfGetNumericBoostReport_(handle,report) &
implicit none
integer(kind(HIPSOLVER_STATUS_SUCCESS)) :: hipsolverRfGetNumericBoostReport_
type(c_ptr),value :: handle
type(c_ptr),value :: report
integer(kind(HIPSOLVERRF_NUMERIC_BOOST_NOT_USED)) :: report
end function
end interface

Expand All @@ -13880,8 +13880,8 @@ function hipsolverRfGetNumericProperties_(handle,zero,boost) &
implicit none
integer(kind(HIPSOLVER_STATUS_SUCCESS)) :: hipsolverRfGetNumericProperties_
type(c_ptr),value :: handle
type(c_ptr),value :: zero
type(c_ptr),value :: boost
real(c_double) :: zero
real(c_double) :: boost
end function
end interface

Expand All @@ -13898,7 +13898,7 @@ function hipsolverRfGetResetValuesFastMode_(handle,fastMode) &
implicit none
integer(kind(HIPSOLVER_STATUS_SUCCESS)) :: hipsolverRfGetResetValuesFastMode_
type(c_ptr),value :: handle
type(c_ptr),value :: fastMode
integer(kind(HIPSOLVERRF_RESET_VALUES_FAST_MODE_OFF)) :: fastMode
end function
end interface

Expand Down
Loading