Updates Doxygen preambles

Author: weslleyspereira

SRC/CMakeLists.txt

@@ -219,7 +219,7 @@ set(CLASRC
    cposv.f  cposvx.f cpotf2.f cpotrf2.f cpotri.f cpstrf.f cpstf2.f
    cppcon.f cppequ.f cpprfs.f cppsv.f  cppsvx.f cpptrf.f cpptri.f cpptrs.f
    cptcon.f cpteqr.f cptrfs.f cptsv.f  cptsvx.f cpttrf.f cpttrs.f cptts2.f
-   crot.f   cspcon.f cspmv.f  cspr.f   csprfs.f cspsv.f
+   crot.f90 cspcon.f cspmv.f  cspr.f   csprfs.f cspsv.f
    cspsvx.f csptrf.f csptri.f csptrs.f csrscl.f cstedc.f
    cstegr.f cstein.f csteqr.f csycon.f csymv.f
    csyr.f   csyrfs.f csysv.f  csysvx.f csytf2.f csytrf.f csytri.f
@@ -414,7 +414,7 @@ set(ZLASRC
    zposv.f  zposvx.f zpotf2.f zpotrf.f zpotrf2.f zpotri.f zpotrs.f zpstrf.f zpstf2.f
    zppcon.f zppequ.f zpprfs.f zppsv.f  zppsvx.f zpptrf.f zpptri.f zpptrs.f
    zptcon.f zpteqr.f zptrfs.f zptsv.f  zptsvx.f zpttrf.f zpttrs.f zptts2.f
-   zrot.f   zspcon.f zspmv.f  zspr.f   zsprfs.f zspsv.f
+   zrot.f90 zspcon.f zspmv.f  zspr.f   zsprfs.f zspsv.f
    zspsvx.f zsptrf.f zsptri.f zsptrs.f zdrscl.f zstedc.f
    zstegr.f zstein.f zsteqr.f zsycon.f zsymv.f
    zsyr.f   zsyrfs.f zsysv.f  zsysvx.f zsytf2.f zsytrf.f zsytri.f

SRC/crot.f90

@@ -12,11 +12,11 @@
 !
 !       .. Scalar Arguments ..
 !       INTEGER            INCX, INCY, N
-!       REAL               C
-!       COMPLEX            S
+!       REAL(wp)           C
+!       COMPLEX(wp)        S
 !       ..
 !       .. Array Arguments ..
-!       COMPLEX            X( * ), Y( * )
+!       COMPLEX(wp)        X( * ), Y( * )
 !       ..
 !
 !
@@ -32,6 +32,8 @@
 !>
 !> where c is real, s is complex, and c**2 + conjg(s)*s = 1.
 !>
+!> Below, wp=>sp stands for single precision from LA_CONSTANTS module.
+!>
 !> \endverbatim
 !
 !  Arguments:
@@ -45,7 +47,7 @@
 !>
 !> \param[in,out] X
 !> \verbatim
-!>          X is COMPLEX array, dimension (N)
+!>          X is COMPLEX(wp) array, dimension (N)
 !>          On input, the vector X.
 !>          On output, X is overwritten with C*X + S*Y.
 !> \endverbatim
@@ -58,7 +60,7 @@
 !>
 !> \param[in,out] Y
 !> \verbatim
-!>          Y is COMPLEX array, dimension (N)
+!>          Y is COMPLEX(wp) array, dimension (N)
 !>          On input, the vector Y.
 !>          On output, Y is overwritten with -CONJG(S)*X + C*Y.
 !> \endverbatim
@@ -71,12 +73,12 @@
 !>
 !> \param[in] C
 !> \verbatim
-!>          C is REAL
+!>          C is REAL(wp)
 !> \endverbatim
 !>
 !> \param[in] S
 !> \verbatim
-!>          S is COMPLEX
+!>          S is COMPLEX(wp)
 !> \endverbatim
 !
 !  Authors:
@@ -107,7 +109,7 @@
 !
 !  =====================================================================
 subroutine CROT( n, x, incx, y, incy, c, s )
-   use LA_CONSTANTS32, only: wp
+   use LA_CONSTANTS, only: wp=>sp
 !
 !  -- LAPACK auxiliary routine (version 3.10.0) --
 !  -- LAPACK is a software package provided by Univ. of Tennessee,    --

SRC/zrot.f90

@@ -12,11 +12,11 @@
 !
 !       .. Scalar Arguments ..
 !       INTEGER            INCX, INCY, N
-!       REAL(dp)           C
-!       COMPLEX(dp)        S
+!       REAL(wp)           C
+!       COMPLEX(wp)        S
 !       ..
 !       .. Array Arguments ..
-!       COMPLEX(dp)        X( * ), Y( * )
+!       COMPLEX(wp)        X( * ), Y( * )
 !       ..
 !
 !
@@ -31,8 +31,8 @@
 !>    [ -conjg(s)  c ] [ y(1)  y(2)  ...  y(n) ]
 !>
 !> where c is real, s is complex, and c**2 + conjg(s)*s = 1.
-!> Below, dp = kind(1.d0) stands for double precision
 !>
+!> Below, wp=>dp stands for double precision from LA_CONSTANTS module.
 !> \endverbatim
 !
 !  Arguments:
@@ -46,7 +46,7 @@
 !>
 !> \param[in,out] X
 !> \verbatim
-!>          X is COMPLEX(dp) array, dimension (N)
+!>          X is COMPLEX(wp) array, dimension (N)
 !>          On input, the vector X.
 !>          On output, X is overwritten with C*X + S*Y.
 !> \endverbatim
@@ -59,7 +59,7 @@
 !>
 !> \param[in,out] Y
 !> \verbatim
-!>          Y is COMPLEX(dp) array, dimension (N)
+!>          Y is COMPLEX(wp) array, dimension (N)
 !>          On input, the vector Y.
 !>          On output, Y is overwritten with -CONJG(S)*X + C*Y.
 !> \endverbatim
@@ -72,12 +72,12 @@
 !>
 !> \param[in] C
 !> \verbatim
-!>          C is REAL(dp)
+!>          C is REAL(wp)
 !> \endverbatim
 !>
 !> \param[in] S
 !> \verbatim
-!>          S is COMPLEX(dp)
+!>          S is COMPLEX(wp)
 !> \endverbatim
 !
 !  Authors:
@@ -108,7 +108,7 @@
 !
 !  =====================================================================
 subroutine ZROT( n, x, incx, y, incy, c, s )
-   use LA_CONSTANTS, only: wp
+   use LA_CONSTANTS, only: wp=>dp
 !
 !  Updated Level 1 BLAS
 !  E. Anderson