initialize_spice_ephemeris Subroutine

    subroutine initialize_spice_ephemeris(me,kernels)

    implicit none

    class(spice_ephemeris),intent(inout) :: me
    character(len=*),dimension(:),intent(in) :: kernels  !! list of kernels to load

    integer :: i !! counter

    ! disable the SPICE traceback system to speed it up.
    call trcoff()

    call me%close() ! just in case

    !save the kernel list for unloading later:
    allocate( character(len=len(kernels)) :: me%kernels(size(kernels)))

    !load all the kernels:
    do i=1,size(kernels)
        call furnsh(trim(kernels(i)))
    end do

    end subroutine initialize_spice_ephemeris