From 6da19024ad00850ac94682d5ecaba523d8d7bb68 Mon Sep 17 00:00:00 2001
From: kmdunseath <73846968+kmdunseath@users.noreply.github.com>
Date: Thu, 29 Jun 2023 13:51:23 +0200
Subject: [PATCH] Small cosmetic changes

---
 src/msspec/spec/fortran/eig/ar/arnoldi_mod.f90 | 1 +
 src/msspec/spec/fortran/eig/ar/eig_mat_ar.f90  | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/msspec/spec/fortran/eig/ar/arnoldi_mod.f90 b/src/msspec/spec/fortran/eig/ar/arnoldi_mod.f90
index 8c2e35e..4d14ab7 100644
--- a/src/msspec/spec/fortran/eig/ar/arnoldi_mod.f90
+++ b/src/msspec/spec/fortran/eig/ar/arnoldi_mod.f90
@@ -80,6 +80,7 @@
     real(dp), external :: dznrm2, dlapy2 
 !
 !
+    write(6,*)
     write(6,*) "----------------- BEGIN OF ARNOLDI ITERATION -----------------"
 !
 ! NCV is is the largest number of basis vectors that will be used in the 
diff --git a/src/msspec/spec/fortran/eig/ar/eig_mat_ar.f90 b/src/msspec/spec/fortran/eig/ar/eig_mat_ar.f90
index b84f634..b5c937d 100644
--- a/src/msspec/spec/fortran/eig/ar/eig_mat_ar.f90
+++ b/src/msspec/spec/fortran/eig/ar/eig_mat_ar.f90
@@ -82,7 +82,7 @@
     end do
 !
     ndim = jlin
-    write(6,*) "GoT matrix sm has dimension ", ndim
+    write(6,*) "GoT matrix SM has dimension ", ndim
 !
     allocate(sm(ndim,ndim))
     sm = zeroc