- fwrite ( &lgr,(size_t)4 ,(size_t)1 ,fp);
- } else {
+ if (vr == "SQ")
+ {
+ // we set SQ length to ffffffff
+ // and we shall write a Sequence Delimitor Item
+ // at the end of the Sequence!
+ fwrite ( &FFFF,(size_t)4 ,(size_t)1 ,fp);
+ }
+ else
+ {
+ fwrite ( &lgr,(size_t)4 ,(size_t)1 ,fp);
+ }
+ }
+ else
+ {