fdurastante
/
amg4psblas
mirror of https://github.com/sfilippone/amg4psblas.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Fix message in sample program

Browse Source
kinsol-stop
sfilippone 3 months ago
parent 838eaa4d83
commit aece94c0fd
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File

2
samples/advanced/fileread/amg_cf_sample.f90
Unescape Escape View File

@ -187,7 +187,7 @@ program amg_cf_sample
! !
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,*) ' ' 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,*) 'This is the ',trim(name),' sample test program'
write(psb_out_unit,*) ' ' write(psb_out_unit,*) ' '
end if end if

2
samples/advanced/fileread/amg_df_sample.f90
Unescape Escape View File

@ -187,7 +187,7 @@ program amg_df_sample
! !
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,*) ' ' 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,*) 'This is the ',trim(name),' sample test program'
write(psb_out_unit,*) ' ' write(psb_out_unit,*) ' '
end if end if

2
samples/advanced/fileread/amg_sf_sample.f90
Unescape Escape View File

@ -187,7 +187,7 @@ program amg_sf_sample
! !
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,*) ' ' 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,*) 'This is the ',trim(name),' sample test program'
write(psb_out_unit,*) ' ' write(psb_out_unit,*) ' '
end if end if

2
samples/advanced/fileread/amg_zf_sample.f90
Unescape Escape View File

@ -187,7 +187,7 @@ program amg_zf_sample
! !
if (iam == psb_root_) then if (iam == psb_root_) then
write(psb_out_unit,*) ' ' 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,*) 'This is the ',trim(name),' sample test program'
write(psb_out_unit,*) ' ' write(psb_out_unit,*) ' '
end if end if

Write Preview
Loading…
Cancel
Save