Remove meaningless comments

Author: lepsch

lib/src/blas/dasum.dart

@@ -5,10 +5,6 @@
 import 'package:dart_lapack/blas.dart';
 
 double dasum(final int N, Array<double> DX, final int INCX) {
-// -- Reference BLAS level1 routine --
-// -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
-// -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
-
   if (N <= 0 || INCX <= 0) return 0.0;
 
   var DTEMP = 0.0;

lib/src/blas/daxpy.dart

@@ -12,9 +12,6 @@ void daxpy(
   final Array<double> DY_,
   final int INCY,
 ) {
-// -- Reference BLAS level1 routine --
-// -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
-// -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
   final DX = DX_.having();
   final DY = DY_.having();
 

lib/src/blas/dcabs1.dart

@@ -5,8 +5,5 @@
 import 'package:dart_lapack/blas.dart';
 
 double dcabs1(final Complex Z) {
-// -- Reference BLAS level1 routine --
-// -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
-// -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
   return Z.real.abs() + Z.imaginary.abs();
 }

lib/src/blas/dcopy.dart

@@ -11,9 +11,6 @@ void dcopy(
   final Array<double> DY_,
   final int INCY,
 ) {
-// -- Reference BLAS level1 routine --
-// -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
-// -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
   final DX = DX_.having();
   final DY = DY_.having();
 

lib/src/blas/ddot.dart

@@ -11,9 +11,6 @@ double ddot(
   final Array<double> DY_,
   final int INCY,
 ) {
-// -- Reference BLAS level1 routine --
-// -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
-// -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
   final DX = DX_.having();
   final DY = DY_.having();
 

lib/src/blas/dgbmv.dart

@@ -19,9 +19,6 @@ void dgbmv(
   final Array<double> Y_,
   final int INCY,
 ) {
-// -- Reference BLAS level2 routine --
-// -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
-// -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
   final A = A_.having(ld: LDA);
   final X = X_.having();
   final Y = Y_.having();

lib/src/blas/dgemm.dart

@@ -23,9 +23,6 @@ void dgemm(
   final Matrix<double> C_,
   final int LDC,
 ) {
-// -- Reference BLAS level3 routine --
-// -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
-// -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
   final A = A_.having(ld: LDA);
   final B = B_.having(ld: LDB);
   final C = C_.having(ld: LDC);

lib/src/blas/dgemv.dart

@@ -21,9 +21,6 @@ void dgemv(
   final Array<double> Y_,
   final int INCY,
 ) {
-// -- Reference BLAS level2 routine --
-// -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
-// -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
   final A = A_.having(ld: LDA);
   final X = X_.having();
   final Y = Y_.having();

lib/src/blas/dger.dart

@@ -18,9 +18,6 @@ void dger(
   final Matrix<double> A_,
   final int LDA,
 ) {
-// -- Reference BLAS level2 routine --
-// -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
-// -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
   final X = X_.having();
   final Y = Y_.having();
   final A = A_.having(ld: LDA);

lib/src/blas/dnrm2.dart

@@ -12,15 +12,12 @@ import 'package:dart_lapack/src/intrinsics/radix.dart';
 import 'package:dart_lapack/src/matrix.dart';
 
 double dnrm2(final int n, final Array<double> x_, final int incx) {
-// -- Reference BLAS level1 routine (version 3.9.1) --
-// -- Reference BLAS is a software package provided by Univ. of Tennessee,    --
-// -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
   final x = x_.having();
   const zero = 0.0;
   const one = 1.0;
   final maxN = huge(0.0);
 
-  // .. Blue's scaling constants ..
+  // Blue's scaling constants
   final tsml = pow(radix(0.0), ((minexponent(0.0) - 1) * 0.5).ceil());
   final tbig =
       pow(radix(0.0), ((maxexponent(0.0) - digits(0.0) + 1) * 0.5).floor());
@@ -30,7 +27,6 @@ double dnrm2(final int n, final Array<double> x_, final int incx) {
       pow(radix(0.0), -((maxexponent(0.0) + digits(0.0) - 1) * 0.5).ceil());
 
   // Quick return if possible
-
   if (n <= 0) return zero;
 
   // Compute the sum of squares in 3 accumulators:
@@ -40,7 +36,6 @@ double dnrm2(final int n, final Array<double> x_, final int incx) {
   // The thresholds and multipliers are
   //    tbig -- values bigger than this are scaled down by sbig
   //    tsml -- values smaller than this are scaled up by ssml
-
   var notbig = true;
   var asml = zero;
   var amed = zero;
@@ -61,19 +56,16 @@ double dnrm2(final int n, final Array<double> x_, final int incx) {
 
   // Combine abig and amed or amed and asml if more than one
   // accumulator was used.
-
   final double scl, sumsq;
   if (abig > zero) {
     // Combine abig and amed if abig > 0.
-
     if ((amed > zero) || (amed > maxN) || amed.isNaN) {
       abig += (amed * sbig) * sbig;
     }
     scl = one / sbig;
     sumsq = abig;
   } else if (asml > zero) {
     // Combine amed and asml if asml > 0.
-
     if ((amed > zero) || (amed > maxN) || amed.isNaN) {
       amed = sqrt(amed);
       asml = sqrt(asml) / ssml;
@@ -86,7 +78,6 @@ double dnrm2(final int n, final Array<double> x_, final int incx) {
     }
   } else {
     // Otherwise all values are mid-range
-
     scl = one;
     sumsq = amed;
   }