1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048 |
- #include "direwolf.h"
- #include <stdlib.h>
- #include <string.h>
- #include <stdio.h>
- #include <unistd.h>
- #include <ctype.h>
- #include <time.h>
- #include <math.h>
- #include <assert.h>
- #include "latlong.h"
- void latitude_to_str (double dlat, int ambiguity, char *slat)
- {
- char hemi;
- int ideg;
- double dmin;
- char smin[8];
-
- if (dlat < -90.) {
-
- printf ("Latitude is less than -90. Changing to -90.n");
- dlat = -90.;
- }
- if (dlat > 90.) {
-
- printf ("Latitude is greater than 90. Changing to 90.n");
- dlat = 90.;
- }
- if (dlat < 0) {
- dlat = (- dlat);
- hemi = 'S';
- }
- else {
- hemi = 'N';
- }
- ideg = (int)dlat;
- dmin = (dlat - ideg) * 60.;
- snprintf (smin, sizeof(smin), "%05.2f", dmin);
-
- if (smin[0] == '6') {
- smin[0] = '0';
- ideg++;
- }
- sprintf (slat, "%02d%s%c", ideg, smin, hemi);
- if (ambiguity >= 1) {
- slat[6] = ' ';
- if (ambiguity >= 2) {
- slat[5] = ' ';
- if (ambiguity >= 3) {
- slat[3] = ' ';
- if (ambiguity >= 4) {
- slat[2] = ' ';
- }
- }
- }
- }
- }
- void longitude_to_str (double dlong, int ambiguity, char *slong)
- {
- char hemi;
- int ideg;
- double dmin;
- char smin[8];
-
- if (dlong < -180.) {
-
- printf ("Longitude is less than -180. Changing to -180.n");
- dlong = -180.;
- }
- if (dlong > 180.) {
-
- printf ("Longitude is greater than 180. Changing to 180.n");
- dlong = 180.;
- }
- if (dlong < 0) {
- dlong = (- dlong);
- hemi = 'W';
- }
- else {
- hemi = 'E';
- }
- ideg = (int)dlong;
- dmin = (dlong - ideg) * 60.;
- snprintf (smin, sizeof(smin), "%05.2f", dmin);
-
- if (smin[0] == '6') {
- smin[0] = '0';
- ideg++;
- }
- sprintf (slong, "%03d%s%c", ideg, smin, hemi);
- if (ambiguity >= 1) {
- slong[7] = ' ';
- if (ambiguity >= 2) {
- slong[6] = ' ';
- if (ambiguity >= 3) {
- slong[4] = ' ';
- if (ambiguity >= 4) {
- slong[3] = ' ';
- }
- }
- }
- }
- }
- void latitude_to_comp_str (double dlat, char *clat)
- {
- int y, y0, y1, y2, y3;
- if (dlat < -90.) {
-
- printf ("Latitude is less than -90. Changing to -90.n");
- dlat = -90.;
- }
- if (dlat > 90.) {
-
- printf ("Latitude is greater than 90. Changing to 90.n");
- dlat = 90.;
- }
- y = (int)round(380926. * (90. - dlat));
-
- y0 = y / (91*91*91);
- y -= y0 * (91*91*91);
- y1 = y / (91*91);
- y -= y1 * (91*91);
- y2 = y / (91);
- y -= y2 * (91);
- y3 = y;
- clat[0] = y0 + 33;
- clat[1] = y1 + 33;
- clat[2] = y2 + 33;
- clat[3] = y3 + 33;
- }
- void longitude_to_comp_str (double dlong, char *clon)
- {
- int x, x0, x1, x2, x3;
- if (dlong < -180.) {
-
- printf ("Longitude is less than -180. Changing to -180.n");
- dlong = -180.;
- }
- if (dlong > 180.) {
-
- printf ("Longitude is greater than 180. Changing to 180.n");
- dlong = 180.;
- }
- x = (int)round(190463. * (180. + dlong));
-
- x0 = x / (91*91*91);
- x -= x0 * (91*91*91);
- x1 = x / (91*91);
- x -= x1 * (91*91);
- x2 = x / (91);
- x -= x2 * (91);
- x3 = x;
- clon[0] = x0 + 33;
- clon[1] = x1 + 33;
- clon[2] = x2 + 33;
- clon[3] = x3 + 33;
- }
- void latitude_to_nmea (double dlat, char *slat, char *hemi)
- {
- int ideg;
- double dmin;
- char smin[10];
-
- if (dlat == G_UNKNOWN) {
- strcpy (slat, "");
- strcpy (hemi, "");
- return;
- }
- if (dlat < -90.) {
-
- printf ("Latitude is less than -90. Changing to -90.n");
- dlat = -90.;
- }
- if (dlat > 90.) {
-
- printf ("Latitude is greater than 90. Changing to 90.n");
- dlat = 90.;
- }
- if (dlat < 0) {
- dlat = (- dlat);
- strcpy (hemi, "S");
- }
- else {
- strcpy (hemi, "N");
- }
- ideg = (int)dlat;
- dmin = (dlat - ideg) * 60.;
- snprintf (smin, sizeof(smin), "%07.4f", dmin);
-
- if (smin[0] == '6') {
- smin[0] = '0';
- ideg++;
- }
- sprintf (slat, "%02d%s", ideg, smin);
- }
- void longitude_to_nmea (double dlong, char *slong, char *hemi)
- {
- int ideg;
- double dmin;
- char smin[10];
-
- if (dlong == G_UNKNOWN) {
- strcpy (slong, "");
- strcpy (hemi, "");
- return;
- }
- if (dlong < -180.) {
-
- printf ("longitude is less than -180. Changing to -180.n");
- dlong = -180.;
- }
- if (dlong > 180.) {
-
- printf ("longitude is greater than 180. Changing to 180.n");
- dlong = 180.;
- }
- if (dlong < 0) {
- dlong = (- dlong);
- strcpy (hemi, "W");
- }
- else {
- strcpy (hemi, "E");
- }
- ideg = (int)dlong;
- dmin = (dlong - ideg) * 60.;
- snprintf (smin, sizeof(smin), "%07.4f", dmin);
-
- if (smin[0] == '6') {
- smin[0] = '0';
- ideg++;
- }
- sprintf (slong, "%03d%s", ideg, smin);
- }
- double latitude_from_nmea (char *pstr, char *phemi)
- {
- double lat;
- if ( ! isdigit((uint)(pstr[0]))) return (G_UNKNOWN);
- if (pstr[4] != '.') return (G_UNKNOWN);
- lat = (pstr[0] - '0') * 10 + (pstr[1] - '0') + atof(pstr+2) / 60.0;
- if (lat < 0 || lat > 90) {
-
- printf("Error: Latitude not in range of 0 to 90.\n");
- }
-
-
-
-
-
-
- if (*phemi != 'N' && *phemi != 'S' && *phemi != '\0') {
-
- printf("Error: Latitude hemisphere should be N or S.\n");
- }
- if (*phemi == 'S') lat = ( - lat);
- return (lat);
- }
- double longitude_from_nmea (char *pstr, char *phemi)
- {
- double lon;
- if ( ! isdigit((uint)(pstr[0]))) return (G_UNKNOWN);
- if (pstr[5] != '.') return (G_UNKNOWN);
- lon = (pstr[0] - '0') * 100 + (pstr[1] - '0') * 10 + (pstr[2] - '0') + atof(pstr+3) / 60.0;
- if (lon < 0 || lon > 180) {
-
- printf("Error: Longitude not in range of 0 to 180.\n");
- }
-
- if (*phemi != 'E' && *phemi != 'W' && *phemi != '\0') {
-
- printf("Error: Longitude hemisphere should be E or W.\n");
- }
- if (*phemi == 'W') lon = ( - lon);
- return (lon);
- }
- #define R 6371
- double ll_distance_km (double lat1, double lon1, double lat2, double lon2)
- {
- double a;
- lat1 *= M_PI / 180;
- lon1 *= M_PI / 180;
- lat2 *= M_PI / 180;
- lon2 *= M_PI / 180;
-
- a = pow(sin((lat2-lat1)/2),2) + cos(lat1) * cos(lat2) * pow(sin((lon2-lon1)/2),2);
- return (R * 2 *atan2(sqrt(a), sqrt(1-a)));
- }
- double ll_bearing_deg (double lat1, double lon1, double lat2, double lon2)
- {
- double b;
- lat1 *= M_PI / 180;
- lon1 *= M_PI / 180;
- lat2 *= M_PI / 180;
- lon2 *= M_PI / 180;
- b = atan2 (sin(lon2-lon1) * cos(lat2),
- cos(lat1) * sin(lat2) - sin(lat1) * cos(lat2) * cos(lon2-lon1));
- b *= 180 / M_PI;
- if (b < 0) b += 360;
- return (b);
- }
- double ll_dest_lat (double lat1, double lon1, double dist, double bearing)
- {
- double lat2;
- lat1 *= M_PI / 180;
- lon1 *= M_PI / 180;
- bearing *= M_PI / 180;
- lat2 = asin(sin(lat1) * cos(dist/R) + cos(lat1) * sin(dist/R) * cos(bearing));
- lat2 *= 180 / M_PI;
- return (lat2);
- }
- double ll_dest_lon (double lat1, double lon1, double dist, double bearing)
- {
- double lon2;
- double lat2;
- lat1 *= M_PI / 180;
- lon1 *= M_PI / 180;
- bearing *= M_PI / 180;
- lat2 = asin(sin(lat1) * cos(dist/R) + cos(lat1) * sin(dist/R) * cos(bearing));
- lon2 = lon1 + atan2(sin(bearing) * sin(dist/R) * cos(lat1), cos(dist/R) - sin(lat1) * sin(lat2));
- lon2 *= 180 / M_PI;
- return (lon2);
- }
- #define MH_MIN_PAIR 1
- #define MH_MAX_PAIR 6
- #define MH_UNITS ( 18 * 10 * 24 * 10 * 24 * 10 * 2 )
- static const struct {
- char *position;
- char min_ch;
- char max_ch;
- int value;
- } mh_pair[MH_MAX_PAIR] = {
- { "first", 'A', 'R', 10 * 24 * 10 * 24 * 10 * 2 },
- { "second", '0', '9', 24 * 10 * 24 * 10 * 2 },
- { "third", 'A', 'X', 10 * 24 * 10 * 2 },
- { "fourth", '0', '9', 24 * 10 * 2 },
- { "fifth", 'A', 'X', 10 * 2 },
- { "sixth", '0', '9', 2 } };
- #if 1
- int ll_from_grid_square (char *maidenhead, double *dlat, double *dlon)
- {
- char mh[16];
- int ilat = 0, ilon = 0;
- char *p;
- int n;
- int np = strlen(maidenhead) / 2;
- if (strlen(maidenhead) %2 != 0 || np < MH_MIN_PAIR || np > MH_MAX_PAIR) {
-
- printf("Maidenhead locator \"%s\" must from 1 to %d pairs of characters.\n", maidenhead, MH_MAX_PAIR);
- return (0);
- }
- strlcpy (mh, maidenhead, sizeof(mh));
- for (p = mh; *p != '\0'; p++) {
- if (islower((uint)*p)) *p = toupper((uint)*p);
- }
- for (n = 0; n < np; n++) {
- if (mh[2*n] < mh_pair[n].min_ch || mh[2*n] > mh_pair[n].max_ch ||
- mh[2*n+1] < mh_pair[n].min_ch || mh[2*n+1] > mh_pair[n].max_ch) {
-
- printf("The %s pair of characters in Maidenhead locator \"%s\" must be in range of %c thru %c.\n",
- mh_pair[n].position, maidenhead, mh_pair[n].min_ch, mh_pair[n].max_ch);
- return (0);
- }
- ilon += ( mh[2*n] - mh_pair[n].min_ch ) * mh_pair[n].value;
- ilat += ( mh[2*n+1] - mh_pair[n].min_ch ) * mh_pair[n].value;
- if (n == np-1) {
- ilon += mh_pair[n].value / 2;
- ilat += mh_pair[n].value / 2;
- }
- }
- *dlat = (double)ilat / MH_UNITS * 180. - 90.;
- *dlon = (double)ilon / MH_UNITS * 360. - 180.;
-
-
- return (1);
- }
- #else
- int ll_from_grid_square (char *maidenhead, double *dlat, double *dlon)
- {
- double lat, lon;
- char mh[16];
- if (strlen(maidenhead) != 2 && strlen(maidenhead) != 4 && strlen(maidenhead) != 6 && strlen(maidenhead) != 8) {
-
- printf("Maidenhead locator \"%s\" must 2, 4, 6, or 8 characters.\n", maidenhead);
- return (0);
- }
- strcpy (mh, maidenhead);
- if (islower((uint)mh[0])) mh[0] = toupper((uint)mh[0]);
- if (islower((uint)mh[1])) mh[1] = toupper((uint)mh[1]);
-
- if (mh[0] < 'A' || mh[0] > 'R' || mh[1] < 'A' || mh[1] > 'R') {
-
- printf("The first pair of characters in Maidenhead locator \"%s\" must be in range of A thru R.\n", maidenhead);
- return (0);
- }
-
-
- lon = (mh[0] - 'A') * 20 - 180;
- lat = (mh[1] - 'A') * 10 - 90;
- if (strlen(mh) >= 4) {
- if ( ! isdigit((uint)mh[2]) || ! isdigit((uint)mh[3]) ) {
-
- printf("The second pair of characters in Maidenhead locator \"%s\" must be digits.\n", maidenhead);
- return (0);
- }
-
-
- lon += (mh[2] - '0') * 2;
- lat += (mh[3] - '0');
- if (strlen(mh) >=6) {
- if (islower((uint)mh[4])) mh[4] = toupper((uint)mh[4]);
- if (islower((uint)mh[5])) mh[5] = toupper((uint)mh[5]);
- if (mh[4] < 'A' || mh[4] > 'X' || mh[5] < 'A' || mh[5] > 'X') {
-
- printf("The third pair of characters in Maidenhead locator \"%s\" must be in range of A thru X.\n", maidenhead);
- return (0);
- }
-
-
- lon += (mh[4] - 'A') * 5.0 / 60.0;
- lat += (mh[5] - 'A') * 2.5 / 60.0;
- if (strlen(mh) >= 8) {
- if ( ! isdigit((uint)mh[6]) || ! isdigit((uint)mh[7]) ) {
-
- printf("The fourth pair of characters in Maidenhead locator \"%s\" must be digits.\n", maidenhead);
- return (0);
- }
-
-
- lon += (mh[6] - '0') * 0.50 / 60.0;
- lat += (mh[7] - '0') * 0.25 / 60.0;
- lon += 0.250 / 60.0;
- lat += 0.125 / 60.0;
- }
- else {
- lon += 2.5 / 60.0;
- lat += 1.25 / 60.0;
- }
- }
- else {
- lon += 1.0;
- lat += 0.5;
- }
- }
- else {
- lon += 10;
- lat += 5;
- }
-
-
- *dlat = lat;
- *dlon = lon;
- return (1);
- }
- #endif
- #if LLTEST
- int main (int argc, char *argv[])
- {
- char result[20];
- int errors = 0;
- int ok;
- double dlat, dlon;
- double d, b;
- latitude_to_str (45.25, 0, result);
- if (strcmp(result, "4515.00N") != 0) { errors++; printf ("Error 1.1: Did not expect \"%s\"\n", result); }
- latitude_to_str (-45.25, 0, result);
- if (strcmp(result, "4515.00S") != 0) { errors++; printf ("Error 1.2: Did not expect \"%s\"\n", result); }
- latitude_to_str (45.999830, 0, result);
- if (strcmp(result, "4559.99N") != 0) { errors++; printf ("Error 1.3: Did not expect \"%s\"\n", result); }
- latitude_to_str (45.99999, 0, result);
- if (strcmp(result, "4600.00N") != 0) { errors++; printf ("Error 1.4: Did not expect \"%s\"\n", result); }
- latitude_to_str (45.999830, 1, result);
- if (strcmp(result, "4559.9 N") != 0) { errors++; printf ("Error 1.5: Did not expect \"%s\"\n", result); }
- latitude_to_str (45.999830, 2, result);
- if (strcmp(result, "4559. N") != 0) { errors++; printf ("Error 1.6: Did not expect \"%s\"\n", result); }
- latitude_to_str (45.999830, 3, result);
- if (strcmp(result, "455 . N") != 0) { errors++; printf ("Error 1.7: Did not expect \"%s\"\n", result); }
- latitude_to_str (45.999830, 4, result);
- if (strcmp(result, "45 . N") != 0) { errors++; printf ("Error 1.8: Did not expect \"%s\"\n", result); }
- longitude_to_str (45.25, 0, result);
- if (strcmp(result, "04515.00E") != 0) { errors++; printf ("Error 2.1: Did not expect \"%s\"\n", result); }
- longitude_to_str (-45.25, 0, result);
- if (strcmp(result, "04515.00W") != 0) { errors++; printf ("Error 2.2: Did not expect \"%s\"\n", result); }
- longitude_to_str (45.999830, 0, result);
- if (strcmp(result, "04559.99E") != 0) { errors++; printf ("Error 2.3: Did not expect \"%s\"\n", result); }
- longitude_to_str (45.99999, 0, result);
- if (strcmp(result, "04600.00E") != 0) { errors++; printf ("Error 2.4: Did not expect \"%s\"\n", result); }
- longitude_to_str (45.999830, 1, result);
- if (strcmp(result, "04559.9 E") != 0) { errors++; printf ("Error 2.5: Did not expect \"%s\"\n", result); }
- longitude_to_str (45.999830, 2, result);
- if (strcmp(result, "04559. E") != 0) { errors++; printf ("Error 2.6: Did not expect \"%s\"\n", result); }
- longitude_to_str (45.999830, 3, result);
- if (strcmp(result, "0455 . E") != 0) { errors++; printf ("Error 2.7: Did not expect \"%s\"\n", result); }
- longitude_to_str (45.999830, 4, result);
- if (strcmp(result, "045 . E") != 0) { errors++; printf ("Error 2.8: Did not expect \"%s\"\n", result); }
- memset(result, 0, sizeof(result));
- latitude_to_comp_str (-90.0, result);
- if (strcmp(result, "{{!!") != 0) { errors++; printf ("Error 3.1: Did not expect \"%s\"\n", result); }
- latitude_to_comp_str (49.5, result);
- if (strcmp(result, "5L!!") != 0) { errors++; printf ("Error 3.2: Did not expect \"%s\"\n", result); }
- latitude_to_comp_str (90.0, result);
- if (strcmp(result, "!!!!") != 0) { errors++; printf ("Error 3.3: Did not expect \"%s\"\n", result); }
- longitude_to_comp_str (-180.0, result);
- if (strcmp(result, "!!!!") != 0) { errors++; printf ("Error 3.4: Did not expect \"%s\"\n", result); }
- longitude_to_comp_str (-72.75, result);
- if (strcmp(result, "<*e8") != 0) { errors++; printf ("Error 3.5: Did not expect \"%s\"\n", result); }
- longitude_to_comp_str (180.0, result);
- if (strcmp(result, "{{!!") != 0) { errors++; printf ("Error 3.6: Did not expect \"%s\"\n", result); }
-
- d = ll_distance_km (35., 45., 35., 135.);
- b = ll_bearing_deg (35., 45., 35., 135.);
- if (d < 7862 || d > 7882) { errors++; printf ("Error 5.1: Did not expect distance %.1f\n", d); }
- if (b < 59.7 || b > 60.3) { errors++; printf ("Error 5.2: Did not expect bearing %.1f\n", b); }
-
- d = ll_distance_km (-33.8688, 151.2093, 51.7059, -8.5222);
- b = ll_bearing_deg (-33.8688, 151.2093, 51.7059, -8.5222);
- if (d < 17435 || d > 17455) { errors++; printf ("Error 5.3: Did not expect distance %.1f\n", d); }
- if (b < 327-1 || b > 327+1) { errors++; printf ("Error 5.4: Did not expect bearing %.1f\n", b); }
- int lat1, lon1, d1 = 10, b1;
- double lat2, lon2, d2, b2;
- for (lat1 = -60; lat1 <= 60; lat1 += 30) {
- for (lon1 = -180; lon1 <= 180; lon1 +=30) {
- for (b1 = 0; b1 < 360; b1 += 15) {
- lat2 = ll_dest_lat ((double)lat1, (double)lon1, (double)d1, (double)b1);
- lon2 = ll_dest_lon ((double)lat1, (double)lon1, (double)d1, (double)b1);
- d2 = ll_distance_km ((double)lat1, (double)lon1, lat2, lon2);
- b2 = ll_bearing_deg ((double)lat1, (double)lon1, lat2, lon2);
- if (b2 > 359.9 && b2 < 360.1) b2 = 0;
-
- if (d2 < 0.999 * d1 || d2 > 1.001 * d1) { errors++; printf ("Error 5.8: lat1=%d, lon2=%d, d1=%d, b1=%d, d2=%.2f\n", lat1, lon1, d1, b1, d2); }
- if (b2 < b1 - 0.1 || b2 > b1 + 0.1) { errors++; printf ("Error 5.9: lat1=%d, lon2=%d, d1=%d, b1=%d, b2=%.2f\n", lat1, lon1, d1, b1, b2); }
- }
- }
- }
- ok = ll_from_grid_square ("BL11", &dlat, &dlon);
- if (!ok || dlat < 20.4999999 || dlat > 21.5000001 || dlon < -157.0000001 || dlon > -156.9999999) { errors++; printf ("Error 7.1: Did not expect %.6f %.6f\n", dlat, dlon); }
- ok = ll_from_grid_square ("BL11BH", &dlat, &dlon);
- if (!ok || dlat < 21.31249 || dlat > 21.31251 || dlon < -157.87501 || dlon > -157.87499) { errors++; printf ("Error 7.2: Did not expect %.6f %.6f\n", dlat, dlon); }
- #if 0
-
-
- ok = ll_from_grid_square ("BL11BH16", &dlat, &dlon);
- if (!ok || dlat < 21.? || dlat > 21.? || dlon < -157.? || dlon > -157.?) { errors++; printf ("Error 7.3: Did not expect %.6f %.6f\n", dlat, dlon); }
- ok = ll_from_grid_square ("BL11BH16oo", &dlat, &dlon);
- if (!ok || dlat < 21.? || dlat > 21.? || dlon < -157.? || dlon > -157.?) { errors++; printf ("Error 7.4: Did not expect %.6f %.6f\n", dlat, dlon); }
- ok = ll_from_grid_square ("BL11BH16oo66", &dlat, &dlon);
- if (!ok || dlat < 21.? || dlat > 21.? || dlon < -157.? || dlon > -157.?) { errors++; printf ("Error 7.5: Did not expect %.6f %.6f\n", dlat, dlon); }
- #endif
- if (errors > 0) {
-
- printf ("\nLocation Coordinate Conversion Test - FAILED!\n");
- exit (EXIT_FAILURE);
- }
-
- printf ("\nLocation Coordinate Conversion Test - SUCCESS!\n");
- exit (EXIT_SUCCESS);
- }
- #endif
|