← Back to branch summary

~maddevelopers/mg5amcnlo/3.0.4_eft_running

« back to all changes in this revision

Viewing changes to madgraph/iolibs/template_files/loop_optimized/loop_matrix_standalone.inc

  • Committer: olivier-mattelaer
  • Date: 2020-08-21 10:29:35 UTC
  • mfrom: (78.422.5 madgraph5)
  • Revision ID: olivier-mattelaer-20200821102935-vwhnm1wdz4avw551
merge with 2.8.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
madgraph/iolibs/template_files/loop_optimized/loop_matrix_standalone.inc
2785
2785
      PARAMETER (NEXTERNAL=%(nexternal)d)
2786
2786
      INTEGER    NSQUAREDSO
2787
2787
      PARAMETER (NSQUAREDSO=%(nSquaredSO)d)
 
2788
      %(get_nsqso_born)s
2788
2789
C  
2789
2790
C ARGUMENTS 
2790
2791
C  
2791
2792
      %(real_dp_format)s P(0:3,NEXTERNAL)
2792
 
      %(real_dp_format)s ANS(0:3,0:NSQUAREDSO)
 
2793
          INTEGER ANS_DIMENSION
 
2794
          PARAMETER(ANS_DIMENSION=MAX(NSQSO_BORN,NSQUAREDSO))
 
2795
      %(real_dp_format)s ANS(0:3,0:ANS_DIMENSION)
2793
2796
          INTEGER HEL, USERHEL
2794
2797
          common/%(proc_prefix)sUSERCHOICE/USERHEL
2795
2798
C ----------
2812
2815
C ARGUMENTS 
2813
2816
C  
2814
2817
      %(real_dp_format)s P(0:3,NEXTERNAL)
2815
 
      %(real_dp_format)s ANS(0:3,0:NSQUAREDSO)
 
2818
      %(get_nsqso_born)s
 
2819
      INTEGER ANS_DIMENSION
 
2820
      PARAMETER(ANS_DIMENSION=MAX(NSQSO_BORN,NSQUAREDSO))
 
2821
      %(real_dp_format)s ANS(0:3,0:ANS_DIMENSION)
2816
2822
          INTEGER HEL, RET_CODE
2817
2823
          %(real_dp_format)s PREC_ASKED,PREC_FOUND(0:NSQUAREDSO)
2818
2824
C
2923
2929
C ARGUMENTS 
2924
2930
C  
2925
2931
      %(real_dp_format)s P(0:3,NEXTERNAL)
2926
 
      %(real_dp_format)s ANS(0:3,0:NSQUAREDSO)
 
2932
      %(get_nsqso_born)s
 
2933
      INTEGER ANS_DIMENSION
 
2934
      PARAMETER(ANS_DIMENSION=MAX(NSQSO_BORN,NSQUAREDSO))
 
2935
      %(real_dp_format)s ANS(0:3,0:ANS_DIMENSION)
2927
2936
          %(real_dp_format)s PREC_ASKED,PREC_FOUND(0:NSQUAREDSO)
2928
2937
          INTEGER RET_CODE        
2929
2938
C