integer         ipoint     , mmax
      common /allotd/ ipoint(201), mmax

      integer         ilist       ,llist,ndict,iprec     ,dlist     
      common /allotd/ ilist(2,400),llist,ndict,iprec(200),dlist(200)

      integer         ddict
      common /allotd/ ddict(200)