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

Fix bcast on strings.

Browse Source
This commit is contained in:
Salvatore Filippone
2007-04-03 09:58:11 +00:00
parent 3e7d0e55b5
commit 7b06619de0
1 changed files with 4 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/pargen/ppde90.f90
+4 -21
View File
@@ -255,21 +255,12 @@ contains
read(*,*) novr
read(*,*) afmt
! convert strings in array
do i = 1, len(cmethd)
intbuf(i) = iachar(cmethd(i:i))
end do
! broadcast parameters to all processors
call psb_bcast(ictxt,intbuf(1:10))
! broadcast parameters to all processors
call psb_bcast(ictxt,cmethd)
call psb_bcast(ictxt,afmt)
call psb_bcast(ictxt,iprec)
call psb_bcast(ictxt,novr)
do i = 1, len(afmt)
intbuf(i) = iachar(afmt(i:i))
end do
call psb_bcast(ictxt,intbuf(1:10))
read(*,*) idim
if (ip.ge.4) then
@@ -316,18 +307,10 @@ contains
stop 1
endif
else
call psb_bcast(ictxt,intbuf(1:10))
do i = 1, 10
cmethd(i:i) = achar(intbuf(i))
end do
call psb_bcast(ictxt,cmethd)
call psb_bcast(ictxt,afmt)
call psb_bcast(ictxt,iprec)
call psb_bcast(ictxt,novr)
call psb_bcast(ictxt,intbuf(1:10))
do i = 1, 5
afmt(i:i) = achar(intbuf(i))
end do
call psb_bcast(ictxt,intbuf(1:5))
idim = intbuf(1)
istopc = intbuf(2)