*** empty log message ***

psblas3-type-indexed
Salvatore Filippone 19 years ago
parent e8d026353c
commit b0e42a0133

@ -306,7 +306,7 @@ Contains
call psb_errpush(err,name) call psb_errpush(err,name)
goto 9999 goto 9999
end if end if
call psb_dreallocate1i(len,y,info) call psb_dreallocate1i(len,y,info)
if (info /= 0) then if (info /= 0) then
err=4000 err=4000
call psb_errpush(err,name) call psb_errpush(err,name)

Loading…
Cancel
Save