find_initialiser_by_name Function

  integer function find_initialiser_by_name(name, inits, num_inits)
    !! Return the index of a named initialiser, or zero when not found.
    implicit none

    character(*), intent(in) :: name
    type(onnx_initialiser_type), intent(in) :: inits(:)
    integer, intent(in) :: num_inits

    integer :: i

    find_initialiser_by_name = 0
    do i = 1, num_inits
       if(trim(inits(i)%name) .eq. trim(name))then
          find_initialiser_by_name = i
          return
       end if
    end do

  end function find_initialiser_by_name