refactor comments for FORD

Author: perazz

src/stdlib_linalg_blas.fypp

@@ -28,9 +28,9 @@ module stdlib_linalg_blas_aux
 
      contains
 
-     !> DCABS1: computes |Re(.)| + |Im(.)| of a double complex number
 
      pure real(dp) function stdlib_dcabs1(z)
+     !> DCABS1 computes |Re(.)| + |Im(.)| of a double complex number
         ! -- 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..--
@@ -43,9 +43,9 @@ module stdlib_linalg_blas_aux
            return
      end function stdlib_dcabs1
 
-     !> ISAMAX: finds the index of the first element having maximum absolute value.
 
      pure integer(ilp) function stdlib_isamax(n,sx,incx)
+     !> ISAMAX finds the index of the first element having maximum absolute value.
         ! -- 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..--
@@ -88,9 +88,9 @@ module stdlib_linalg_blas_aux
            return
      end function stdlib_isamax
 
-     !> IZAMAX: finds the index of the first element having maximum |Re(.)| + |Im(.)|
 
      pure integer(ilp) function stdlib_izamax(n,zx,incx)
+     !> IZAMAX finds the index of the first element having maximum |Re(.)| + |Im(.)|
         ! -- 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..--
@@ -131,10 +131,10 @@ module stdlib_linalg_blas_aux
            return
      end function stdlib_izamax
 
-     !> LSAME: returns .TRUE. if CA is the same letter as CB regardless of
-     !> case.
 
      pure logical(lk) function stdlib_lsame(ca,cb)
+     !> LSAME returns .TRUE. if CA is the same letter as CB regardless of
+     !> case.
         ! -- 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..--
@@ -178,9 +178,9 @@ module stdlib_linalg_blas_aux
            ! return
      end function stdlib_lsame
 
-     !> SCABS1: computes |Re(.)| + |Im(.)| of a complex number
 
      pure real(sp) function stdlib_scabs1(z)
+     !> SCABS1 computes |Re(.)| + |Im(.)| of a complex number
         ! -- 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..--
@@ -193,13 +193,13 @@ module stdlib_linalg_blas_aux
            return
      end function stdlib_scabs1
 
-     !> XERBLA:  is an error handler for the LAPACK routines.
+
+     pure subroutine stdlib_xerbla( srname, info )
+     !> XERBLA is an error handler for the LAPACK routines.
      !> It is called by an LAPACK routine if an input parameter has an
      !> invalid value.  A message is printed and execution stops.
      !> Installers may consider modifying the STOP statement in order to
      !> call system-specific exception-handling facilities.
-
-     pure subroutine stdlib_xerbla( srname, info )
         ! -- 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..--
@@ -214,7 +214,9 @@ module stdlib_linalg_blas_aux
 
      end subroutine stdlib_xerbla
 
-     !> XERBLA_ARRAY: assists other languages in calling XERBLA, the LAPACK
+
+     pure subroutine stdlib_xerbla_array(srname_array, srname_len, info)
+     !> XERBLA_ARRAY assists other languages in calling XERBLA, the LAPACK
      !> and BLAS error handler.  Rather than taking a Fortran string argument
      !> as the function's name, XERBLA_ARRAY takes an array of single
      !> characters along with the array's length.  XERBLA_ARRAY then copies
@@ -230,8 +232,6 @@ module stdlib_linalg_blas_aux
      !> }
      !> Providing XERBLA_ARRAY is not necessary for intercepting LAPACK
      !> errors.  XERBLA_ARRAY calls XERBLA.
-
-     pure subroutine stdlib_xerbla_array(srname_array, srname_len, info)
         ! -- 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..--
@@ -257,9 +257,9 @@ module stdlib_linalg_blas_aux
 
 #:if WITH_QP 
 
-     !> DCABS1: computes |Re(.)| + |Im(.)| of a double complex number
 
      pure real(qp) function stdlib_qcabs1(z)
+     !> DCABS1: computes |Re(.)| + |Im(.)| of a double complex number
         ! -- 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..--
@@ -275,9 +275,9 @@ module stdlib_linalg_blas_aux
 
 #:if WITH_QP 
 
-     !> IDAMAX: finds the index of the first element having maximum absolute value.
 
      pure integer(ilp) function stdlib_iqamax(n,dx,incx)
+     !> IDAMAX: finds the index of the first element having maximum absolute value.
         ! -- 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..--
@@ -323,9 +323,9 @@ module stdlib_linalg_blas_aux
 
 #:if WITH_QP 
 
-     !> IZAMAX: finds the index of the first element having maximum |Re(.)| + |Im(.)|
 
      pure integer(ilp) function stdlib_iwamax(n,zx,incx)
+     !> IZAMAX: finds the index of the first element having maximum |Re(.)| + |Im(.)|
         ! -- 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..--
@@ -367,9 +367,9 @@ module stdlib_linalg_blas_aux
      end function stdlib_iwamax
 #:endif 
 
-     !> ICAMAX: finds the index of the first element having maximum |Re(.)| + |Im(.)|
 
      pure integer(ilp) function stdlib_icamax(n,cx,incx)
+     !> ICAMAX finds the index of the first element having maximum |Re(.)| + |Im(.)|
         ! -- 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..--
@@ -410,9 +410,9 @@ module stdlib_linalg_blas_aux
            return
      end function stdlib_icamax
 
-     !> IDAMAX: finds the index of the first element having maximum absolute value.
 
      pure integer(ilp) function stdlib_idamax(n,dx,incx)
+     !> IDAMAX finds the index of the first element having maximum absolute value.
         ! -- 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..--