You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
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
|