8 lines
221 B
Plaintext
8 lines
221 B
Plaintext
20 years ago
|
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
|