[Scipy-svn] r4533 - trunk/scipy/sparse/linalg/isolve/iterative
scipy-svn@scip...
scipy-svn@scip...
Tue Jul 8 14:52:48 CDT 2008
Author: rkern
Date: 2008-07-08 14:52:27 -0500 (Tue, 08 Jul 2008)
New Revision: 4533
Modified:
trunk/scipy/sparse/linalg/isolve/iterative/BiCGREVCOM.f.src
trunk/scipy/sparse/linalg/isolve/iterative/BiCGSTABREVCOM.f.src
trunk/scipy/sparse/linalg/isolve/iterative/CGREVCOM.f.src
trunk/scipy/sparse/linalg/isolve/iterative/CGSREVCOM.f.src
trunk/scipy/sparse/linalg/isolve/iterative/GMRESREVCOM.f.src
trunk/scipy/sparse/linalg/isolve/iterative/QMRREVCOM.f.src
trunk/scipy/sparse/linalg/isolve/iterative/STOPTEST2.f.src
trunk/scipy/sparse/linalg/isolve/iterative/getbreak.f.src
Log:
Change END SUBROUTINE to just END to satisfy finicky Sun Fortran compilers.
Modified: trunk/scipy/sparse/linalg/isolve/iterative/BiCGREVCOM.f.src
===================================================================
--- trunk/scipy/sparse/linalg/isolve/iterative/BiCGREVCOM.f.src 2008-07-08 09:47:43 UTC (rev 4532)
+++ trunk/scipy/sparse/linalg/isolve/iterative/BiCGREVCOM.f.src 2008-07-08 19:52:27 UTC (rev 4533)
@@ -387,7 +387,8 @@
*
* End of BICGREVCOM
*
- END SUBROUTINE <_c>BICGREVCOM
+ END
+* END SUBROUTINE <_c>BICGREVCOM
Modified: trunk/scipy/sparse/linalg/isolve/iterative/BiCGSTABREVCOM.f.src
===================================================================
--- trunk/scipy/sparse/linalg/isolve/iterative/BiCGSTABREVCOM.f.src 2008-07-08 09:47:43 UTC (rev 4532)
+++ trunk/scipy/sparse/linalg/isolve/iterative/BiCGSTABREVCOM.f.src 2008-07-08 19:52:27 UTC (rev 4533)
@@ -423,4 +423,5 @@
*
* End of BICGSTABREVCOM
*
- END SUBROUTINE <_c>BICGSTABREVCOM
+ END
+* END SUBROUTINE <_c>BICGSTABREVCOM
Modified: trunk/scipy/sparse/linalg/isolve/iterative/CGREVCOM.f.src
===================================================================
--- trunk/scipy/sparse/linalg/isolve/iterative/CGREVCOM.f.src 2008-07-08 09:47:43 UTC (rev 4532)
+++ trunk/scipy/sparse/linalg/isolve/iterative/CGREVCOM.f.src 2008-07-08 19:52:27 UTC (rev 4533)
@@ -314,4 +314,5 @@
*
* End of CGREVCOM
*
- END SUBROUTINE <_c>CGREVCOM
+ END
+* END SUBROUTINE <_c>CGREVCOM
Modified: trunk/scipy/sparse/linalg/isolve/iterative/CGSREVCOM.f.src
===================================================================
--- trunk/scipy/sparse/linalg/isolve/iterative/CGSREVCOM.f.src 2008-07-08 09:47:43 UTC (rev 4532)
+++ trunk/scipy/sparse/linalg/isolve/iterative/CGSREVCOM.f.src 2008-07-08 19:52:27 UTC (rev 4533)
@@ -422,7 +422,8 @@
*
* End of CGSREVCOM
*
- END SUBROUTINE <_c>CGSREVCOM
+ END
+* END SUBROUTINE <_c>CGSREVCOM
Modified: trunk/scipy/sparse/linalg/isolve/iterative/GMRESREVCOM.f.src
===================================================================
--- trunk/scipy/sparse/linalg/isolve/iterative/GMRESREVCOM.f.src 2008-07-08 09:47:43 UTC (rev 4532)
+++ trunk/scipy/sparse/linalg/isolve/iterative/GMRESREVCOM.f.src 2008-07-08 19:52:27 UTC (rev 4533)
@@ -398,7 +398,8 @@
*
* End of GMRESREVCOM
*
- END SUBROUTINE <_c>GMRESREVCOM
+ END
+* END SUBROUTINE <_c>GMRESREVCOM
*
* =========================================================
SUBROUTINE <_c>ORTHOH( I, N, H, V, LDV, W )
@@ -426,7 +427,8 @@
*
RETURN
*
- END SUBROUTINE <_c>ORTHOH
+ END
+* END SUBROUTINE <_c>ORTHOH
* =========================================================
SUBROUTINE <_c>APPLYGIVENS( I, H, GIVENS, LDG )
*
@@ -464,7 +466,8 @@
*
RETURN
*
- END SUBROUTINE <_c>APPLYGIVENS
+ END
+* END SUBROUTINE <_c>APPLYGIVENS
*
* ===============================================================
<rt=real,double precision,real,double precision>
@@ -492,7 +495,8 @@
*
RETURN
*
- END FUNCTION <rc>APPROXRES
+ END
+* END FUNCTION <rc>APPROXRES
* ===============================================================
SUBROUTINE <_c>UPDATE( I, N, X, H, LDH, Y, S, V, LDV )
*
@@ -513,7 +517,8 @@
*
RETURN
*
- END SUBROUTINE <_c>UPDATE
+ END
+* END SUBROUTINE <_c>UPDATE
*
* ===============================================================
SUBROUTINE <_c>GETGIV( A, B, C, S )
@@ -542,7 +547,8 @@
*
RETURN
*
- END SUBROUTINE <_c>GETGIV
+ END
+* END SUBROUTINE <_c>GETGIV
*
* ================================================================
SUBROUTINE <_c>ROTVEC( X, Y, C, S )
@@ -556,7 +562,8 @@
*
RETURN
*
- END SUBROUTINE <_c>ROTVEC
+ END
+* END SUBROUTINE <_c>ROTVEC
*
* ===============================================================
SUBROUTINE <_c>ELEMVEC( I, N, ALPHA, E )
@@ -577,5 +584,6 @@
*
RETURN
*
- END SUBROUTINE <_c>ELEMVEC
+ END
+* END SUBROUTINE <_c>ELEMVEC
Modified: trunk/scipy/sparse/linalg/isolve/iterative/QMRREVCOM.f.src
===================================================================
--- trunk/scipy/sparse/linalg/isolve/iterative/QMRREVCOM.f.src 2008-07-08 09:47:43 UTC (rev 4532)
+++ trunk/scipy/sparse/linalg/isolve/iterative/QMRREVCOM.f.src 2008-07-08 19:52:27 UTC (rev 4533)
@@ -557,4 +557,5 @@
*
* End of QMRREVCOM
*
- END SUBROUTINE <_c>QMRREVCOM
+ END
+* END SUBROUTINE <_c>QMRREVCOM
Modified: trunk/scipy/sparse/linalg/isolve/iterative/STOPTEST2.f.src
===================================================================
--- trunk/scipy/sparse/linalg/isolve/iterative/STOPTEST2.f.src 2008-07-08 09:47:43 UTC (rev 4532)
+++ trunk/scipy/sparse/linalg/isolve/iterative/STOPTEST2.f.src 2008-07-08 19:52:27 UTC (rev 4533)
@@ -57,5 +57,6 @@
IF ( RESID.LE.TOL )
$ INFO = 1
RETURN
- END SUBROUTINE <_c>STOPTEST2
+ END
+* END SUBROUTINE <_c>STOPTEST2
Modified: trunk/scipy/sparse/linalg/isolve/iterative/getbreak.f.src
===================================================================
--- trunk/scipy/sparse/linalg/isolve/iterative/getbreak.f.src 2008-07-08 09:47:43 UTC (rev 4532)
+++ trunk/scipy/sparse/linalg/isolve/iterative/getbreak.f.src 2008-07-08 19:52:27 UTC (rev 4533)
@@ -13,7 +13,8 @@
*
RETURN
*
- END FUNCTION <_c>GETBREAK
+ END
+* END FUNCTION <_c>GETBREAK
More information about the Scipy-svn
mailing list