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

psblas3:

Browse Source 
d_matgen
check stat output.
This commit is contained in:
Salvatore Filippone
2010-05-16 10:10:15 +00:00
parent 35cc59cfed
commit 27d608e395
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
test/serial/d_matgen.f03
+7 -3
View File
@@ -368,7 +368,7 @@ contains
call psb_errpush(info,name,a_err=ch_err)
goto 9999
end if
call a_n%print(19)
!!$ call a_n%print(19)
t1 = psb_wtime()
call a_n%cscnv(info,mold=acsr)
@@ -379,7 +379,10 @@ contains
goto 9999
end if
tasb = psb_wtime()-t1
call a_n%print(20)
call psb_barrier(ictxt)
ttot = psb_wtime() - t0
!!$ call a_n%print(20)
anorm = a_n%csnmi()
write(0,*) 'Nrm infinity ',anorm
!!$ call a_n%csget(2,3,element,irow,icol,val,info)
@@ -413,7 +416,7 @@ contains
goto 9999
end if
tmov = psb_wtime()-t1
call a_n%print(21)
!!$ call a_n%print(21)
anorm = a_n%csnmi()
write(0,*) 'Nrm infinity ',anorm
@@ -425,6 +428,7 @@ contains
write(*,'("-allocation time : ",es12.5)') talc
write(*,'("-coeff. gen. time : ",es12.5)') tgen
write(*,'("-assembly time : ",es12.5)') tasb
write(*,'("-total time : ",es12.5)') ttot
write(*,'("-convert time : ",es12.5)') tmov
!!$ write(*,'("-total time : ",es12.5)') ttot