sub2d_elem

-improved a bit, added empty procedure
- added "empty elem%tri(1)/quad(1)/coh2d(1)" line before prepare them