fdurastante/amg4psblas
1
0
Fork 0
mirror of https://github.com/sfilippone/amg4psblas.git synced 2026-10-06 14:44:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Fix message in samples

Browse Source
This commit is contained in:
sfilippone
2026-03-18 14:29:11 +01:00
parent 7b255aaf6f
commit 0b2a212523
6 changed files with 70 additions and 70 deletions
Download Patch File Download Diff File Expand all files Collapse all files
samples/advanced/fileread/amg_cf_sample.f90
+1 -1
View File
@@ -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
samples/advanced/fileread/amg_df_sample.f90
+1 -1
View File
@@ -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
samples/advanced/fileread/amg_sf_sample.f90
+1 -1
View File
@@ -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
samples/advanced/fileread/amg_zf_sample.f90
+1 -1
View File
@@ -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