From 40c4bcff60bacec17a4b7559d967d909df4a6416 Mon Sep 17 00:00:00 2001
From: scott snyder <snyder@bnl.gov>
Date: Tue, 30 Jan 2018 15:59:31 +0100
Subject: [PATCH] MadGraph_i: Fix fortran warnings.
Fortran warnings: spurious commas in write statements.
Former-commit-id: 54b7040b3f9a83a67f1a4beee0600b125be06e24
---
Generators/MadGraph_i/src/initmadgraph.F | 2 +-
Generators/MadGraph_i/src/usemadgraph.F | 4 ++--
2 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/Generators/MadGraph_i/src/initmadgraph.F b/Generators/MadGraph_i/src/initmadgraph.F
index 321ef409593..c05e5e1039c 100644
--- a/Generators/MadGraph_i/src/initmadgraph.F
+++ b/Generators/MadGraph_i/src/initmadgraph.F
@@ -1171,7 +1171,7 @@ c if (found) write (*,*) name,var
write (*,*) " setting it to default value ",def_value
var=def_value
else
- write(*,*),'Found parameter ',name,var
+ write(*,*) 'Found parameter ',name,var
endif
return
diff --git a/Generators/MadGraph_i/src/usemadgraph.F b/Generators/MadGraph_i/src/usemadgraph.F
index 5252cbcda26..e146561607e 100644
--- a/Generators/MadGraph_i/src/usemadgraph.F
+++ b/Generators/MadGraph_i/src/usemadgraph.F
@@ -657,7 +657,7 @@ c PRINT *,'Y,VINT:',SQRT(Y(NLJETS+1)),SQRT(VINT(390))
$ (mektsc.eq.2.and.MAX(VINT(360),VINT(358)).GT.SQRT(YCUT))))
$ THEN
if(idbg.eq.1)
- $ WRITE(LNHOUT,*),
+ $ WRITE(LNHOUT,*)
$ 'Failed due to ',max(VINT(357),VINT(358)),' > ',SQRT(YCUT)
GOTO 999
ENDIF
@@ -670,7 +670,7 @@ c Highest multiplicity case
$ THEN
c $ VINT(390).GT.PTCLUS(1)**2)THEN
if(idbg.eq.1)
- $ WRITE(LNHOUT,*),
+ $ WRITE(LNHOUT,*)
$ 'Failed due to ',max(VINT(357),VINT(358)),' > ',PTCLUS(1)
GOTO 999
ENDIF
--
GitLab