fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-20 21:02:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

psblas3:

Browse Source 
Welcome message
This commit is contained in:
Salvatore Filippone
2011-03-25 16:54:41 +00:00
parent 2714647fd7
commit dbbbcf5fc7
7 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
base/modules/psb_const_mod.F90
+4 -4
View File
@@ -56,10 +56,10 @@ module psb_const_mod
! !
! Version ! Version
! !
character(len=*), parameter :: psb_version_string = "3.0.0" character(len=*), parameter :: psb_version_string_ = "3.0.0"
integer, parameter :: psb_version_major = 3 integer, parameter :: psb_version_major_ = 3
integer, parameter :: psb_version_minor = 0 integer, parameter :: psb_version_minor_ = 0
integer, parameter :: psb_patchlevel = 0 integer, parameter :: psb_patchlevel_ = 0
! !
! Handy & miscellaneous constants ! Handy & miscellaneous constants
test/fileread/cf_sample.f90
+1 -1
View File
@@ -97,7 +97,7 @@ program cf_sample
! !
if (iam == psb_root_) then if (iam == psb_root_) then
write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_ write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_
write(*,*) 'This is the ',name,' sample program' write(*,*) 'This is the ',trim(name),' sample program'
end if end if
! !
! get parameters ! get parameters
test/fileread/df_sample.f90
+1 -1
View File
@@ -98,7 +98,7 @@ program df_sample
! !
if (iam == psb_root_) then if (iam == psb_root_) then
write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_ write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_
write(*,*) 'This is the ',name,' sample program' write(*,*) 'This is the ',trim(name),' sample program'
end if end if
! !
! get parameters ! get parameters
test/fileread/sf_sample.f90
+1 -1
View File
@@ -97,7 +97,7 @@ program sf_sample
! !
if (iam == psb_root_) then if (iam == psb_root_) then
write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_ write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_
write(*,*) 'This is the ',name,' sample program' write(*,*) 'This is the ',trim(name),' sample program'
end if end if
! !
! get parameters ! get parameters
test/fileread/zf_sample.f90
+1 -1
View File
@@ -97,7 +97,7 @@ program zf_sample
! !
if (iam == psb_root_) then if (iam == psb_root_) then
write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_ write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_
write(*,*) 'This is the ',name,' sample program' write(*,*) 'This is the ',trim(name),' sample program'
end if end if
! !
! get parameters ! get parameters
test/pargen/ppde.f90
+1 -1
View File
@@ -115,7 +115,7 @@ program ppde
! !
if (iam == psb_root_) then if (iam == psb_root_) then
write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_ write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_
write(*,*) 'This is the ',name,' sample program' write(*,*) 'This is the ',trim(name),' sample program'
end if end if
! !
! get parameters ! get parameters
test/pargen/spde.f90
+1 -1
View File
@@ -115,7 +115,7 @@ program ppde
! !
if (iam == psb_root_) then if (iam == psb_root_) then
write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_ write(*,*) 'Welcome to PSBLAS version: ',psb_version_string_
write(*,*) 'This is the ',name,' sample program' write(*,*) 'This is the ',trim(name),' sample program'
end if end if
! !
! get parameters ! get parameters