linear2d_layer: remove flatten2d layer

Author: OneAdder

src/nf/nf_flatten2d_layer.f90

@@ -8,7 +8,7 @@ module nf_layer_constructors
   implicit none
 
   private
-  public :: conv2d, dense, flatten, flatten2d, input, maxpool2d, reshape, linear2d
+  public :: conv2d, dense, flatten, input, maxpool2d, reshape, linear2d
 
   interface input
 
@@ -125,25 +125,6 @@ module function flatten() result(res)
         !! Resulting layer instance
     end function flatten
 
-    module function flatten2d() result(res)
-      !! Flatten (2-d -> 1-d) layer constructor.
-      !!
-      !! Use this layer to chain layers with 2-d outputs to layers with 2-d
-      !! inputs.
-      !!
-      !! A flatten layer must not be the first layer in the network.
-      !!
-      !! Example:
-      !!
-      !! ```
-      !! use nf, only :: flatten, layer
-      !! type(layer) :: flatten_layer
-      !! flatten_layer = flatten()
-      !! ```
-      type(layer) :: res
-        !! Resulting layer instance
-    end function flatten2d
-
     module function conv2d(filters, kernel_size, activation) result(res)
       !! 2-d convolutional layer constructor.
       !!

src/nf/nf_flatten2d_layer_submodule.f90

@@ -4,7 +4,6 @@
   use nf_conv2d_layer, only: conv2d_layer
   use nf_dense_layer, only: dense_layer
   use nf_flatten_layer, only: flatten_layer
-  use nf_flatten2d_layer, only: flatten2d_layer
   use nf_input1d_layer, only: input1d_layer
   use nf_input2d_layer, only: input2d_layer
   use nf_input3d_layer, only: input3d_layer
@@ -73,12 +72,6 @@ module function flatten() result(res)
   end function flatten
 
 
-  module function flatten2d() result(res)
-    type(layer) :: res
-    res % name = 'flatten2d'
-    allocate(res % p, source=flatten2d_layer())
-  end function flatten2d
-
 
   module function input1d(layer_size) result(res)
     integer, intent(in) :: layer_size