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

Typographical changes for old/new style comparison operators.

Browse Source
This commit is contained in:
Salvatore Filippone
2008-01-14 15:33:11 +00:00
parent 042be22898
commit 369a40850f
3 changed files with 9 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/fileread/df_sample.f90
+2 -2
View File
@@ -142,7 +142,7 @@ program df_sample
end if
! switch over different partition types
if (ipart.eq.0) then
if (ipart == 0) then
call psb_barrier(ictxt)
if (iam==psb_root_) write(*,'("Partition type: block")')
allocate(ivg(m_problem),ipv(np))
@@ -152,7 +152,7 @@ program df_sample
enddo
call psb_matdist(aux_a, a, ivg, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt)
else if (ipart.eq.2) then
else if (ipart == 2) then
if (iam==psb_root_) then
write(*,'("Partition type: graph")')
write(*,'(" ")')
test/fileread/zf_sample.f90
+2 -2
View File
@@ -142,7 +142,7 @@ program zf_sample
end if
! switch over different partition types
if (ipart.eq.0) then
if (ipart == 0) then
call psb_barrier(ictxt)
if (iam==psb_root_) write(*,'("Partition type: block")')
allocate(ivg(m_problem),ipv(np))
@@ -152,7 +152,7 @@ program zf_sample
enddo
call psb_matdist(aux_a, a, ivg, ictxt, &
& desc_a,b_col_glob,b_col,info,fmt=afmt)
else if (ipart.eq.2) then
else if (ipart == 2) then
if (iam==psb_root_) then
write(*,'("Partition type: graph")')
write(*,'(" ")')