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.
|
interface
|
|
!.....user passed subroutine.....
|
|
subroutine parts(glob_index,nrow,np,pv,nv)
|
|
import :: psb_ipk_
|
|
integer(psb_ipk_), intent (in) :: glob_index,np,nrow
|
|
integer(psb_ipk_), intent (out) :: nv, pv(*)
|
|
end subroutine parts
|
|
end interface
|