fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-19 20:32:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Minor fixes to silence Intel compiler warnings.

Browse Source
This commit is contained in:
sfilippone
2026-09-17 11:37:16 +02:00
parent 6e4ae2eacd
commit bf40c96646
12 changed files with 130 additions and 83 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/serial/impl/psb_base_mat_impl.f90
+2
View File
@@ -166,6 +166,7 @@ subroutine psb_base_csgetptn(imin,imax,a,nz,ia,ja,info,&
! it means the derived class is incomplete,
! so we throw an error.
info = psb_err_missing_override_method_
nz = -1
call psb_errpush(info,name,a_err=a%get_fmt())
call psb_error_handler(err_act)
end subroutine psb_base_csgetptn
@@ -457,6 +458,7 @@ subroutine psb_lbase_csgetptn(imin,imax,a,nz,ia,ja,info,&
! it means the derived class is incomplete,
! so we throw an error.
info = psb_err_missing_override_method_
nz = -1
call psb_errpush(info,name,a_err=a%get_fmt())
call psb_error_handler(err_act)
end subroutine psb_lbase_csgetptn