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

psblas3:

Browse Source 
test/pargen/ppde3d.f90
 test/pargen/spde3d.f90
 util/psb_d_genpde_impl.f90
 util/psb_d_genpde_mod.f90
 util/psb_s_genpde_impl.f90
 util/psb_s_genpde_mod.f90

Fixed name of gen_pde2|3d
This commit is contained in:
Salvatore Filippone
2012-02-17 20:44:43 +00:00
parent 0aa1bd1c24
commit 06249c361f
6 changed files with 28 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/pargen/ppde3d.f90
+2 -2
View File
@@ -122,13 +122,13 @@ program ppde3d
!
call psb_barrier(ictxt)
t1 = psb_wtime()
call psb_gen_prob3d(ictxt,idim,a,bv,xxv,desc_a,afmt,&
call psb_gen_pde3d(ictxt,idim,a,bv,xxv,desc_a,afmt,&
& a1,a2,a3,b1,b2,b3,c,g,info)
call psb_barrier(ictxt)
t2 = psb_wtime() - t1
if(info /= psb_success_) then
info=psb_err_from_subroutine_
ch_err='psb_gen_prob3d'
ch_err='psb_gen_pde3d'
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
test/pargen/spde3d.f90
+2 -2
View File
@@ -123,13 +123,13 @@ program spde3d
!
call psb_barrier(ictxt)
t1 = psb_wtime()
call psb_gen_prob3d(ictxt,idim,a,bv,xxv,desc_a,afmt,&
call psb_gen_pde3d(ictxt,idim,a,bv,xxv,desc_a,afmt,&
& a1,a2,a3,b1,b2,b3,c,g,info)
call psb_barrier(ictxt)
t2 = psb_wtime() - t1
if(info /= psb_success_) then
info=psb_err_from_subroutine_
ch_err='psb_gen_prob3d'
ch_err='psb_gen_pde3d'
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if