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