extract_output_base Module Subroutine

module subroutine extract_output_base(this, output)

Get the output of the layer

Arguments

Type IntentOptional Attributes Name
class(base_layer_type), intent(in) :: this

Instance of the layer
real(kind=real32), intent(out), allocatable, dimension(..) :: output

Output of the Layer

Source Code

  module subroutine extract_output_base(this, output)
    !! Get the output of the layer
    implicit none

    ! Arguments
    class(base_layer_type), intent(in) :: this
    !! Instance of the layer
    real(real32), allocatable, dimension(..), intent(out) :: output
    !! Output of the Layer

    if(size(this%output).gt.1)then
       call print_warning("extract_output_base: output has more than one"&
            &" sample, cannot extract")
       return
    end if

    call this%output(1,1)%extract(output)

  end subroutine extract_output_base