Deploying to stdlib-fpm from @ 693986a 🚀

Author: perazz

src/stdlib_linalg_blas.f90

@@ -18,9 +18,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..--
@@ -33,9 +33,9 @@ pure real(dp) function stdlib_dcabs1(z)
            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..--
@@ -78,9 +78,9 @@ pure integer(ilp) function stdlib_isamax(n,sx,incx)
            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..--
@@ -121,10 +121,10 @@ pure integer(ilp) function stdlib_izamax(n,zx,incx)
            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..--
@@ -168,9 +168,9 @@ pure logical(lk) function stdlib_lsame(ca,cb)
            ! 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..--
@@ -183,13 +183,13 @@ pure real(sp) function stdlib_scabs1(z)
            return
      end function stdlib_scabs1
 
-     !> 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 )
+     !! 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.
         ! -- 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..--
@@ -204,24 +204,24 @@ pure subroutine stdlib_xerbla( srname, info )
 
      end subroutine stdlib_xerbla
 
-     !> 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
-     !> up to 32 characters of that array into a Fortran string and passes
-     !> that to XERBLA.  If called with a non-positive SRNAME_LEN,
-     !> XERBLA_ARRAY will call XERBLA with a string of all blank characters.
-     !> Say some macro or other device makes XERBLA_ARRAY available to C99
-     !> by a name lapack_xerbla and with a common Fortran calling convention.
-     !> Then a C99 program could invoke XERBLA via:
-     !> {
-     !> int flen = strlen(__func__);
-     !> lapack_xerbla(__func__,
-     !> }
-     !> Providing XERBLA_ARRAY is not necessary for intercepting LAPACK
-     !> errors.  XERBLA_ARRAY calls XERBLA.
 
      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
+     !! up to 32 characters of that array into a Fortran string and passes
+     !! that to XERBLA.  If called with a non-positive SRNAME_LEN,
+     !! XERBLA_ARRAY will call XERBLA with a string of all blank characters.
+     !! Say some macro or other device makes XERBLA_ARRAY available to C99
+     !! by a name lapack_xerbla and with a common Fortran calling convention.
+     !! Then a C99 program could invoke XERBLA via:
+     !! {
+     !! int flen = strlen(__func__);
+     !! lapack_xerbla(__func__,
+     !! }
+     !! Providing XERBLA_ARRAY is not necessary for intercepting LAPACK
+     !! errors.  XERBLA_ARRAY calls XERBLA.
         ! -- 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..--
@@ -248,9 +248,9 @@ end subroutine stdlib_xerbla_array
 
 
 
-     !> 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..--
@@ -291,9 +291,9 @@ pure integer(ilp) function stdlib_icamax(n,cx,incx)
            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..--