[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