openw, unit, 'earth.out', /GET_LUN

crNum = 2312 + double(360.00 - 360) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 360, crPos[2]

crNum = 2312 + double(360.00 - 355) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 355, crPos[2]

crNum = 2312 + double(360.00 - 350) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 350, crPos[2]

crNum = 2312 + double(360.00 - 345) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 345, crPos[2]

crNum = 2312 + double(360.00 - 340) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 340, crPos[2]

crNum = 2312 + double(360.00 - 335) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 335, crPos[2]

crNum = 2312 + double(360.00 - 330) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 330, crPos[2]

crNum = 2312 + double(360.00 - 325) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 325, crPos[2]

crNum = 2312 + double(360.00 - 320) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 320, crPos[2]

crNum = 2312 + double(360.00 - 315) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 315, crPos[2]

crNum = 2312 + double(360.00 - 310) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 310, crPos[2]

crNum = 2312 + double(360.00 - 305) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 305, crPos[2]

crNum = 2312 + double(360.00 - 300) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 300, crPos[2]

crNum = 2312 + double(360.00 - 295) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 295, crPos[2]

crNum = 2312 + double(360.00 - 290) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 290, crPos[2]

crNum = 2312 + double(360.00 - 285) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 285, crPos[2]

crNum = 2312 + double(360.00 - 280) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 280, crPos[2]

crNum = 2312 + double(360.00 - 275) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 275, crPos[2]

crNum = 2312 + double(360.00 - 270) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 270, crPos[2]

crNum = 2312 + double(360.00 - 265) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 265, crPos[2]

crNum = 2312 + double(360.00 - 260) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 260, crPos[2]

crNum = 2312 + double(360.00 - 255) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 255, crPos[2]

crNum = 2312 + double(360.00 - 250) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 250, crPos[2]

crNum = 2312 + double(360.00 - 245) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 245, crPos[2]

crNum = 2312 + double(360.00 - 240) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 240, crPos[2]

crNum = 2312 + double(360.00 - 235) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 235, crPos[2]

crNum = 2312 + double(360.00 - 230) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 230, crPos[2]

crNum = 2312 + double(360.00 - 225) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 225, crPos[2]

crNum = 2312 + double(360.00 - 220) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 220, crPos[2]

crNum = 2312 + double(360.00 - 215) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 215, crPos[2]

crNum = 2312 + double(360.00 - 210) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 210, crPos[2]

crNum = 2312 + double(360.00 - 205) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 205, crPos[2]

crNum = 2312 + double(360.00 - 200) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 200, crPos[2]

crNum = 2312 + double(360.00 - 195) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 195, crPos[2]

crNum = 2312 + double(360.00 - 190) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 190, crPos[2]

crNum = 2312 + double(360.00 - 185) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 185, crPos[2]

crNum = 2312 + double(360.00 - 180) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 180, crPos[2]

crNum = 2312 + double(360.00 - 175) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 175, crPos[2]

crNum = 2312 + double(360.00 - 170) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 170, crPos[2]

crNum = 2312 + double(360.00 - 165) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 165, crPos[2]

crNum = 2312 + double(360.00 - 160) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 160, crPos[2]

crNum = 2312 + double(360.00 - 155) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 155, crPos[2]

crNum = 2312 + double(360.00 - 150) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 150, crPos[2]

crNum = 2312 + double(360.00 - 145) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 145, crPos[2]

crNum = 2312 + double(360.00 - 140) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 140, crPos[2]

crNum = 2312 + double(360.00 - 135) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 135, crPos[2]

crNum = 2312 + double(360.00 - 130) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 130, crPos[2]

crNum = 2312 + double(360.00 - 125) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 125, crPos[2]

crNum = 2312 + double(360.00 - 120) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 120, crPos[2]

crNum = 2312 + double(360.00 - 115) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 115, crPos[2]

crNum = 2312 + double(360.00 - 110) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 110, crPos[2]

crNum = 2312 + double(360.00 - 105) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 105, crPos[2]

crNum = 2312 + double(360.00 - 100) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 100, crPos[2]

crNum = 2312 + double(360.00 - 95) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 95, crPos[2]

crNum = 2312 + double(360.00 - 90) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 90, crPos[2]

crNum = 2312 + double(360.00 - 85) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 85, crPos[2]

crNum = 2312 + double(360.00 - 80) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 80, crPos[2]

crNum = 2312 + double(360.00 - 75) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 75, crPos[2]

crNum = 2312 + double(360.00 - 70) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 70, crPos[2]

crNum = 2312 + double(360.00 - 65) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 65, crPos[2]

crNum = 2312 + double(360.00 - 60) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 60, crPos[2]

crNum = 2312 + double(360.00 - 55) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 55, crPos[2]

crNum = 2312 + double(360.00 - 50) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 50, crPos[2]

crNum = 2312 + double(360.00 - 45) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 45, crPos[2]

crNum = 2312 + double(360.00 - 40) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 40, crPos[2]

crNum = 2312 + double(360.00 - 35) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 35, crPos[2]

crNum = 2312 + double(360.00 - 30) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 30, crPos[2]

crNum = 2312 + double(360.00 - 25) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 25, crPos[2]

crNum = 2312 + double(360.00 - 20) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 20, crPos[2]

crNum = 2312 + double(360.00 - 15) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 15, crPos[2]

crNum = 2312 + double(360.00 - 10) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 10, crPos[2]

crNum = 2312 + double(360.00 - 5) / 360.00
crUtc = get_stereo_carr_date(crNum, 'Earth', /CCSDS)
crPos = get_stereo_lonlat(crUtc, 'Earth', SYSTEM='Carr', /AU, /DEGREES)

printf, unit, FORMAT='(%"%s %d % 10.6f % 9.6f")', $
    crUtc, 2312, 5, crPos[2]

free_lun, unit