nf_reshape_layer.f90

module nf_reshape_layer

  !! This module provides the concrete reshape layer type.
  !! It is used internally by the layer type.
  !! It is not intended to be used directly by the user.

  use nf_base_layer, only: base_layer

  implicit none

  private
  public :: reshape3d_layer

  type, extends(base_layer) :: reshape3d_layer

    !! Concrete implementation of a reshape layer type
    !! It implements only rank-1 to rank-3 reshaping.

    integer :: input_shape(1)
    integer :: output_shape(3)
    real, allocatable :: gradient(:)
    real, allocatable :: output(:,:,:)

  contains

    procedure :: backward
    procedure :: forward
    procedure :: init

  end type reshape3d_layer

  interface reshape3d_layer
    pure module function reshape3d_layer_cons(output_shape) result(res)
      !! This function returns the `reshape_layer` instance.
      integer, intent(in) :: output_shape(3)
        !! The shape of the output
      type(reshape3d_layer) :: res
        !! reshape_layer instance
    end function reshape3d_layer_cons
  end interface reshape3d_layer

  interface

    pure module subroutine backward(self, input, gradient)
      !! Apply the backward pass for the reshape3d layer.
      !! This is just flattening to a rank-1 array.
      class(reshape3d_layer), intent(in out) :: self
        !! Dense layer instance
      real, intent(in) :: input(:)
        !! Input from the previous layer
      real, intent(in) :: gradient(:,:,:)
        !! Gradient from the next layer
    end subroutine backward

    pure module subroutine forward(self, input)
      !! Apply the forward pass for the reshape3d layer.
      !! This is just a reshape from rank-1 to rank-3 array.
      class(reshape3d_layer), intent(in out) :: self
        !! Dense layer instance
      real, intent(in) :: input(:)
        !! Input from the previous layer
    end subroutine forward

    module subroutine init(self, input_shape)
      !! Initialize the layer data structures.
      !!
      !! This is a deferred procedure from the `base_layer` abstract type.
      class(reshape3d_layer), intent(in out) :: self
        !! Dense layer instance
      integer, intent(in) :: input_shape(:)
        !! Shape of the input layer
    end subroutine init

  end interface

end module nf_reshape_layer