Reference-LAPACK
diff --git a/‎SRC/DEPRECATED/crot_lapackv390.f‎
Lines changed: 0 additions & 162 deletions b/‎SRC/DEPRECATED/crot_lapackv390.f‎
Lines changed: 0 additions & 162 deletions
diff --git a/‎SRC/DEPRECATED/zrot_lapackv390.f‎
Lines changed: 0 additions & 162 deletions b/‎SRC/DEPRECATED/zrot_lapackv390.f‎
Lines changed: 0 additions & 162 deletions
diff --git a/‎SRC/zrot.f90‎
Lines changed: 4 additions & 3 deletions b/‎SRC/zrot.f90‎
Lines changed: 4 additions & 3 deletions
@@ -12,11 +12,11 @@
 !
 !       .. Scalar Arguments ..
 !       INTEGER            INCX, INCY, N
-!       REAL               C
-!       COMPLEX            S
+!       REAL(dp)           C
+!       COMPLEX(dp)        S
 !       ..
 !       .. Array Arguments ..
-!       COMPLEX            X( * ), Y( * )
+!       COMPLEX(dp)        X( * ), Y( * )
 !       ..
 !
 !
@@ -31,6 +31,7 @@
 !>    [ -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
 !>
 !> \endverbatim
 !
Original file line number	Diff line number	Diff line change
`@@ -12,11 +12,11 @@`
`12`	`12`	`!`
`13`	`13`	`! .. Scalar Arguments ..`
`14`	`14`	`! INTEGER INCX, INCY, N`
`15`		`-! REAL C`
`16`		`-! COMPLEX S`
	`15`	`+! REAL(dp) C`
	`16`	`+! COMPLEX(dp) S`
`17`	`17`	`! ..`
`18`	`18`	`! .. Array Arguments ..`
`19`		`-! COMPLEX X( * ), Y( * )`
	`19`	`+! COMPLEX(dp) X( * ), Y( * )`
`20`	`20`	`! ..`
`21`	`21`	`!`
`22`	`22`	`!`
`@@ -31,6 +31,7 @@`
`31`	`31`	`!> [ -conjg(s) c ] [ y(1) y(2) ... y(n) ]`
`32`	`32`	`!>`
`33`	`33`	`!> where c is real, s is complex, and c*2 + conjg(s)s = 1.`
	`34`	`+!> Below, dp = kind(1.d0) stands for double precision`
`34`	`35`	`!>`
`35`	`36`	`!> \endverbatim`
`36`	`37`	`!`