./asvax/mi/asexpr.c
	DQ,		SMALL,	"double quote, \"",

./asvax/mi/bignum1.c
	double	atof();
 *	(for example .float, .double), or from the operand size

./asvax/mi/bignum2.c
/***/	panic("Floating-to-double conversion not implemented for non-VAX yet");

./bits/mi/bits.c
double curDispl[2] = {0, 0};

./bits/mi/fontio.c
    else sprintf(str, "%g ", (double)x / 65536.0);
  { long i, dirP, magnification; double scaling;
    scaling = DesignSize * (double)magnification / 5781.6;

./bits/mi/gffonts.c
    PutSigned4 ((long) (DesignSize * (double) (1 << 20) + 0.5), f);

./build/mi/gcos.c
static double day { 64*1000*60*60*24 };  /* length of day in clock ticks */

./build/mi/ident.c
2.16		Removed references to double floats and macro HAVELONGS;

./c2vax/mi/c21.c
				 * double, forget it!

./cc68/ccom/mi/allo.c
	/* it must be aligned for storing doubles... */

./cc68/ccom/mi/local.c
fincode( d, sz ) double d; {
	double atof();

./cc68/ccom/mi/scan.c
	"double",	AR_TY,	DOUBLE,
	 * doubled before each successive character

./cc68/ccom/mi/stab.c
    maketype("double", builtintype(DOUBLE), t_int, 8L, 0L);

./cc68/ccom/mi/table.c
	   * You really need to compare all 64 bits for doubles.

./cc68/ccom/mi/trees.c
		if any float or doubles, make double
# define MDBI 02   /* integer or double */

./cc68/ccom/mi/xdefs.c
double dcon;   /* the last double read by the lexical analyzer */

./checkers/mi/externals.c
        * for 'jump' or capture moves, in which double the distance

./demo/structime.c
    double createDev, drawDev, sqrt();

./demo/vectime.c
	     double temp, sqrt();
    double createDev, drawDev;

./diff/mi/diffreg.c
/* check does double duty:

./dkusage/mi/dkusage.c
	    printf( "%6.0f%%", (double) alloc / (double) fsys->length * 100.0 );

./draw/mi/backend.c
extern double sin();
extern double cos();
	double sine, cosine;
	double factorx, factory;
	double fact1, fact2;	/* Point Transform factors. */
	double theta;		/* Angle of rotation. */
    double sine, cosine;
	double factorx,factory;	/* Scale factor */

./draw/mi/find.c
    double fract;
	fract = (double)(x-xval)/(double)(xval2-xval);
		    double d1,d2;
		    d1=(double)(svert[2].x-svert[0].x);
		    d2=(double)(svert[2].y-svert[0].y);
		    d1=(double)(svert[3].x-svert[1].x);
		    d2=(double)(svert[3].y-svert[1].y);

./draw/mi/nouns.c
    extern double sin();
    extern double cos();
    extern double atan2();
    extern double sqrt(); 
    double theta;
	theta = atan2( (double) (x2 - x1), (double) (y2 - y1) );
    double radius;
	    		sqrt( (double) ((x2-x1)*(x2-x1) + (y2-y1)*(y2-y1)) );
    double theta;

./draw/mi/verbs.c
extern double atan2();
extern double sqrt();
    double theta;
	theta = atan2( (double) (RotatePrompts[2].x - RotatePrompts[0].x),
			(double) (RotatePrompts[2].y - RotatePrompts[0].y) ) -
		atan2( (double) (RotatePrompts[1].x - RotatePrompts[0].x),
			(double) (RotatePrompts[1].y - RotatePrompts[0].y) ) +
    double factor;
	    factor = sqrt( (double) ((dx2 * dx2) + (dy2 * dy2)) ) /
		     sqrt( (double) ((dx1 * dx1) + (dy1 * dy1)) );
    double factorx,factory;
	    factorx = dx1<8 && dx1 > -8 ?1.:((double) dx2)/((double) dx1);
	    factory = dy1<8 && dy1 > -8 ?1.:((double) dy2)/((double) dy1);

./fscheck/mi/scantime.c
                Subtract_double( time_vec, 3600 ); /* Subtract one hour */

./ldvax/mi/ld.c
				if (t >= sizeof (double))
					rnd = sizeof (double);

./mail/mi/collect.c
			 * On double escape, just send the single one.

./emacs/mi/display.c
    double  fidcost;

./emacs/misc/Support/loadst.c
double	etime;

./olddraw/create.c
extern double sin();
extern double cos();
extern double atan2();
extern double sqrt();
    double theta;
	    theta = atan2( (double) (x2 - x1), (double) (y2 - y1) );
	    		sqrt( (double) ((x2-x1)*(x2-x1) + (y2-y1)*(y2-y1)) );

./olddraw/misc.c
extern double sin();
extern double cos();
    /* fix the double shift bug */
	double sine, cosine;
	double factor, dummy;
	double fact1, fact2;	/* Point Transform factors. */
	double theta;		/* Angle of rotation. */
    double sine, cosine;
	double factor;		/* Scale factor */
    TransformObject( p, factor, (double) 0, x0, y0, 0, 0,

./olddraw/rotate.c
extern double atan2();
    double theta;
	theta = atan2( (double) (prompts[2].x - prompts[0].x),
			(double) (prompts[2].y - prompts[0].y) ) -
		atan2( (double) (prompts[1].x - prompts[0].x),
			(double) (prompts[1].y - prompts[0].y) ) +

./olddraw/scale.c
extern double sqrt();
    double factor;
	    factor = (double) 1.0;
	    factor = sqrt( (double) ((dx2 * dx2) + (dy2 * dy2)) ) /
		sqrt( (double) ((dx1 * dx1) + (dy1 * dy1)) );

./pccmip/mi/allo.c
	/* it must be aligned for storing doubles... */

./pccmip/mi/scan.c
	"double",	AR_TY,	DOUBLE,
	 * doubled before each successive character

./pccmip/mi/trees.c
		if any float or doubles, make double
# define MDBI 02   /* integer or double */

./pccmip/mi/xdefs.c
double dcon;   /* the last double read by the lexical analyzer */

./pccvax/mi/local.c
fincode( d, sz ) double d; {
	printf("	%s	0%c%.20e\n", sz == SZDOUBLE ? ".double" : ".float",
	double atof();

./pccvax/mi/local2.c
		if( R2TEST(r) ){ /* double indexing */

./pccvax/mi/order.c
	p->in.su = szty( p->in.type );   /* 2 for float or double, else 1 */;

./pccvax/mi/stab.c
    maketype("double", builtintype(DOUBLE), t_int, 8L, 0L);

./rcs/mi/ci.c
                /*SDELIM will be changed to double SDELIM by putdtext*/

./rcs/mi/rcsedit.c
 * fcopy, replacing all double SDELIM with a single SDELIM.
 * If delimstuffed==true, double SDELIM is replaced with single SDELIM.

./rcs/mi/rcsgen.c
                                        if (c==SDELIM) putc(c,frewrite); /*double up*/
                            if(old1==SDELIM) putc(old1,frewrite); /* double up*/

./rcs/mi/rcssyn.c
                if (c==SDELIM) putc(SDELIM,fout);   /*double up SDELIM*/

./show/mi/bcpl.c
    register double power;
    power = pow((double) 2.0E0, (double) expon);

./show/mi/show.c
double fabs();
    double pensize;	/* in points - currently ignored */

./sil/mi/siledit.c
     double rate;
     rate = (objs*1000.0)/(double)(end-start);

./swatch/mi/clock.c
extern double sin(), cos() ;
    double x, y ;
    double x, y ;
    double x, y ;
    double x, y, h ;
    h += ((double) mi) / 60 ;

./timeipc/mi/measure.c
    double *elapsedSeconds, *idleSeconds;
	*elapsedSeconds = (double) elapsedClicks / (double) CLICKS_PER_SEC;
		       (double) idleCounts / (double) countsPerSec;

./timeipc/mi/receiver.c
    double		overheadSeconds, idleSeconds;

./timeipc/mi/sender.c
    double		elapsedSeconds, overheadSeconds, idleSeconds;
    double		totalElapsedSeconds, totalElapsedPerMsg;
    double		totalSenderOverheadPerMsg, totalSenderIdlePerMsg;
    double		totalReceiverOverheadPerMsg, totalReceiverIdlePerMsg;
    double		totalSegmentDataRate;
			      ( ( (double) MsgsPerTrial * (double) SegmentSize

./yale/mi/lex.c
    static doubleDotFlag = FALSE;
    if (doubleDotFlag)
	doubleDotFlag = FALSE;
			doubleDotFlag = TRUE;

