/* clkcor */
#include "gsinclud.h"
/* sv clock correction in seconds */
/* ************************************ */
/* Peter H. Dana */
/* POB 1297 */
/* Georgetown, TX 78627 */
/* ************************************ */
clkcor(svclock,gpstime,predict)
struct svclock_struct *svclock;
struct gpstime_struct *gpstime;
struct predict_struct *predict;
{
double dt;
double dtsv;
dt=gpstime->seconds-svclock->toc;
dtsv=svclock->af0+svclock->af1*(dt)+svclock->af2*dt*dt-svclock->tgd;
predict->svclk=-dtsv*C;
}/* end of program */