* D0= ( d1.d1 -- flag ) the double-cell equal-to-zero operation ( 0= )
D0=
( d1.d1 -- flag )
0=
double ordinary primitive