Changeset 1197 in ntrip for trunk/BNS/bnsutils.cpp


Ignore:
Timestamp:
Nov 15, 2008, 10:33:54 AM (15 years ago)
Author:
mervart
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/BNS/bnsutils.cpp

    r1125 r1197  
    166166}
    167167
     168//
     169////////////////////////////////////////////////////////////////////////////
     170double djul(int jj, int mm, double tt) {
     171  int    ii, kk;
     172  double  djul ;
     173
     174  if( mm <= 2 ) {
     175    jj = jj - 1;
     176    mm = mm + 12;
     177  } 
     178 
     179  ii   = jj/100;
     180  kk   = 2 - ii + ii/4;
     181  djul = (365.25*jj - fmod( 365.25*jj, 1.0 )) - 679006.0;
     182  djul = djul + floor( 30.6001*(mm + 1) ) + tt + kk;
     183  return djul;
     184}
     185
     186void jdgp(double tjul, double & second, int & nweek) {
     187  double      deltat;
     188
     189  deltat = tjul - 44244.0 ;
     190
     191  // current gps week
     192
     193  nweek = (int) floor(deltat/7.0);
     194
     195  // seconds past midnight of last weekend
     196
     197  second = (deltat - (nweek)*7.0)*86400.0;
     198
     199}
     200
     201void GPSweekFromYMDhms(int year, int month, int day, int hour, int min,
     202                       double sec, int& GPSWeek, double& GPSWeeks) {
     203
     204  double tt = (min / 60.0 + hour) / 24.0 + day;
     205  double mjd = djul(year, month, tt);
     206  jdgp(mjd, GPSWeeks, GPSWeek);
     207  GPSWeeks += sec; 
     208}
     209
Note: See TracChangeset for help on using the changeset viewer.