Index Page
cspice_spk14e
A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X 

Abstract
I/O
Examples
Particulars
Required Reading
Version
Index_Entries

Abstract


   CSPICE_SPK14E ends the current type 14 SPK segment in
   the SPK referred to by 'handle'.

   For important details concerning this module's function, please refer to
   the CSPICE routine spk14e_c.

I/O

   
   Given:
   
      handle   the integer referring to an SPK file opened
               with write access
   
   the call:
   
      cspice_spk14e, handle
   
   end the current SPK 14 segment.
   

Examples


   Any numerical results shown for this example may differ between
   platforms as the results depend on the SPICE kernels used as input
   and the machine specific arithmetic implementation.

   
      ;;
      ;; Create an SPK type 14. First create a segment 
      ;; identifier.
      ;; 
      body      = 3
      center    = 10
      ref       = 'J2000'  
      segid     = 'SPK type 14 test segment'
      SPK14     = 'test14.bsp'
      N_RECORDS = 4
      CHBDEG    = 2
       
      ;;
      ;; Define the coefficients.
      ;;
      discreteEpochs = [ 100.d, 200.d, 300.d, 400.d, 500.d, $ 
                         600.d, 700.d, 800.d, 900.d         $
                       ]
       
      ChebyRecords14 = [                            $
                        150.0d,                     $
                        50.0d,                      $
                        1.0101d, 1.0102d, 1.0103d,  $
                        1.0201d, 1.0202d, 1.0203d,  $
                        1.0301d, 1.0302d, 1.0303d,  $
                        1.0401d, 1.0402d, 1.0403d,  $
                        1.0501d, 1.0502d, 1.0503d,  $
                        1.0601d, 1.0602d, 1.0603d   $
                       ,                            $
                        250.0d,                     $
                        50.0d,                      $
                        2.0101d, 2.0102d, 2.0103d,  $
                        2.0201d, 2.0202d, 2.0203d,  $
                        2.0301d, 2.0302d, 2.0303d,  $
                        2.0401d, 2.0402d, 2.0403d,  $
                        2.0501d, 2.0502d, 2.0503d,  $
                        2.0601d, 2.0602d, 2.0603d   $
                       ,                            $
                        350.0d,                     $
                        50.0d,                      $
                        3.0101d, 3.0102d, 3.0103d,  $
                        3.0201d, 3.0202d, 3.0203d,  $
                        3.0301d, 3.0302d, 3.0303d,  $
                        3.0401d, 3.0402d, 3.0403d,  $
                        3.0501d, 3.0502d, 3.0503d,  $
                        3.0601d, 3.0602d, 3.0603d   $
                       ,                            $
                        450.0d,                     $
                        50.0d,                      $
                        4.0101d, 4.0102d, 4.0103d,  $
                        4.0201d, 4.0202d, 4.0203d,  $
                        4.0301d, 4.0302d, 4.0303d,  $
                        4.0401d, 4.0402d, 4.0403d,  $
                        4.0501d, 4.0502d, 4.0503d,  $
                        4.0601d, 4.0602d, 4.0603d   $
                     ]
    
      ;;
      ;; Open a new SPK file.
      ;;
      if ( cspice_exists (SPK14) ) then begin
         file_delete, SPK14 
      endif
      cspice_spkopn, SPK14, 'Type 14 SPK internal file name.', 4, handle
     
      ;;
      ;; Create a type 14 segment.
      ;;
      ;; Begin the segment
      ;;
      cspice_spk14b, handle,                      $
                     segid,                       $
                     body,                        $
                     center,                      $
                     ref,                         $
                     discreteEpochs[0],           $
                     discreteEpochs[N_RECORDS],   $
                     CHBDEG
        
      ;;
      ;; Add the data.
      ;;
      cspice_spk14a, handle,           $
                     N_RECORDS,        $
                     ChebyRecords14,   $
                     discreteEpochs
       
      ;;
      ;; End the segment.
      ;;
      cspice_spk14e, handle
       
      ;; 
      ;; SAFELY close the SPK file.
      ;;
      cspice_spkcls, handle

Particulars


   None.

Required Reading


   ICY.REQ
   SPK.REQ

Version


   -Icy Version 1.0.0, 16-JUN-2003, EDW (JPL)

Index_Entries

 
   end a type_14 spk segment 
 



Wed Apr  5 17:58:03 2017