%                                vecefgd.m
%  Scope:   This MATLAB macro performs the transformation from ECEF frame to
%           geodetic coordinates for a given position vector; the reference 
%           point is given in geodetic coordinates.
%  Usage:   pgd = vecefgd(pecef,pgdref)
%  Description of parameters:
%           pecef  - input, ECEF position vector, with components in meters
%           pgdref - input, geodetic position of the reference point, where
%                    pgdref(1) = latitude in radians
%                    pgdref(2) = longitude in radians
%                    pgdref(3) = altitude in meters
%           pgd    - output, geodetic position of the final point, where
%                    pgd(1) = latitude in radians
%                    pgd(2) = longitude in radians
%                    pgd(3) = altitude in meters
%  External Matlab macros used:  tecefgd, tgdecef
%  Last update:  04/04/00
%  Copyright (C) 1996-00 by LL Consulting. All Rights Reserved.

function   pgd = vecefgd(pecef,pgdref)

pecefref = tgdecef(pgdref(1),pgdref(2),pgdref(3));
pfinal = pecefref' + pecef;
[pgd(1),pgd(2),pgd(3)] = tecefgd(pfinal);