mirror of
https://github.com/sfilippone/psblas3.git
synced 2026-10-19 20:32:12 +00:00
8 lines
221 B
Plaintext
8 lines
221 B
Plaintext
interface
|
|
!.....user passed subroutine.....
|
|
subroutine parts(glob_index,nrow,np,pv,nv)
|
|
integer, intent (in) :: glob_index,np,nrow
|
|
integer, intent (out) :: nv, pv(*)
|
|
end subroutine parts
|
|
end interface
|