finalise_duvenaud Subroutine

private subroutine finalise_duvenaud(this)

Finalise the message passing layer

Arguments

Type IntentOptional Attributes Name
type(duvenaud_msgpass_layer_type), intent(inout) :: this

Instance of the fully connected layer

Source Code

  subroutine finalise_duvenaud(this)
    !! Finalise the message passing layer
    implicit none

    ! Arguments
    type(duvenaud_msgpass_layer_type), intent(inout) :: this
    !! Instance of the fully connected layer

    if(allocated(this%input_shape)) deallocate(this%input_shape)
    if(allocated(this%output_shape)) deallocate(this%output_shape)
    if(allocated(this%output)) deallocate(this%output)

  end subroutine finalise_duvenaud