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

Merged MixedI8 in new branch (to be later merged into development)

Browse Source
This commit is contained in:
Salvatore Filippone
2018-12-10 11:42:40 +00:00
parent 5371e39c16
commit 8d489f8ce2
921 changed files with 172036 additions and 57462 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/fileread/psb_sf_sample.f90
+2 -2
View File
@@ -60,7 +60,7 @@ program psb_sf_sample
! solver paramters
integer(psb_ipk_) :: iter, itmax, ierr, itrace, ircode,&
& methd, istopc, irst
integer(psb_long_int_k_) :: amatsize, precsize, descsize
integer(psb_epk_) :: amatsize, precsize, descsize
real(psb_spk_) :: err, eps, cond
character(len=5) :: afmt
@@ -91,7 +91,7 @@ program psb_sf_sample
name='psb_sf_sample'
if(psb_get_errstatus() /= 0) goto 9999
if(psb_errstatus_fatal()) goto 9999
info=psb_success_
call psb_set_errverbosity(itwo)
!