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

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
examples/pdegen/mld_dexample_1lev.f90
+2 -2
View File
@@ -125,8 +125,8 @@ program mld_dexample_1lev
! 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/pdegen/mld_dexample_ml.f90
+2 -2
View File
@@ -129,8 +129,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/pdegen/mld_sexample_1lev.f90
+2 -2
View File
@@ -126,8 +126,8 @@ program mld_sexample_1lev
! 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/pdegen/mld_sexample_ml.f90
+2 -2
View File
@@ -125,8 +125,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
name='mld_sexample_ml'
mlprec/mld_base_prec_type.f90
+4 -4
View File
@@ -81,10 +81,10 @@ module mld_base_prec_type
!
! Version numbers
!
character(len=*), parameter :: mld_version_string = "2.0.0"
integer, parameter :: mld_version_major = 2
integer, parameter :: mld_version_minor = 0
integer, parameter :: mld_patchlevel = 0
character(len=*), parameter :: mld_version_string_ = "2.0.0"
integer, parameter :: mld_version_major_ = 2
integer, parameter :: mld_version_minor_ = 0
integer, parameter :: mld_patchlevel_ = 0
type mld_aux_onelev_map_type
tests/fileread/cf_sample.f90
+2 -2
View File
@@ -129,8 +129,8 @@ program cf_sample
! 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
tests/fileread/df_sample.f90
+2 -2
View File
@@ -129,8 +129,8 @@ program df_sample
! 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
tests/fileread/sf_sample.f90
+2 -2
View File
@@ -129,8 +129,8 @@ program sf_sample
! 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
tests/fileread/zf_sample.f90
+2 -2
View File
@@ -129,8 +129,8 @@ program zf_sample
! 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
tests/pdegen/ppde.f90
+2 -2
View File
@@ -147,8 +147,8 @@ program ppde
! 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
tests/pdegen/spde.f90
+2 -2
View File
@@ -147,8 +147,8 @@ program spde
! 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
!