linear2d_layer: temporarily remove api

Author: OneAdder

src/nf/nf_layer_constructors.f90

@@ -166,8 +166,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

@@ -135,13 +135,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

@@ -45,8 +45,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
@@ -104,11 +104,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
 
@@ -174,8 +174,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)
@@ -190,13 +190,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
 
@@ -311,8 +311,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
@@ -338,8 +338,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
@@ -365,8 +365,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
@@ -427,8 +427,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

@@ -148,8 +148,8 @@ module subroutine backward(self, output, loss)
             call self % layers(n) % backward(self % layers(n - 1), next_layer % gradient)
           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