$LastChangedDate: 27-Juil-2011 $

# CL_fr_G502J2000

Gamma50 (Veis) to EME2000 (J2000) vector transformation

## Calling Sequence

       [pos_J2000,[vel_J2000,jacob]] = CL_fr_G502J2000(cjd,pos_G50 [,vel_G50,dPsi,dEps,conv])

## Description

- Converts position and (optionally) velocity vectors from Gamma50 (Veis) to EME2000.

  The jacobian of the transformation is optionally computed.

- See Reference Frames for more details on the definition of reference frames.

## Parameters

cjd:

  modified julian day from 1950.0 (UTC) (1xN or 1x1)

pos_G50:

  position vector relative to Gamma50 (Veis) [m] (3xN or 3x1)

vel_G50:

  (optional) velocity vector relative to Gamma50 (Veis) [m/s] (3xN or 3x1)

dPsi :

  (optional) Nutation corrections [radians] (default is 0) (1xN or 1x1)

dEps :

  (optional) Nutation corrections [radians] (default is 0) (1xN or 1x1)

conv :

  (optional) Convention IERS. Only iers 1996 (Lieske/Wahr) is implemented (default is "iers_1996")

pos_J2000:

  position vector relative to EME2000 [m] (3xN)

vel_J2000:

  (optional) velocity vector relative to EME2000 [m/s] (3xN)

jacob:

  (optional) jacobian of the transformation (6x6xN)

## Authors

- CNES - DCT/SB

## Bibliography

- 1) CNES - MSLIB FORTRAN 90, Volume R (mr_tsid_veis)

## See also

- CL_fr_G502J2000Mat

- CL_fr_J20002G50

## Examples

    // Conversion of position G50 to J2000
    pos_G50 = [[3500.e3;2500.e3;5800.e3] , [4500.e3;2100.e3;6800.e3]];
    cjd = [21010 , 21011];
    pos_J2000=CL_fr_G502J2000(cjd,pos_G50);

    // Conversion of position and velocity : G50 to J2000  + jacobian
    pos_G50 = [[3500.e3;2500.e3;5800.e3] , [4500.e3;2100.e3;6800.e3]];
    vel_G50 = [[1.e3;3.e3;7.e3] , [2.e3;3.e3;6.e3]];
    cjd = [21010 , 21011];
    [pos_J2000,vel_J2000,jacob]=CL_fr_G502J2000(cjd,pos_G50,vel_G50);