psblas3:

Welcome message

base/modules/psb_const_mod.F90

@@ -56,10 +56,10 @@ module psb_const_mod
   ! 
   ! Version
   !
-  character(len=*), parameter :: psb_version_string = "3.0.0"
+  character(len=*), parameter :: psb_version_string_ = "3.0.0"
-  integer, parameter          :: psb_version_major  = 3
+  integer, parameter          :: psb_version_major_  = 3
-  integer, parameter          :: psb_version_minor  = 0
+  integer, parameter          :: psb_version_minor_  = 0
-  integer, parameter          :: psb_patchlevel     = 0
+  integer, parameter          :: psb_patchlevel_     = 0
 
   !
   !     Handy & miscellaneous constants

test/fileread/cf_sample.f90

@@ -97,7 +97,7 @@ program cf_sample
   !
   if (iam == psb_root_) then 
     write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
   !
   !  get parameters

test/fileread/df_sample.f90

@@ -98,7 +98,7 @@ program df_sample
   !
   if (iam == psb_root_) then 
     write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
   !
   !  get parameters

test/fileread/sf_sample.f90

@@ -97,7 +97,7 @@ program sf_sample
   !
   if (iam == psb_root_) then 
     write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
   !
   !  get parameters

test/fileread/zf_sample.f90

@@ -97,7 +97,7 @@ program zf_sample
   !
   if (iam == psb_root_) then 
     write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
   !
   !  get parameters

test/pargen/ppde.f90

@@ -115,7 +115,7 @@ program ppde
   !
   if (iam == psb_root_) then 
     write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
   !
   !  get parameters

test/pargen/spde.f90

@@ -115,7 +115,7 @@ program ppde
   !
   if (iam == psb_root_) then 
     write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_
-    write(*,*) 'This is the ',name,' sample program'
+    write(*,*) 'This is the ',trim(name),' sample program'
   end if
   !
   !  get parameters