LAPACK Archives

[Lapack] Minor issue in dorbdb.f and sorbdb.f


Thanks. See below commit below. Julien.


Author: langou
Date: Mon Mar 2 11:04:35 2015
New Revision: 1532

URL: https://icl.cs.utk.edu/trac/lapack-dev/changeset/1532
Log:
Correct two ". GT." to " .GT.". Bug reported by email by Willem Vermin "Minor
issue in dorbdb.f and sorbdb.f" on Friday, February 27, 2015 at 4:03 AM.


Modified:
lapack/trunk/SRC/dorbdb.f
lapack/trunk/SRC/sorbdb.f

Modified: lapack/trunk/SRC/dorbdb.f
URL: 
https://icl.cs.utk.edu/trac/lapack-dev/file/lapack/trunk/SRC/dorbdb.f?rev=1532
==============================================================================
--- lapack/trunk/SRC/dorbdb.f (original)
+++ lapack/trunk/SRC/dorbdb.f Mon Mar 2 11:04:35 2015
@@ -512,7 +512,7 @@
END IF
X12(I,I) = ONE
*
- IF ( P. GT. I ) THEN
+ IF ( P .GT. I ) THEN
CALL DLARF( 'R', P-I, M-Q-I+1, X12(I,I), LDX12, TAUQ2(I),
$ X12(I+1,I), LDX12, WORK )
END IF

Modified: lapack/trunk/SRC/sorbdb.f
URL: 
https://icl.cs.utk.edu/trac/lapack-dev/file/lapack/trunk/SRC/sorbdb.f?rev=1532
==============================================================================
--- lapack/trunk/SRC/sorbdb.f (original)
+++ lapack/trunk/SRC/sorbdb.f Mon Mar 2 11:04:35 2015
@@ -512,7 +512,7 @@
END IF
X12(I,I) = ONE
*
- IF ( P. GT. I ) THEN
+ IF ( P .GT. I ) THEN
CALL SLARF( 'R', P-I, M-Q-I+1, X12(I,I), LDX12, TAUQ2(I),
$ X12(I+1,I), LDX12, WORK )
END IF






On 2/27/15, 4:03 AM, "Willem Vermin" 
<wvermin@Domain.Removed<mailto:wvermin@Domain.Removed>> wrote:

Dear Lapack team,

while developing my fortran indenter and converter:

http://findent.sourceforge.net

I found a minor issue in dorbdb.f and sorbdb.f :

Line 515:

         IF ( P. GT. I ) THEN

should be

         IF ( P .GT. I ) THEN

in order to be understandable by gfortran when the files
are converted to free-format.

Regards,

Willem Vermin

_______________________________________________
Lapack mailing list
Lapack@Domain.Removed<mailto:Lapack@Domain.Removed>
http://lists.eecs.utk.edu/mailman/listinfo/lapack

-------------- next part --------------
An HTML attachment was scrubbed...
URL: 
<http://lists.eecs.utk.edu/mailman/private/lapack/attachments/20150302/f45865bd/attachment.html>

<Prev in Thread] Current Thread [Next in Thread>
  • [Lapack] Minor issue in dorbdb.f and sorbdb.f, Langou, Julien <=


For additional information you may use the LAPACK/ScaLAPACK Forum.
Or one of the mailing lists, or