fixed formatting in orders.inc and added common block alignment to de…

…fault compilation for NLO, fixed order now runs out of the box
zeniheisser · Jan 15, 2024 · f121165 · f121165
1 parent da23017
commit f121165
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/Template/NLO/Source/make_opts.inc b/Template/NLO/Source/make_opts.inc
@@ -9,7 +9,7 @@ DEFAULT_CPP_COMPILER = g++
 # Rest of the makefile
 ifeq ($(origin FFLAGS),undefined)
   #FFLAGS= -O -w
-  FFLAGS = -O -fno-automatic
+  FFLAGS = -O -fno-automatic -fno-align-commons
   #FFLAGS+= -g -fbounds-check -ffpe-trap=invalid,zero,overflow,underflow,denormal -Wall
 endif
 

diff --git a/madgraph/iolibs/export_fks.py b/madgraph/iolibs/export_fks.py
@@ -1360,11 +1360,11 @@ def write_orders_file(self, writer, matrix_element):
         text += 'double precision amp_split(amp_split_size)\n'
         text += 'double complex amp_split_cnt(amp_split_size,2,nsplitorders)\n'
         text += 'common /to_amp_split/amp_split, amp_split_cnt\n'
-        text += 'C the following is to store amps for vectorisation'
-        text += 'double precision amp_split_store_r(amp_split_size)'
-        text += 'double precision amp_split_store_b(amp_split_size)'
-        text += 'double complex amp_split_store_cnt(amp_split_size,2,nsplitorders)'
-        text += 'COMMON /TO_AMP_SPLIT_STORE/AMP_SPLIT_store_r, amp_split_store_b, amp_split_store_cnt'
+        text += '! the following is to store amps for vectorisation\n'
+        text += 'double precision amp_split_store_r(amp_split_size)\n'
+        text += 'double precision amp_split_store_b(amp_split_size)\n'
+        text += 'double complex amp_split_store_cnt(amp_split_size,2,nsplitorders)\n'
+        text += 'COMMON /TO_AMP_SPLIT_STORE/AMP_SPLIT_store_r, amp_split_store_b, amp_split_store_cnt\n'
         writer.line_length=132
         writer.writelines(text)