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

mld2p4-2:

Browse Source 
Welcome message
This commit is contained in:
Salvatore Filippone
2011-03-25 16:53:16 +00:00
parent 0288cf909a
commit cd593602a5
19 changed files with 40 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files
examples/fileread/mld_cexample_1lev.f90
+2 -2
View File
@@ -109,8 +109,8 @@ program mld_cexample_ml
! Hello world
!
if (iam == psb_root_) then
write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
write(*,*) 'This is the ',name,' sample program'
write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
write(*,*) 'This is the ',trim(name),' sample program'
end if
! get parameters
examples/fileread/mld_cexample_ml.f90
+2 -2
View File
@@ -113,8 +113,8 @@ program mld_cexample_ml
! Hello world
!
if (iam == psb_root_) then
write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
write(*,*) 'This is the ',name,' sample program'
write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
write(*,*) 'This is the ',trim(name),' sample program'
end if
! get parameters
examples/fileread/mld_dexample_1lev.f90
+2 -2
View File
@@ -108,8 +108,8 @@ program mld_dexample_ml
! Hello world
!
if (iam == psb_root_) then
write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
write(*,*) 'This is the ',name,' sample program'
write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
write(*,*) 'This is the ',trim(name),' sample program'
end if
! get parameters
examples/fileread/mld_dexample_ml.f90
+2 -2
View File
@@ -112,8 +112,8 @@ program mld_dexample_ml
! Hello world
!
if (iam == psb_root_) then
write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
write(*,*) 'This is the ',name,' sample program'
write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
write(*,*) 'This is the ',trim(name),' sample program'
end if
! get parameters
examples/fileread/mld_sexample_1lev.f90
+2 -2
View File
@@ -109,8 +109,8 @@ program mld_sexample_ml
! Hello world
!
if (iam == psb_root_) then
write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
write(*,*) 'This is the ',name,' sample program'
write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
write(*,*) 'This is the ',trim(name),' sample program'
end if
! get parameters
examples/fileread/mld_sexample_ml.f90
+2 -2
View File
@@ -113,8 +113,8 @@ program mld_sexample_ml
! Hello world
!
if (iam == psb_root_) then
write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
write(*,*) 'This is the ',name,' sample program'
write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
write(*,*) 'This is the ',trim(name),' sample program'
end if
! get parameters
examples/fileread/mld_zexample_1lev.f90
+2 -2
View File
@@ -108,8 +108,8 @@ program mld_zexample_ml
! Hello world
!
if (iam == psb_root_) then
write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
write(*,*) 'This is the ',name,' sample program'
write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
write(*,*) 'This is the ',trim(name),' sample program'
end if
! get parameters
examples/fileread/mld_zexample_ml.f90
+2 -2
View File
@@ -112,8 +112,8 @@ program mld_zexample_ml
! Hello world
!
if (iam == psb_root_) then
write(*,*) 'Welcome to MLD2P4 version: ',psb_version_string_
write(*,*) 'This is the ',name,' sample program'
write(*,*) 'Welcome to MLD2P4 version: ',mld_version_string_
write(*,*) 'This is the ',trim(name),' sample program'
end if
! get parameters