Fix message in sample program

2 months ago · aece94c0fd
parent 838eaa4d83
commit aece94c0fd
4 changed files with 4 additions and 4 deletions
--- a/samples/advanced/fileread/amg_cf_sample.f90
+++ b/samples/advanced/fileread/amg_cf_sample.f90
@ -187,7 +187,7 @@ program amg_cf_sample
  !
  if (iam == psb_root_) then 
    write(psb_out_unit,*) ' '
-    write(psb_out_unit,*) 'Welcome to MLD2P4 version: ',amg_version_string_
+    write(psb_out_unit,*) 'Welcome to AMG4PSBLAS version: ',amg_version_string_
    write(psb_out_unit,*) 'This is the ',trim(name),' sample test program'
    write(psb_out_unit,*) ' '
  end if
--- a/samples/advanced/fileread/amg_df_sample.f90
+++ b/samples/advanced/fileread/amg_df_sample.f90
@ -187,7 +187,7 @@ program amg_df_sample
  !
  if (iam == psb_root_) then 
    write(psb_out_unit,*) ' '
-    write(psb_out_unit,*) 'Welcome to MLD2P4 version: ',amg_version_string_
+    write(psb_out_unit,*) 'Welcome to AMG4PSBLAS version: ',amg_version_string_
    write(psb_out_unit,*) 'This is the ',trim(name),' sample test program'
    write(psb_out_unit,*) ' '
  end if
--- a/samples/advanced/fileread/amg_sf_sample.f90
+++ b/samples/advanced/fileread/amg_sf_sample.f90
@ -187,7 +187,7 @@ program amg_sf_sample
  !
  if (iam == psb_root_) then 
    write(psb_out_unit,*) ' '
-    write(psb_out_unit,*) 'Welcome to MLD2P4 version: ',amg_version_string_
+    write(psb_out_unit,*) 'Welcome to AMG4PSBLAS version: ',amg_version_string_
    write(psb_out_unit,*) 'This is the ',trim(name),' sample test program'
    write(psb_out_unit,*) ' '
  end if
--- a/samples/advanced/fileread/amg_zf_sample.f90
+++ b/samples/advanced/fileread/amg_zf_sample.f90
@ -187,7 +187,7 @@ program amg_zf_sample
  !
  if (iam == psb_root_) then 
    write(psb_out_unit,*) ' '
-    write(psb_out_unit,*) 'Welcome to MLD2P4 version: ',amg_version_string_
+    write(psb_out_unit,*) 'Welcome to AMG4PSBLAS version: ',amg_version_string_
    write(psb_out_unit,*) 'This is the ',trim(name),' sample test program'
    write(psb_out_unit,*) ' '
  end if