fix occurrences of 'the the' -> 'the'

doc/rst/source/explain_-I.rst_

@@ -9,7 +9,7 @@
         - **s** - Indicate arc seconds
 
         If one of **e** (meter), **f** (foot), **k** (km), **M** (mile), **n** (nautical
-        mile) or **u** (US survey foot), the the increment will be
+        mile) or **u** (US survey foot), the increment will be
         converted to the equivalent degrees longitude at the middle latitude
         of the region  (the conversion depends on :term:`PROJ_ELLIPSOID`). If
         *y_inc* is not given or given but set to 0 it will be reset equal to *x_inc*;

src/geodesy/psvelo.c

@@ -698,7 +698,7 @@ static int usage (struct GMTAPI_CTRL *API, int level) {
 		"Append <confidence> value (0-1) for error ellipse or give 0 to not draw the ellipse.");
 	GMT_Usage (API, 3, "n: Anisotropy: in X,Y,Vx,Vy.");
 	GMT_Usage (API, 3, "w: Rotational wedges: in X,Y,Spin,Spinsig. "
-		"Append <wedgemag> value to scale the the Spin values [1].");
+		"Append <wedgemag> value to scale the Spin values [1].");
 	GMT_Usage (API, 3, "x: Strain crosses: in X,Y,Eps1,Eps2,Theta.n");
 	GMT_Message (API, GMT_TIME_NONE, "\n  OPTIONAL ARGUMENTS:\n");
 	GMT_Option (API, "B-");

src/gmt_api.c

@@ -8106,7 +8106,7 @@ void gmtlib_garbage_collection (struct GMTAPI_CTRL *API, int level) {
 	i = n_free = 0;
 	if (level != GMT_NOTSET) u_level = level;
 	while (i < API->n_objects) {	/* While there are more objects to consider */
-		S_obj = API->object[i];	/* Shorthand for the the current object */
+		S_obj = API->object[i];	/* Shorthand for the current object */
 		if (!S_obj) {		/* Skip empty object [NOTE: Should not happen?] */
 			GMT_Report (API, GMT_MSG_WARNING, "gmtlib_garbage_collection found empty object number %d [Bug?]\n", i++);
 			continue;
@@ -8157,7 +8157,7 @@ void gmtlib_garbage_collection (struct GMTAPI_CTRL *API, int level) {
 	/* Deallocate all remaining objects associated with NULL pointers (e.g., rec-by-rec i/o or those set to NULL above) set during this module (or session) */
 	i = 0;
 	while (i < API->n_objects) {	/* While there are more objects to consider */
-		S_obj = API->object[i];	/* Shorthand for the the current object */
+		S_obj = API->object[i];	/* Shorthand for the current object */
 		if (S_obj && (level == GMT_NOTSET || (S_obj->alloc_level == u_level)))	/* Yes, this object was added at this level, get rid of it; do not increment i */
 			gmtlib_unregister_io (API, (int)S_obj->ID, (unsigned int)GMT_NOTSET);	/* This shuffles the object array and reduces n_objects */
 		else

src/gmt_init.c

@@ -14541,7 +14541,7 @@ int gmt_set_current_panel (struct GMTAPI_CTRL *API, int fig, int row, int col, d
 	 * first should be 1 the first time we visit this panel so that the automatic -B
 	 * and panel tag stuff only happens once. */
 	char file[PATH_MAX] = {""}, *L = NULL;
-	static char *dummy = "@";	/* Signify "use the the auto label" */
+	static char *dummy = "@";	/* Signify "use the auto label" */
 	FILE *fp = NULL;
 	L = (label && label[0]) ? label : dummy;
 	snprintf (file, PATH_MAX, "%s/gmt.panel.%d", API->gwf_dir, fig);

src/gmt_support.c

@@ -14647,7 +14647,7 @@ char *gmtlib_last_valid_file_modifier (struct GMTAPI_CTRL *API, char* filename,
 	if (k == 0 || filename[k+1] == '\0') go = false;	/* No modifiers found at all, or we found a single trailing + in the name (e.g., my.test+) */
 	while (go) {	/* Here, filename[k] == '+' and k > 0 */
 		if (isalpha (filename[k+1]) && strchr (mods, filename[k+1])) {	/* This is a valid file modifier */
-			modifiers = &filename[k];	/* Update the pointer the the current start of valid modifiers */
+			modifiers = &filename[k];	/* Update the pointer the current start of valid modifiers */
 			k--;	/* Step one back from the '+' character; k could become 0 if filename was just valid modifiers (...) */
 			while (filename[k] != '+' && k) k--;	/* Wind back to last found plus sign as long as we are not in first position */
 			if (k == 0) go = false;	/* Ran out of characters */

src/grdimage.c

@@ -1616,7 +1616,7 @@ EXTERN_MSC int GMT_grdimage(void *V_API, int mode, void *args) {
 			GMT->common.R.active[RSET] = false;	/* Temporarily turn off -R if given */
 			I_wesn = NULL;
 		}
-		/* Read in the the entire image that is to be mapped */
+		/* Read in the entire image that is to be mapped */
 		GMT_Report (API, GMT_MSG_INFORMATION, "Allocate memory and read image file %s\n", Ctrl->In.file);
 		if ((I = GMT_Read_Data (API, GMT_IS_IMAGE, GMT_IS_FILE, GMT_IS_SURFACE, GMT_CONTAINER_AND_DATA | GMT_IMAGE_NO_INDEX | pad_mode, I_wesn, Ctrl->In.file, NULL)) == NULL) {
 			Return (API->error);

src/mgd77/mgd77.c

@@ -1223,7 +1223,7 @@ static int mgd77_read_data_record_m77 (struct GMT_CTRL *GMT, struct MGD77_CONTRO
 			MGD77Record->bit_pattern |= MGD77_this_bit[i];	/* Turn on this bit */
 			if ((nconv = sscanf (currentField, mgd77defs[i].readMGD77, &value)) != 1) {
 				if (i == 12)        /* IFREMER mgd77 files not unusually have empty fields 58-59 (BATHYMETRIC CORRECTION CODE) */
-					value = 99;     /* In those cases, use the the 'Unspecified' code */
+					value = 99;     /* In those cases, use the 'Unspecified' code */
 				else
 					return (MGD77_ERROR_CONV_DATA_REC);
 			}

src/pshistogram.c

@@ -1061,7 +1061,7 @@ EXTERN_MSC int GMT_pshistogram (void *V_API, int mode, void *args) {
 	if (F.wesn[XHI] == F.wesn[XLO]) {	/* Set automatic x range [and tickmarks] when -R -T missing */
 		/* Adjust the min/max found for finite bin width */
 		double b_min = x_min, b_max = x_max;
-		if (Ctrl->F.active) {	/* First and last bin will stick out half a bin width from the the data limits */
+		if (Ctrl->F.active) {	/* First and last bin will stick out half a bin width from the data limits */
 			b_min -= 0.5 * F.T->inc;
 			b_max += 0.5 * F.T->inc;
 		}

src/pslegend.c

@@ -382,7 +382,7 @@ GMT_LOCAL void pslegend_drawbase (struct GMT_CTRL *GMT, struct PSL_CTRL *PSL, do
 	PSL_plotsegment (PSL, x0, y0, x1, y0);
 }
 
-/* Used to fill the cells in the the current y-line. */
+/* Used to fill the cells in the current y-line. */
 GMT_LOCAL void pslegend_fillcell (struct GMT_CTRL *GMT, double x0, double y0, double y1, double xoff[], double *d_gap, unsigned int n_cols, char *fill[]) {
 	unsigned int col;
 	double dim[2];

src/x2sys/README.x2sys

@@ -67,7 +67,7 @@ install on a wide range of computers, it can be used with any type of data
 file structure (within reason), may produce the same output as the old XOVER
 program, and is freely distributable yet covered by copyright.  The core
 algorithm for calculating crossovers have been replaced with the principles
-discussed the the book on C algorithms by Sedgewick [1990].  The result is
+discussed in the book on C algorithms by Sedgewick [1990].  The result is
 that X2SYS calculates crossovers faster than its predecessor, although this
 may be to some extend dependent on the track layout.