linear2d_layer: temporarily remove api

Author: OneAdder

src/nf/nf_layer_constructors.f90

@@ -185,8 +185,8 @@ module function reshape(output_shape) result(res)
         !! Resulting layer instance
     end function reshape
 
-    module function linear2d(sequence_length, in_features, out_features, batch_size) result(res)
-      integer, intent(in) :: batch_size, sequence_length, in_features, out_features
+    module function linear2d(sequence_length, in_features, out_features) result(res)
+      integer, intent(in) :: sequence_length, in_features, out_features
       type(layer) :: res
     end function linear2d
 

src/nf/nf_layer_constructors_submodule.f90

@@ -149,13 +149,13 @@ module function reshape(output_shape) result(res)
 
   end function reshape
 
-  module function linear2d(sequence_length, in_features, out_features, batch_size) result(res)
-    integer, intent(in) :: batch_size, sequence_length, in_features, out_features
+  module function linear2d(sequence_length, in_features, out_features) result(res)
+    integer, intent(in) :: sequence_length, in_features, out_features
     type(layer) :: res
 
     res % name = 'linear2d'
-    res % layer_shape = [sequence_length, out_features, batch_size]
-    allocate(res % p, source=linear2d_layer(sequence_length, in_features, out_features, batch_size))
+    res % layer_shape = [sequence_length, out_features]
+    allocate(res % p, source=linear2d_layer(sequence_length, in_features, out_features))
   end function linear2d
 
 end submodule nf_layer_constructors_submodule

src/nf/nf_layer_submodule.f90

@@ -48,8 +48,8 @@ pure module subroutine backward_1d(self, previous, gradient)
             call this_layer % backward(prev_layer % output, gradient)
           type is(maxpool2d_layer)
             call this_layer % backward(prev_layer % output, gradient)
-          type is(linear2d_layer)
-            call this_layer % backward(prev_layer % output, gradient)
+!          type is(linear2d_layer)
+!            call this_layer % backward(prev_layer % output, gradient)
         end select
 
     end select
@@ -119,11 +119,11 @@ pure module subroutine backward_3d(self, previous, gradient)
             call this_layer % backward(prev_layer % output, gradient)
         end select
 
-      type is(linear2d_layer)
-        select type(prev_layer => previous % p)
-          type is(input3d_layer)
-            call this_layer % backward(prev_layer % output, gradient)
-        end select
+!      type is(linear2d_layer)
+!        select type(prev_layer => previous % p)
+!          type is(input3d_layer)
+!            call this_layer % backward(prev_layer % output, gradient)
+!        end select
 
     end select
 
@@ -191,8 +191,8 @@ pure module subroutine forward(self, input)
             call this_layer % forward(prev_layer % output)
           type is(reshape3d_layer)
             call this_layer % forward(prev_layer % output)
-          type is(linear2d_layer)
-            call this_layer % forward(prev_layer % output)
+!          type is(linear2d_layer)
+!            call this_layer % forward(prev_layer % output)
         end select
 
       type is(reshape3d_layer)
@@ -207,13 +207,13 @@ pure module subroutine forward(self, input)
             call this_layer % forward(prev_layer % output)
         end select
 
-      type is(linear2d_layer)
-        select type(prev_layer => input % p)
-          type is(input3d_layer)
-            call this_layer % forward(prev_layer % output)
-          type is(linear2d_layer)
-            call this_layer % forward(prev_layer % output)
-        end select
+!      type is(linear2d_layer)
+!        select type(prev_layer => input % p)
+!          type is(input3d_layer)
+!            call this_layer % forward(prev_layer % output)
+!          type is(linear2d_layer)
+!            call this_layer % forward(prev_layer % output)
+!        end select
 
     end select
 
@@ -347,8 +347,8 @@ elemental module function get_num_params(self) result(num_params)
         num_params = 0
       type is (reshape3d_layer)
         num_params = 0
-      type is (linear2d_layer)
-        num_params = this_layer % get_num_params()
+!      type is (linear2d_layer)
+!        num_params = this_layer % get_num_params()
       class default
         error stop 'Unknown layer type.'
     end select
@@ -376,8 +376,8 @@ module function get_params(self) result(params)
         ! No parameters to get.
       type is (reshape3d_layer)
         ! No parameters to get.
-      type is (linear2d_layer)
-        params = this_layer % get_params()
+!      type is (linear2d_layer)
+!        params = this_layer % get_params()
       class default
         error stop 'Unknown layer type.'
     end select
@@ -405,8 +405,8 @@ module function get_gradients(self) result(gradients)
         ! No gradients to get.
       type is (reshape3d_layer)
         ! No gradients to get.
-      type is (linear2d_layer)
-        gradients = this_layer % get_gradients()
+!      type is (linear2d_layer)
+!        gradients = this_layer % get_gradients()
       class default
         error stop 'Unknown layer type.'
     end select
@@ -472,8 +472,8 @@ module subroutine set_params(self, params)
           class default
         error stop 'Unknown layer type.'
 
-    type is (linear2d_layer)
-        call this_layer % set_params(params)
+!    type is (linear2d_layer)
+!        call this_layer % set_params(params)
     end select
 
   end subroutine set_params

src/nf/nf_network_submodule.f90

@@ -157,8 +157,8 @@ module subroutine backward(self, output, loss)
 
           type is(reshape3d_layer)
             call self % layers(n) % backward(self % layers(n - 1), next_layer % gradient)
-          type is(linear2d_layer)
-            call self % layers(n) % backward(self % layers(n - 1), next_layer % gradient)
+!          type is(linear2d_layer)
+!            call self % layers(n) % backward(self % layers(n - 1), next_layer % gradient)
         end select
       end if