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

Fixed environment handling: now BLACS only appear in psb_penv_mod and psb_Error_mod

Browse Source
This commit is contained in:
Salvatore Filippone
2006-07-14 16:17:30 +00:00
parent 8155562938
commit 73aec9514d
127 changed files with 7214 additions and 8585 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/Fileread/df_sample.f90
+2 -3
View File
@@ -75,7 +75,6 @@ program df_sample
! communications data structure
type(psb_desc_type):: desc_a
! blacs variables
integer :: ictxt, iam, np
logical :: amroot
@@ -270,11 +269,11 @@ program df_sample
end if
iparm = 0
call blacs_barrier(ictxt,'all')
call psb_barrier(ictxt)
t1 = mpi_wtime()
call psb_krylov(cmethd,a,pre,b_col,x_col,eps,desc_a,info,&
& itmax=itmax,iter=iter,err=err,itrace=itrace,istop=istopc,irst=ml)
call blacs_barrier(ictxt,'all')
call psb_barrier(ictxt)
t2 = mpi_wtime() - t1
call psb_amx(ictxt,t2)
call psb_geaxpby(1.d0,b_col,0.d0,r_col,desc_a,info)