c--------------start of maskgen.common.blocks---------------------------------
c
       integer kmax
       parameter (kmax=4000)  ! maximum number of objects in a mask list
 
 
       common/iindata/ inumin,inumobj
       integer inumin,inumobj(kmax)
 
       common/islit/ iobjproj,iflag,kcount,icount,iscale
       integer iobjproj(kmax),iflag(kmax),kcount(kmax),icount,iscale
 
       common/iparams/ isense,ixsign,iysign,iwarn,ioffset,kpri,iwfccd,
     %                iskip
       integer isense,ixsign,iysign,iwarn,ioffset,kpri,iwfccd,iskip
 
       common/rindata/xobj,yobj,priority,xmag,pa,wslit,slitposw,slitpose
       real xobj(kmax),yobj(kmax),priority(kmax),xmag(kmax),pa(kmax)
       real wslit(kmax),slitposw(kmax),slitpose(kmax)
 
       common/rslit/ xproj,yproj,xstart,xend,ystart,yend,slitposwproj,
     %              slitposeproj,x0,y0,x0unproj,y0unproj,wproj,lproj,
     %              paproj,least,lwest,percent,projpriority
       real xproj(kmax),yproj(kmax),xstart(kmax),xend(kmax),ystart(kmax)
       real yend(kmax),slitposwproj(kmax),slitposeproj(kmax),x0,y0
       real x0unproj,y0unproj,wproj(kmax),lproj(kmax),least(kmax)
       real paproj(kmax),lwest(kmax),percent(kmax),projpriority(kmax)
 
       common/rparams/ asperunit,scale,wfpix,starwidth,xsize,ysize,ystack,
     %                endpix,endslit,slitmin,enlarge,xoff,yoff,globslit,
     %                holediam,thinrot,theta,thetad,cosmic_scale
       real asperunit,scale,wfpix,starwidth,xsize,ysize,ystack,endpix,endslit
       real slitmin,enlarge,xoff,yoff,globslit,holediam,thinrot,theta,thetad
       real cosmic_scale
 
       common/lparams/auto_priority,auto_offset,tilted_slits,holes,stacked,
     %                cosmic,wfccd,interactive
 
       logical auto_priority, auto_offset, tilted_slits, holes, stacked, 
     %         cosmic, wfccd, interactive
 
       common/cparams/ title,infile,psfile,gmoutput,exclfile,stdout
       character*64 title*32,infile,psfile,gmoutput,exclfile,stdout
 
       common/rcoords/ rah,ram,ras,decd,decm,decs,epoch,rahproj,ramproj,
     %                 rasproj,decdproj,decmproj,decsproj
       real rah,ram,ras,decd,decm,decs,epoch,rahproj,ramproj,rasproj
       real decdproj,decmproj,decsproj
 
       common/lcoords/coords
       logical coords
c
c--------------end of maskgen.common.blocks-----------------------------------
c