set_input_real Subroutine

private pure subroutine set_input_real(this, input)

Set input values for an input layer

Type Bound

input_layer_type

Arguments

Type IntentOptional Attributes Name
class(input_layer_type), intent(inout) :: this

Instance of the input layer
real(kind=real32), intent(in), dimension(..) :: input

Input data

Source Code

  pure subroutine set_input_real(this, input)
    !! Set input values for an input layer
    implicit none

    ! Arguments
    class(input_layer_type), intent(inout) :: this
    !! Instance of the input layer
    real(real32), dimension(..), intent(in) :: input
    !! Input data

    call this%output(1,1)%set( input )
    this%output(1,1)%is_temporary = .false.

  end subroutine set_input_real