pro scale,m,pm
common camer,camera,lam
if((camera eq 'PCFULL') or (camera eq 'PCSEC')) then begin
   pix=24*lam*3.58/2000.
   m=fix(0.043/pix+0.5) 
   pm=0.043/(m*pix)
endif
if((camera eq 'FCFULL') or (camera eq 'FCSEC')) then begin
   pix=24*lam*3.58/2000.
   m=fix(0.022/pix+0.5) 
   pm=0.022/(m*pix)
endif
if((camera eq 'WFFULL') or (camera eq 'WFSEC')) then begin
   pix=24*lam*3.58/2000.
   m=fix(0.1/pix+0.5) 
   pm=0.1/(m*pix)
endif
if(camera eq 'F288') then begin
   pix=24*lam*3.58/2000.
   m=fix(0.022/(3*pix)+0.5) 
   pm=0.022/(3*m*pix)
endif
return
end