$ file dbdel1   mag  8 dec 97
init master(s)
diag 8
$ next line not recommended.  see diagon(20) in example below
$ diag 20 $ get store/fetch/delete diagnostics
sol 100
compile userdmap list noref $
alter 2 $
matgen ,/i11/1/1 $
matgen ,/i22/1/2 $
matgen ,/i33/1/3 $
matgen ,/i44/1/4 $
matgen ,/i55/1/5 $
call dbstore i11,i22,i33,i44,i55//0/0/'     '/0 $
diagon(20) $ this diag makes large .f04 files.  use locally
call dbdel   i11,   ,i33,   ,i55//0/0/'     '/0 $
diagoff(20) $
delete /i11,i22,i33,i44,i55 $
diagon(20) $
call dbfetch /i11,i22,i33,i44,i55/0/0/0/0/0 $
diagoff(20) $
matprn i11,i22,i33,i44,i55// $
include 'dbdela.v707' $
cend 
title = dbdel subdmap tester			dbdel1
subtitle = delete data blocks from data base stored with dbstore
begin bulk
enddata $