Removing warnings with gcc4.0. (fca).
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 15 Jun 2005 01:40:32 +0000 (01:40 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 15 Jun 2005 01:40:32 +0000 (01:40 +0000)
HERWIG/src/hwufne.f

index 64ee77a..90ede55 100644 (file)
@@ -1207,7 +1207,7 @@ C Check anti-neutrino polarisations for DIS
 
 C---PDF STRUCTURE FUNCTIONS
 
-        WRITE (6,'(X)')
+        WRITE (6,'(1X)')
 
         DO 450 I=1,2
 
@@ -1325,7 +1325,7 @@ C---FIX TO CALL SCHULER-SJOSTRAND CODE
 
  460    CONTINUE
 
-        WRITE (6,'(X)')
+        WRITE (6,'(1X)')
 
       ENDIF