function lin2ang_fov,Zsc,Zt,Re,dz_t

;-------------------------------------------------------------------
;  relate a linear distance subtended at tangent to an angular  
;  "sweep",  or field of view (FOV) at spacecraft altitude 
;
;  input:
;    Zsc........spacecraft altitude, km
;    Zt.........tangent altitude, km
;    Re.........Earth's radius, km, if zero then mean value is used
;    dz_t.......distance subtended at tangent, km
;
;  output:
;    ang........angular sweep (FOV) in arc minutes
;
;  source: Mark Hervig
;-------------------------------------------------------------------

   if Re lt 5000. then Re  = 6378.0    ; mean earth radius, km

;- the angle subtended at tangent

   ang_r = dz_t / sqrt( (Zsc + Re)^2 - (Zt + Re)^2 )

   ang = ang_r / (!pi / (180. * 60.) )

   return,ang

   end