5c5
< ;	STARFIELD
---
> ;	STARFIELD2
15c15
< ;	Starfield
---
> ;	Starfield2
40,41c40,41
< ;	Adapted to use SOHO orbit parameters from CDF files,
< ;	2-April-96 (SPP).
---
> ;	Adapted to use SOHO orbit parameters from FITS files,
> ;	4-June-96 (SPP).
45c45
< ; Begin Starfield_event
---
> ; Begin Starfield2_event
47c47
< PRO Starfield_event, event
---
> PRO Starfield2_event, event
99,101c99,103
<         soho_orbit = get_orbit_cdf(tdb_utc)
<         hec_pos = soho_orbit.hec_pos/1.495979d8
<         hec_vel = soho_orbit.hec_vel*(8.64d5/1.495979d8)
---
>         soho_orbit = get_orbit_fits(tdb_utc)
>         hec_pos = [soho_orbit.hec_x, soho_orbit.hec_y, $
>                    soho_orbit.hec_z]/1.495979d8
>         hec_vel = [soho_orbit.hec_vx, soho_orbit.hec_vy, $
>                    soho_orbit.hec_vz]*(8.64d5/1.495979d8)
108c110
<         sohoephem, tjd, hec_orbit, tuv.coord, sunephem, planephem
---
>         sohoephem2, tjd, hec_orbit, tuv.coord, sunephem, planephem
369c371
<         file = path_ast+!delimiter+tuv.detector+'_'+ $
---
>         file = path_ast+'/'+tuv.detector+'_'+ $
380c382
<         file = path_ast+!delimiter+tuv.detector+'_'+ $
---
>         file = path_ast+'/'+tuv.detector+'_'+ $
470c472
<               '(x,a7,5x,f5.1,5x,f4.1,7x,f6.1,3x,f6.1,9x,f4.1,16x,f4.2,16x,' + $
---
>               '(x,a7,5x,f5.1,5x,f4.1,7x,f6.1,3x,f6.1,8x,f5.1,16x,f4.2,16x,' + $
547c549
< ; End Point_event
---
> ; End Starfield2_event
551c553
< PRO Starfield, GROUP=Group
---
> PRO Starfield2, GROUP=Group
726c728
< xmanager, 'starfield', starbase, group_leader = group
---
> xmanager, 'starfield2', starbase, group_leader = group