*** empty log message ***

psblas3-type-indexed
Salvatore Filippone 13 years ago
parent 1ed539347e
commit d069551ca7

@ -109,7 +109,7 @@ program pdgen
endif
if(psb_get_errstatus() /= 0) goto 9999
name='pde90'
call psb_set_errverbosity(2)
call psb_set_errverbosity(itwo)
!
! Hello world
!
@ -146,7 +146,7 @@ program pdgen
!!$ call psb_cdcpy(desc_a,desc_b,info)
!!$ call psb_set_debug_level(9999)
call psb_cdbldext(a,desc_a,2,desc_b,info,extype=psb_ovt_asov_)
call psb_cdbldext(a,desc_a,itwo,desc_b,info,extype=psb_ovt_asov_)
if (info /= 0) then
write(0,*) 'Error from bldext'
call psb_abort(ictxt)

Loading…
Cancel
Save