nullify_graph Module Subroutine

  module subroutine nullify_graph(this)
    !! Nullify the input graph
    implicit none

    ! Arguments
    class(network_type), intent(inout) :: this
    !! Instance of network

    ! Local variables
    integer :: l

    do l = 1, this%num_layers
       call this%model(l)%layer%nullify_graph()
    end do

  end subroutine nullify_graph