*** empty log message ***

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

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

Loading…
Cancel
Save