Merge pull request #40 from sourceryinstitute/add-num-vertices

Add get_num_vertices type-bound procedure

Author: Damian Rouson

src/dag_implementation.F90

@@ -65,6 +65,10 @@
 
 !*******************************************************************************
 
+  module procedure dag_get_num_vertices
+    num_vertices = size(me%vertices)
+  end procedure
+
   module procedure dag_get_edges
 
     call assert(ivertex>=lbound(me%vertices,1) .and. ivertex<=ubound(me%vertices,1),"dag_get_edges: index in bounds")

src/dag_interface.f90

@@ -165,6 +165,7 @@ module dag_interface
         procedure,public  :: toposort                   => dag_toposort
         procedure,public  :: generate_dependency_matrix => dag_generate_dependency_matrix
         procedure,public  :: save_digraph               => dag_save_digraph
+        procedure,public  :: get_num_vertices           => dag_get_num_vertices
         procedure,public  :: get_edges                  => dag_get_edges
         procedure,public  :: get_dependencies           => dag_get_dependencies
 
@@ -192,6 +193,12 @@ module function from_json(me_json) result(me)
          type(json_object_t), intent(in) :: me_json
          type(dag_t) :: me
        end function
+!*******************************************************************************
+       pure module function dag_get_num_vertices(me) result(num_vertices)
+         implicit none
+         class(dag_t), intent(in) :: me
+         integer num_vertices
+       end function
 !*******************************************************************************
        pure module function dag_get_edges(me,ivertex) result(edges)
          implicit none