feat(add c implementation): add math/base/special/cabs2f

Author: vivekmaurya001

lib/node_modules/@stdlib/math/base/special/cabs2f/README.md

@@ -149,10 +149,10 @@ float y = stdlib_base_cabs2f( z );
 
 The function accepts the following arguments:
 
--   **z**: `[in] float complex` input value.
+-   **z**: `[in] stdlib_complex64_t` input value.
 
 ```c
-float stdlib_base_cabs2f( const float complex z );
+float stdlib_base_cabs2f( const stdlib_complex64_t z );
 ```
 
 </section>
@@ -175,19 +175,28 @@ float stdlib_base_cabs2f( const float complex z );
 
 ```c
 #include "stdlib/math/base/special/cabs2f.h"
+#include "stdlib/complex/float32/ctor.h"
+#include "stdlib/complex/float32/reim.h"
 #include <stdio.h>
-#include <complex.h>
 
 int main( void ) {
-    const float complex x[] = { 3.14f+1.0f*I, -3.14f-1.0f*I, 0.0f+0.0f*I, 0.0f/0.0f+0.0f/0.0f*I };
-
-    float complex v;
+    const stdlib_complex64_t x[] = {
+        stdlib_complex64( 3.14f, 1.0f ),
+        stdlib_complex64( -3.14f, -1.0f ),
+        stdlib_complex64( 0.0f, 0.0f ),
+        stdlib_complex64( 0.0f/0.0f, 0.0f/0.0f )
+    };
+
+    stdlib_complex64_t v;
+    float re;
+    float im;
     float y;
     int i;
     for ( i = 0; i < 4; i++ ) {
         v = x[ i ];
         y = stdlib_base_cabs2f( v );
-        printf( "f(%f + %f) = %f\n", crealf( v ), cimagf( v ), y );
+        stdlib_complex64_reim( v, &re, &im );
+        printf( "f(%f + %f) = %f\n", re, im, y );
     }
 }
 ```

lib/node_modules/@stdlib/math/base/special/cabs2f/test/test.js

@@ -71,13 +71,13 @@ tape( 'if either the real or imaginary component is `NaN`, the function returns
 	var v;
 
 	v = cabs2f( new Complex64( NaN, 3.0 ) );
-	t.strictEqual( isnanf( v ), true, 'returns NaN' );
+	t.strictEqual( isnanf( v ), true, 'returns expected value' );
 
 	v = cabs2f( new Complex64( 5.0, NaN ) );
-	t.strictEqual( isnanf( v ), true, 'returns NaN' );
+	t.strictEqual( isnanf( v ), true, 'returns expected value' );
 
 	v = cabs2f( new Complex64( NaN, NaN ) );
-	t.strictEqual( isnanf( v ), true, 'returns NaN' );
+	t.strictEqual( isnanf( v ), true, 'returns expected value' );
 
 	t.end();
 });