Made the constants in double/quad fortran a bit more sane.

vermaseren · Jun 3, 2014 · e80f244 · e80f244
1 parent 9e229fa
commit e80f244
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/sources/sch.c b/sources/sch.c
@@ -455,7 +455,8 @@ VOID RatToLine(UWORD *a, WORD na)
 		  }
 		  else if ( ( AC.OutputMode == FORTRANMODE || AC.OutputMode == CMODE )
 		  && AO.DoubleFlag ) {
-			if ( AO.DoubleFlag == 2 ) { AddToLine((UBYTE *)".Q0"); }
+			if ( anumer == 1 && adenom == 1 && a[0] == 1 ) {}
+			else if ( AO.DoubleFlag == 2 ) { AddToLine((UBYTE *)".Q0"); }
 			else if ( AO.DoubleFlag == 1 ) { AddToLine((UBYTE *)".D0"); }
 		  }
 		}