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

First working version

Browse Source
This commit is contained in:
sfilippone
2023-04-16 11:30:09 +02:00
parent 8459ea28f5
commit f068d73ef1
6 changed files with 24 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/omp/psb_tomp.F90
+2 -2
View File
@@ -639,7 +639,7 @@ contains
write(psb_out_unit,'("-total time : ",es12.5)') ttot
end if
!call a%print('a.mtx',head='Test')
call a%print('a.mtx',head='Test')
call psb_erractionrestore(err_act)
return
@@ -731,7 +731,7 @@ program psb_d_pde3d
if(psb_errstatus_fatal()) goto 9999
name='pde3d90'
call psb_set_errverbosity(itwo)
!call psb_cd_set_large_threshold(2000_psb_ipk_)
call psb_cd_set_large_threshold(2000_psb_ipk_)
!
! Hello world
!