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.
15 lines
268 B
Fortran
15 lines
268 B
Fortran
19 years ago
|
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
|