Fixing formatting

7 files changed, 74 insertions, 74 deletions

diff --git a/doc/source/f2py/code/add-edited.pyf b/doc/source/f2py/code/add-edited.pyf
index a1c375996..4d2047274 100644
--- a/doc/source/f2py/code/add-edited.pyf
+++ b/doc/source/f2py/code/add-edited.pyf
@@ -1,6 +1,6 @@
-    subroutine zadd(a,b,c,n) ! in :add:add.f
-       double complex dimension(n) :: a
-       double complex dimension(n) :: b
-       double complex intent(out),dimension(n) :: c
-       integer intent(hide),depend(a) :: n=len(a)
-    end subroutine zadd
\ No newline at end of file
+subroutine zadd(a,b,c,n) ! in :add:add.f
+   double complex dimension(n) :: a
+   double complex dimension(n) :: b
+   double complex intent(out),dimension(n) :: c
+   integer intent(hide),depend(a) :: n=len(a)
+end subroutine zadd
\ No newline at end of file
diff --git a/doc/source/f2py/code/add-improved.f b/doc/source/f2py/code/add-improved.f
index f12b6560b..65f70c9bc 100644
--- a/doc/source/f2py/code/add-improved.f
+++ b/doc/source/f2py/code/add-improved.f
@@ -1,16 +1,16 @@
-    C
-          SUBROUTINE ZADD(A,B,C,N)
-    C
-    CF2PY INTENT(OUT) :: C
-    CF2PY INTENT(HIDE) :: N
-    CF2PY DOUBLE COMPLEX :: A(N)
-    CF2PY DOUBLE COMPLEX :: B(N)
-    CF2PY DOUBLE COMPLEX :: C(N)
-          DOUBLE COMPLEX A(*)
-          DOUBLE COMPLEX B(*)
-          DOUBLE COMPLEX C(*)
-          INTEGER N
-          DO 20 J = 1, N
-             C(J) = A(J) + B(J)
-     20   CONTINUE
-          END
\ No newline at end of file
+C
+      SUBROUTINE ZADD(A,B,C,N)
+C
+CF2PY INTENT(OUT) :: C
+CF2PY INTENT(HIDE) :: N
+CF2PY DOUBLE COMPLEX :: A(N)
+CF2PY DOUBLE COMPLEX :: B(N)
+CF2PY DOUBLE COMPLEX :: C(N)
+      DOUBLE COMPLEX A(*)
+      DOUBLE COMPLEX B(*)
+      DOUBLE COMPLEX C(*)
+      INTEGER N
+      DO 20 J = 1, N
+         C(J) = A(J) + B(J)
+ 20   CONTINUE
+      END
\ No newline at end of file
diff --git a/doc/source/f2py/code/add.f b/doc/source/f2py/code/add.f
index c3002fd25..5e7556b28 100644
--- a/doc/source/f2py/code/add.f
+++ b/doc/source/f2py/code/add.f
@@ -1,11 +1,11 @@
-    C
-          SUBROUTINE ZADD(A,B,C,N)
-    C
-          DOUBLE COMPLEX A(*)
-          DOUBLE COMPLEX B(*)
-          DOUBLE COMPLEX C(*)
-          INTEGER N
-          DO 20 J = 1, N
-             C(J) = A(J)+B(J)
-     20   CONTINUE
-          END
+C
+      SUBROUTINE ZADD(A,B,C,N)
+C
+      DOUBLE COMPLEX A(*)
+      DOUBLE COMPLEX B(*)
+      DOUBLE COMPLEX C(*)
+      INTEGER N
+      DO 20 J = 1, N
+         C(J) = A(J)+B(J)
+ 20   CONTINUE
+      END
diff --git a/doc/source/f2py/code/add.pyf b/doc/source/f2py/code/add.pyf
index 6a2a8533d..d2583e333 100644
--- a/doc/source/f2py/code/add.pyf
+++ b/doc/source/f2py/code/add.pyf
@@ -1,6 +1,6 @@
-    subroutine zadd(a,b,c,n) ! in :add:add.f
-       double complex dimension(*) :: a
-       double complex dimension(*) :: b
-       double complex dimension(*) :: c
-       integer :: n
-    end subroutine zadd
\ No newline at end of file
+subroutine zadd(a,b,c,n) ! in :add:add.f
+   double complex dimension(*) :: a
+   double complex dimension(*) :: b
+   double complex dimension(*) :: c
+   integer :: n
+end subroutine zadd
\ No newline at end of file
diff --git a/doc/source/f2py/code/filter.f b/doc/source/f2py/code/filter.f
index a23e2d9b1..fb44343fa 100644
--- a/doc/source/f2py/code/filter.f
+++ b/doc/source/f2py/code/filter.f
@@ -1,6 +1,6 @@
-C     
+C
       SUBROUTINE DFILTER2D(A,B,M,N)
-C     
+C
       DOUBLE PRECISION A(M,N)
       DOUBLE PRECISION B(M,N)
       INTEGER N, M
@@ -10,10 +10,10 @@ CF2PY INTENT(HIDE) :: M
       DO 20 I = 2,M-1
          DO 40 J = 2,N-1
             B(I,J) = A(I,J) +
-     $           (A(I-1,J)+A(I+1,J) +
-     $           A(I,J-1)+A(I,J+1) )*0.5D0 +
-     $           (A(I-1,J-1) + A(I-1,J+1) +
-     $           A(I+1,J-1) + A(I+1,J+1))*0.25D0
+     &           (A(I-1,J)+A(I+1,J) +
+     &           A(I,J-1)+A(I,J+1) )*0.5D0 +
+     &           (A(I-1,J-1) + A(I-1,J+1) +
+     &           A(I+1,J-1) + A(I+1,J+1))*0.25D0
  40      CONTINUE
  20   CONTINUE
       END
diff --git a/doc/source/f2py/code/myroutine-edited.pyf b/doc/source/f2py/code/myroutine-edited.pyf
index c1af805c2..14e455416 100644
--- a/doc/source/f2py/code/myroutine-edited.pyf
+++ b/doc/source/f2py/code/myroutine-edited.pyf
@@ -1,17 +1,17 @@
-	!    -*- f90 -*-
-	! Note: the context of this file is case sensitive.
+!    -*- f90 -*-
+! Note: the context of this file is case sensitive.
 
-	python module myroutine ! in 
-    	interface  ! in :myroutine
-        	subroutine s(n,m,c,x) ! in :myroutine:myroutine.f90
-            	integer intent(in) :: n
-            	integer intent(in) :: m
-            	real*8 dimension(:),intent(in) :: c
-            	real*8 dimension(n,m),intent(out) :: x
-        	end subroutine s
-    	end interface 
-	end python module myroutine
+python module myroutine ! in 
+    interface  ! in :myroutine
+        subroutine s(n,m,c,x) ! in :myroutine:myroutine.f90
+            integer intent(in) :: n
+            integer intent(in) :: m
+            real(kind=8) dimension(:),intent(in) :: c
+            real(kind=8) dimension(n,m),intent(out) :: x
+        end subroutine s
+    end interface 
+end python module myroutine
 
-	! This file was auto-generated with f2py (version:1.23.0.dev0+120.g4da01f42d).
-	! See:
-	! https://web.archive.org/web/20140822061353/http://cens.ioc.ee/projects/f2py2e
\ No newline at end of file
+! This file was auto-generated with f2py (version:1.23.0.dev0+120.g4da01f42d).
+! See:
+! https://web.archive.org/web/20140822061353/http://cens.ioc.ee/projects/f2py2e
\ No newline at end of file
diff --git a/doc/source/f2py/code/myroutine.pyf b/doc/source/f2py/code/myroutine.pyf
index 0576fb888..ef8f16789 100644
--- a/doc/source/f2py/code/myroutine.pyf
+++ b/doc/source/f2py/code/myroutine.pyf
@@ -1,17 +1,17 @@
 !    -*- f90 -*-
-	! Note: the context of this file is case sensitive.
+! Note: the context of this file is case sensitive.
 
-	python module myroutine ! in 
-    	interface  ! in :myroutine
-        	subroutine s(n,m,c,x) ! in :myroutine:myroutine.f90
-            	integer intent(in) :: n
-            	integer intent(in) :: m
-            	real*8 dimension(:),intent(in) :: c
-            	real*8 dimension(n,m),intent(out),depend(m,n) :: x
-        	end subroutine s
-    	end interface 
-	end python module myroutine
+python module myroutine ! in 
+    interface  ! in :myroutine
+        subroutine s(n,m,c,x) ! in :myroutine:myroutine.f90
+            integer intent(in) :: n
+            integer intent(in) :: m
+            real(kind=8) dimension(:),intent(in) :: c
+            real(kind=8) dimension(n,m),intent(out),depend(m,n) :: x
+        end subroutine s
+    end interface 
+end python module myroutine
 
-	! This file was auto-generated with f2py (version:1.23.0.dev0+120.g4da01f42d).
-	! See:
-	! https://web.archive.org/web/20140822061353/http://cens.ioc.ee/projects/f2py2e
\ No newline at end of file
+! This file was auto-generated with f2py (version:1.23.0.dev0+120.g4da01f42d).
+! See:
+! https://web.archive.org/web/20140822061353/http://cens.ioc.ee/projects/f2py2e
\ No newline at end of file