db_init Subroutine

  1. mod_layer.f90
  2. mod_layer
  3. db_init

public pure subroutine db_init(db, dims)

Initialises biases structure.

Arguments

Type IntentOptional AttributesName
type(array1d), intent(inout), allocatable:: db(:)
integer(kind=ik), intent(in) :: dims(:)

Calls

proc~~db_init~~CallsGraph proc~db_init db_init interface~array1d array1d proc~db_init->interface~array1d proc~array1d_constructor array1d_constructor interface~array1d->proc~array1d_constructor

Called by

proc~~db_init~~CalledByGraph proc~db_init db_init proc~backprop backprop proc~backprop->proc~db_init proc~train_batch train_batch proc~train_batch->proc~db_init

Contents

Source Code

db_init

Source Code

  pure subroutine db_init(db, dims)
    !! Initialises biases structure.
    type(array1d), allocatable, intent(in out) :: db(:)
    integer(ik), intent(in) :: dims(:)
    integer(ik) :: n, nm
    nm = size(dims)
    allocate(db(nm))
    do n = 1, nm - 1
      db(n) = array1d(dims(n))
    end do
    db(n) = array1d(dims(n))
  end subroutine db_init