finalise_conv1d Subroutine

private subroutine finalise_conv1d(this)

Finalise 1D convolutional layer

Arguments

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

Instance of the 1D convolutional layer

Source Code

  subroutine finalise_conv1d(this)
    !! Finalise 1D convolutional layer
    implicit none

    ! Arguments
    type(conv1d_layer_type), intent(inout) :: this
    !! Instance of the 1D convolutional layer

    if(allocated(this%dil)) deallocate(this%dil)
    if(allocated(this%knl)) deallocate(this%knl)
    if(allocated(this%stp)) deallocate(this%stp)

    if(allocated(this%input_shape)) deallocate(this%input_shape)
    if(allocated(this%output)) deallocate(this%output)
    if(allocated(this%pad_layer)) deallocate(this%pad_layer)
    if(this%z(1)%allocated) call this%z(1)%deallocate()
    if(this%z(2)%allocated) call this%z(2)%deallocate()

  end subroutine finalise_conv1d