c
c------------------------------------------------------------------
c Begin file /home/sting/foster/plt/cpwrk.h
c------------------------------------------------------------------
c
      parameter(lrwrk=2000,liwrk=1000,liama=300000,lcra=10000,
     +  icam=512,ican=512)
      common/work/ rwrk(lrwrk),iwrk(liwrk),iama(liama),iiasf(13),
     +  iaia(10),igia(10),xcra(lcra),ycra(lcra),
     +  icra(icam,ican)
c