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