; docformat = 'rst'
;+
;This function returns a structure containing information about 
;geolocation of a given image.
;
;Note!
;  For any pixel pointed off the surface of interest, all values for that pixel
;  will be NaN. In this case, the program will also report
;  "% Program caused arithmetic error: Floating illegal operand".
;  It will still calculate all other pixels correctly.
;  
; :Author: 
;   Chris Jeppesen: 07-15-2005
;   
; :Examples:
;   image_lla_struct = cam_to_lla(cam_name, gps_time, alt, cam_info_struct)
;-

function getcaminfo, caminfo, cam_name
  cam_index=where(cam_name eq ["px","mx","py","my"])
  pixelvec=reform((*(caminfo.pixelvec))[cam_index,*,*,*])
  result={ $
    rows:     ((*(caminfo.rows))[cam_index])[0], $
    cols:     ((*(caminfo.cols))[cam_index])[0], $
    thfovx:   ((*(caminfo.thfovx))[cam_index])[0], $
    thfovy:   ((*(caminfo.thfovy))[cam_index])[0], $
    pixelvec: pixelvec, $
    angle1:    ((*(caminfo.angle1))[cam_index])[0], $
    angle2:    ((*(caminfo.angle2))[cam_index])[0], $
    angle3:    ((*(caminfo.angle3))[cam_index])[0], $
    cam_ref_x:  transpose(caminfo.cam_ref_x[cam_index,*]) $
  }
  return,result[0]
end