--- rpl/lapack/lapack/dladiv.f	2014/01/27 09:28:19	1.14
+++ rpl/lapack/lapack/dladiv.f	2015/11/26 11:44:17	1.15
@@ -91,7 +91,7 @@
 *  =====================================================================
       SUBROUTINE DLADIV( A, B, C, D, P, Q )
 *
-*  -- LAPACK auxiliary routine (version 3.5.0) --
+*  -- LAPACK auxiliary routine (version 3.6.0) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
 *     January 2013
@@ -177,7 +177,7 @@
 
       SUBROUTINE DLADIV1( A, B, C, D, P, Q )
 *
-*  -- LAPACK auxiliary routine (version 3.5.0) --
+*  -- LAPACK auxiliary routine (version 3.6.0) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
 *     January 2013
@@ -215,7 +215,7 @@
 
       DOUBLE PRECISION FUNCTION DLADIV2( A, B, C, D, R, T )
 *
-*  -- LAPACK auxiliary routine (version 3.5.0) --
+*  -- LAPACK auxiliary routine (version 3.6.0) --
 *  -- LAPACK is a software package provided by Univ. of Tennessee,    --
 *  -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
 *     January 2013
@@ -237,7 +237,7 @@
 *
       IF( R.NE.ZERO ) THEN
          BR = B * R
-         if( BR.NE.ZERO ) THEN
+         IF( BR.NE.ZERO ) THEN
             DLADIV2 = (A + BR) * T
          ELSE
             DLADIV2 = A * T + (B * T) * R