finalise_ono Subroutine

  subroutine finalise_ono(this)
    !! Finalise the orthogonal neural operator block
    implicit none

    ! Arguments
    type(orthogonal_nop_block_type), intent(inout) :: this
    !! Layer instance to release

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

  end subroutine finalise_ono