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/ platescale,scale,starwidth,xsize,ysize,ystack, % endpix,endslit,slitmin,enlarge,xoff,yoff,globslit, % thinrot,theta,thetad,cosmic_scale real platescale,scale,starwidth,xsize,ysize,ystack,endpix,endslit real slitmin,enlarge,xoff,yoff,globslit,thinrot,theta,thetad,cosmic_scale common/lparams/ auto_priority, tilted_slits, holes, stacked, cosmic logical auto_priority, tilted_slits, holes, stacked, cosmic common/cparams/ title,infile character*32 title,infile*64 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