Clean up format statements

Author: ejovo13

src/tests/math/test_linspace.f90

@@ -139,15 +139,13 @@ subroutine test_linspace_cmplx
         end do
 
         write(unit=iunit, fmt=*) "linspace((0.0_dp, 10.0_dp), (1.0_dp, 0.0_dp), 10): "
-        write(unit=iunit,fmt=99)
+        write(unit=iunit,fmt='(70("="))')
         do i = 1, n
             write(unit=iunit,fmt=*) z(i)
         end do
         write(iunit,*)
         write(iunit,*)
 
-        99 format(70("="))
-
     end subroutine
 
     subroutine test_linspace_cmplx_2
@@ -178,15 +176,13 @@ subroutine test_linspace_cmplx_2
         end do
 
         write(unit=iunit, fmt=*) "linspace((10.0_dp, 10.0_dp), (1.0_dp, 1.0_dp), 5): "
-        write(unit=iunit,fmt=99)
+        write(unit=iunit,fmt='(70("="))')
         do i = 1, n
             write(unit=iunit,fmt=*) z(i)
         end do
         write(iunit,*)
         write(iunit,*)
 
-        99 format(70("="))
-
     end subroutine
 
     subroutine test_linspace_cmplx_3
@@ -217,15 +213,13 @@ subroutine test_linspace_cmplx_3
         end do
 
         write(unit=iunit, fmt=*) "linspace((-5.0_dp, 100.0_dp), (20.0_dp, 13.0_dp), 20): "
-        write(unit=iunit,fmt=99)
-        do i = 1, 20
+        write(unit=iunit,fmt='(70("="))')
+        do i = 1, n
             write(unit=iunit,fmt=*) z(i)
         end do
         write(iunit,*)
         write(iunit,*)
 
-        99 format(70("="))
-
     end subroutine
 
     subroutine test_linspace_cmplx_sp
@@ -256,15 +250,13 @@ subroutine test_linspace_cmplx_sp
         end do
 
         write(unit=iunit, fmt=*) "linspace((0.5_sp, 5.0_sp), (1.0_sp, -30.0_sp), 10): "
-        write(unit=iunit,fmt=99)
+        write(unit=iunit,fmt='(70("="))')
         do i = 1, n
             write(unit=iunit,fmt=*) z(i)
         end do
         write(iunit,*)
         write(iunit,*)
 
-        99 format(70("="))
-
     end subroutine
 
     subroutine test_linspace_cmplx_sp_2
@@ -300,15 +292,13 @@ subroutine test_linspace_cmplx_sp_2
         end do
 
         write(unit=iunit, fmt=*) "linspace((50.0_sp, 500.0_sp), (-100.0_sp, 2000.0_sp)): "
-        write(unit=iunit,fmt=99)
+        write(unit=iunit,fmt='(70("="))')
         do i = 1, n
             write(unit=iunit,fmt=*) z(i)
         end do
         write(iunit,*)
         write(iunit,*)
 
-        99 format(70("="))
-
     end subroutine
 
     subroutine test_linspace_int16
@@ -339,15 +329,13 @@ subroutine test_linspace_int16
         end do
 
         write(unit=iunit, fmt=*) "linspace(5_int16, 10_int16, 10): "
-        write(unit=iunit,fmt=99)
-        do i = 1, 6
+        write(unit=iunit,fmt='(70("="))')
+        do i = 1, n
             write(unit=iunit,fmt=*) z(i)
         end do
         write(iunit,*)
         write(iunit,*)
 
-        99 format(70("="))
-
     end subroutine
 
     subroutine test_linspace_int8
@@ -381,15 +369,13 @@ subroutine test_linspace_int8
         end do
 
         write(unit=iunit, fmt=*) "linspace(5_int16, 10_int16, 10): "
-        write(unit=iunit,fmt=99)
-        do i = 1, 10
-            write(unit=iunit,fmt=*) z_int(i)
+        write(unit=iunit,fmt='(70("="))')
+        do i = 1, n
+            write(unit=iunit,fmt=*) z(i)
         end do
         write(iunit,*)
         write(iunit,*)
 
-        99 format(70("="))
-
     end subroutine
 
 

src/tests/math/test_logspace.f90

@@ -64,13 +64,11 @@ subroutine test_logspace_sp
 
 
             write(unit=iunit, fmt=*) "logspace(0.0_sp, 2.0_sp, 20): "
-            write(unit=iunit,fmt=99)
+            write(unit=iunit,fmt='(70("="))')
             write(unit=iunit,fmt="(20(F7.3, 2X))") x
             write(iunit,*)
             write(iunit,*)
 
-            99 format(70("="))
-
         end subroutine
 
         subroutine test_logspace_dp
@@ -134,13 +132,11 @@ subroutine test_logspace_default
             end do
 
             write(unit=iunit, fmt=*) "logspace(0.0_dp, 1.0_dp): "
-            write(unit=iunit,fmt=99)
+            write(unit=iunit,fmt='(70("="))')
             write(unit=iunit,fmt="(50(F7.3, 2X))") x
             write(iunit,*)
             write(iunit,*)
 
-            99 format(70("="))
-
         end subroutine
 
         subroutine test_logspace_base_2
@@ -169,13 +165,11 @@ subroutine test_logspace_base_2
             end do
 
             write(unit=iunit, fmt=*) "logspace(1.0_dp, 10.0_dp, 10, 2): "
-            write(unit=iunit,fmt=99)
+            write(unit=iunit,fmt='(70("="))')
             write(unit=iunit,fmt="(10(F9.3, 2X))") x
             write(iunit,*)
             write(iunit,*)
 
-            99 format(70("="))
-
         end subroutine
 
         subroutine test_logspace_base_2_cmplx_start
@@ -205,13 +199,11 @@ subroutine test_logspace_base_2_cmplx_start
             end do
 
             write(unit=iunit, fmt=*) "logspace(1, i, 10, 2): "
-            write(unit=iunit,fmt=99)
+            write(unit=iunit,fmt='(70("="))')
             write(unit=iunit,fmt="(10('(', F6.3, ',', 1X, F6.3, ')', 2X))") x
             write(iunit,*)
             write(iunit,*)
 
-            99 format(70("="))
-
         end subroutine
 
         subroutine test_logspace_base_i_int_start
@@ -240,13 +232,11 @@ subroutine test_logspace_base_i_int_start
             end do
 
             write(unit=iunit, fmt=*) "logspace(1, 5, 5, i): "
-            write(unit=iunit,fmt=99)
+            write(unit=iunit,fmt='(70("="))')
             write(unit=iunit,fmt="(10('(', F6.3, ',', 1X, F6.3, ')', 2X))") x
             write(iunit,*)
             write(iunit,*)
 
-            99 format(70("="))
-
         end subroutine