format -> character parameter

Author: perazz

example/linalg/example_svd.f90

@@ -5,6 +5,7 @@ program example_svd
   implicit none
 
   real(dp), allocatable :: A(:,:),s(:),u(:,:),vt(:,:)
+  character(*), parameter :: fmt = "(a,*(1x,f12.8))"
 
   ! We want to find the singular value decomposition of matrix: 
   ! 
@@ -21,30 +22,29 @@ program example_svd
   call svd(A,s,u,vt)
 
   ! Singular values: [5, 3]
-  print 1, '    '
-  print 1, 'S = ',s
-  print 1, '    '
+  print fmt, '    '
+  print fmt, 'S = ',s
+  print fmt, '    '
 
   ! Left vectors (may be flipped): 
   !     [Ã2/2  Ã2/2]
   ! U = [Ã2/2 -Ã2/2]
   !
-  print 1, '    '
-  print 1, 'U = ',u(1,:)
-  print 1, '    ',u(2,:)
+  print fmt, '    '
+  print fmt, 'U = ',u(1,:)
+  print fmt, '    ',u(2,:)
 
 
   ! Right vectors (may be flipped): 
   !     [Ã2/2    Ã2/2      0]
   ! V = [1/Ã18 -1/Ã18  4/Ã18]
   !     [ 2/3    -2/3   -1/3]
   !
-  print 1, '    '
-  print 1, '    ',vt(1,:)
-  print 1, 'VT= ',vt(2,:)
-  print 1, '    ',vt(3,:)
-  print 1, '    '
+  print fmt, '    '
+  print fmt, '    ',vt(1,:)
+  print fmt, 'VT= ',vt(2,:)
+  print fmt, '    ',vt(3,:)
+  print fmt, '    '
 
-  1 format(a,*(1x,f12.8))
 
 end program example_svd

example/linalg/example_svdvals.f90

@@ -5,6 +5,7 @@ program example_svdvals
   implicit none
 
   real(dp), allocatable :: A(:,:),s(:)
+  character(*), parameter :: fmt="(a,*(1x,f12.8))"
 
   ! We want to find the singular values of matrix: 
   ! 
@@ -18,10 +19,8 @@ program example_svdvals
   s = svdvals(A)
 
   ! Singular values: [5, 3]
-  print 1, '    '
-  print 1, 'S = ',s
-  print 1, '    '
+  print fmt, '    '
+  print fmt, 'S = ',s
+  print fmt, '    '
 
-  1 format(a,*(1x,f12.8))
-
 end program example_svdvals