examples bugfix

Author: jalvesz

doc/specs/stdlib_specialfunctions_activations.md

@@ -337,7 +337,7 @@ scale * (\alpha * exp(x) - \alpha ), & \text{otherwise}
 \end{cases}
 $$
 Where,
-$scale = 1.0507009873554804934193349852946$ and $\alpha = 1.6732632423543772848170429916717$
+$$scale = 1.0507009873554804934193349852946$$ and $$\alpha = 1.6732632423543772848170429916717$$
 
 ### Syntax
 

example/specialfunctions_activations/example_elu.f90

@@ -2,10 +2,9 @@ program example_elu
     use stdlib_kinds, only: sp
     use stdlib_math, only: linspace
     use stdlib_specialfunctions, only: elu
-    
+    implicit none
     integer, parameter :: n = 10
     real(sp) :: x(n), y(n)
-    implicit none
 
     x = linspace(-2._sp, 2._sp, n)
     y = elu( x , 1.0 )

example/specialfunctions_activations/example_gaussian.f90

@@ -2,11 +2,10 @@ program example_gaussian
     use stdlib_kinds, only: sp
     use stdlib_math, only: linspace
     use stdlib_specialfunctions, only: gaussian
-    
+    implicit none
     integer, parameter :: n = 10
     real(sp) :: x(n), y(n)
-    implicit none
-  
+    
     x = linspace(-2._sp, 2._sp, n)
     y = gaussian( x )
     print *, y

example/specialfunctions_activations/example_gelu.f90

@@ -2,11 +2,10 @@ program example_gelu
     use stdlib_kinds, only: sp
     use stdlib_math, only: linspace
     use stdlib_specialfunctions, only: gelu
-    
+    implicit none
     integer, parameter :: n = 10
     real(sp) :: x(n), y(n)
-    implicit none
-  
+    
     x = linspace(-2._sp, 2._sp, n)
     y = gelu( x )
     print *, y

example/specialfunctions_activations/example_logsoftmax.f90

@@ -2,11 +2,10 @@ program example_logsoftmax
     use stdlib_kinds, only: sp
     use stdlib_math, only: linspace
     use stdlib_specialfunctions, only: logsoftmax
-    
+    implicit none
     integer, parameter :: n = 10
     real(sp) :: x(n), y(n)
-    implicit none
-  
+    
     x = linspace(-2._sp, 2._sp, n)
     y = logsoftmax( x )
     print *, y

example/specialfunctions_activations/example_relu.f90

@@ -2,11 +2,10 @@ program example_relu
     use stdlib_kinds, only: sp
     use stdlib_math, only: linspace
     use stdlib_specialfunctions, only: relu
-    
+    implicit none
     integer, parameter :: n = 10
     real(sp) :: x(n), y(n)
-    implicit none
-  
+    
     x = linspace(-2._sp, 2._sp, n)
     y = relu( x )
     print *, y

example/specialfunctions_activations/example_selu.f90

@@ -2,11 +2,10 @@ program example_selu
     use stdlib_kinds, only: sp
     use stdlib_math, only: linspace
     use stdlib_specialfunctions, only: selu
-    
+    implicit none
     integer, parameter :: n = 10
     real(sp) :: x(n), y(n)
-    implicit none
-  
+    
     x = linspace(-2._sp, 2._sp, n)
     y = selu( x )
     print *, y

example/specialfunctions_activations/example_silu.f90

@@ -2,11 +2,10 @@ program example_silu
     use stdlib_kinds, only: sp
     use stdlib_math, only: linspace
     use stdlib_specialfunctions, only: silu
-    
+    implicit none
     integer, parameter :: n = 10
     real(sp) :: x(n), y(n)
-    implicit none
-  
+    
     x = linspace(-2._sp, 2._sp, n)
     y = silu( x )
     print *, y

example/specialfunctions_activations/example_softmax.f90

@@ -2,11 +2,10 @@ program example_softmax
     use stdlib_kinds, only: sp
     use stdlib_math, only: linspace
     use stdlib_specialfunctions, only: softmax
-    
+    implicit none
     integer, parameter :: n = 10
     real(sp) :: x(n), y(n)
-    implicit none
-  
+    
     x = linspace(-2._sp, 2._sp, n)
     y = softmax( x )
     print *, y

example/specialfunctions_activations/example_softplus.f90

@@ -2,11 +2,10 @@ program example_softplus
     use stdlib_kinds, only: sp
     use stdlib_math, only: linspace
     use stdlib_specialfunctions, only: softplus
-    
+    implicit none
     integer, parameter :: n = 10
     real(sp) :: x(n), y(n)
-    implicit none
-  
+    
     x = linspace(-2._sp, 2._sp, n)
     y = softplus( x )
     print *, y