53
53
<a name="line43"> 43: </a>! Note each processor is generating its own index set
54
54
<a name="line44"> 44: </a>! (in this <font color="#4169E1">case</font> they are all identical)
55
55
<a name="line45"> 45: </a>!
56
<a name="line46"> 46: </a> call <A href="../../../../../docs/manualpages/IS/ISCreateBlock.html#ISCreateBlock">ISCreateBlock</A>(PETSC_COMM_SELF,bs,n,inputindices,set,ierr)
57
<a name="line47"> 47: </a> call <A href="../../../../../docs/manualpages/IS/ISView.html#ISView">ISView</A>(set,PETSC_VIEWER_STDOUT_SELF,ierr)
56
<a name="line46"> 46: </a> call <A href="../../../../../docs/manualpages/IS/ISCreateBlock.html#ISCreateBlock">ISCreateBlock</A>(<A href="../../../../../docs/manualpages/Sys/PETSC_COMM_SELF.html#PETSC_COMM_SELF">PETSC_COMM_SELF</A>,bs,n,inputindices,set,ierr)
57
<a name="line47"> 47: </a> call <A href="../../../../../docs/manualpages/IS/ISView.html#ISView">ISView</A>(set,<A href="../../../../../docs/manualpages/Viewer/PETSC_VIEWER_STDOUT_SELF.html#PETSC_VIEWER_STDOUT_SELF">PETSC_VIEWER_STDOUT_SELF</A>,ierr)
59
59
<a name="line49"> 49: </a>!
60
60
<a name="line50"> 50: </a>! Extract indices from set.