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 sample program

Browse Source
This commit is contained in:
sfilippone
2026-03-18 14:27:42 +01:00
parent 838eaa4d83
commit aece94c0fd
4 changed files with 4 additions and 4 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