fdurastante/psblas3
1
0
Fork 0
mirror of https://github.com/sfilippone/psblas3.git synced 2026-10-07 07:04:57 +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(*,'(" ")')
test/pargen/ppde.f90
+5 -5
View File
@@ -234,7 +234,7 @@ contains
if (iam==0) then
read(*,*) ip
if (ip.ge.3) then
if (ip >= 3) then
read(*,*) kmethd
read(*,*) ptype
read(*,*) afmt
@@ -246,22 +246,22 @@ contains
read(*,*) idim
if (ip.ge.4) then
if (ip >= 4) then
read(*,*) istopc
else
istopc=1
endif
if (ip.ge.5) then
if (ip >= 5) then
read(*,*) itmax
else
itmax=500
endif
if (ip.ge.6) then
if (ip >= 6) then
read(*,*) itrace
else
itrace=-1
endif
if (ip.ge.7) then
if (ip >= 7) then
read(*,*) irst
else
irst=1