From e80f244dc8f5e3fe925cc040d2b749152628f1a9 Mon Sep 17 00:00:00 2001
From: vermaseren <t68@nikhef.nl>
Date: Tue, 3 Jun 2014 12:38:13 +0200
Subject: [PATCH] Made the constants in double/quad fortran a bit more sane.

---
 sources/sch.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/sources/sch.c b/sources/sch.c
index 32959245..21e24eab 100644
--- 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"); }
 		  }
 		}