mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-17 03:12:15 +00:00
15 lines
256 B
Fortran
15 lines
256 B
Fortran
subroutine psb_setifield(val,field,info,isize,ierr)
|
|
integer :: val,field,isize,ierr
|
|
integer :: info(*)
|
|
|
|
ierr = 0
|
|
|
|
if ((field < 1).or.(field > isize)) then
|
|
ierr = -1
|
|
return
|
|
endif
|
|
|
|
info(field) = val
|
|
return
|
|
end subroutine psb_setifield
|