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