~maddevelopers/mg5amcnlo/simple_unlops

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/long_ML_SMQCD_optimized/gg_wmtbx/polynomial.f

  • Committer: olivier-mattelaer
  • Date: 2021-05-31 14:46:34 UTC
  • mfrom: (965.1.13 3.1.1)
  • Revision ID: olivier-mattelaer-20210531144634-0qfepzcamyo7cy8u
pass to 3.1.1

Show diffs side-by-side

added added

removed removed

Lines of Context:
863
863
            OUT(J,4,I)=OUT(J,4,I)+A(K,0,I)*B(J,4,K)+A(K,4,I)*B(J,0,K)
864
864
            OUT(J,5,I)=OUT(J,5,I)+A(K,1,I)*B(J,1,K)
865
865
            OUT(J,6,I)=OUT(J,6,I)+A(K,1,I)*B(J,2,K)+A(K,2,I)*B(J,1,K)
 
866
            OUT(J,7,I)=OUT(J,7,I)+A(K,2,I)*B(J,2,K)
866
867
            OUT(J,8,I)=OUT(J,8,I)+A(K,1,I)*B(J,3,K)+A(K,3,I)*B(J,1,K)
 
868
            OUT(J,9,I)=OUT(J,9,I)+A(K,2,I)*B(J,3,K)+A(K,3,I)*B(J,2,K)
 
869
            OUT(J,10,I)=OUT(J,10,I)+A(K,3,I)*B(J,3,K)
867
870
            OUT(J,11,I)=OUT(J,11,I)+A(K,1,I)*B(J,4,K)+A(K,4,I)*B(J,1,K)
868
 
            OUT(J,7,I)=OUT(J,7,I)+A(K,2,I)*B(J,2,K)
869
 
            OUT(J,9,I)=OUT(J,9,I)+A(K,2,I)*B(J,3,K)+A(K,3,I)*B(J,2,K)
870
871
            OUT(J,12,I)=OUT(J,12,I)+A(K,2,I)*B(J,4,K)+A(K,4,I)*B(J,2,K)
871
 
            OUT(J,10,I)=OUT(J,10,I)+A(K,3,I)*B(J,3,K)
872
872
            OUT(J,13,I)=OUT(J,13,I)+A(K,3,I)*B(J,4,K)+A(K,4,I)*B(J,3,K)
873
873
            OUT(J,14,I)=OUT(J,14,I)+A(K,4,I)*B(J,4,K)
874
874
          ENDDO
898
898
            OUT(J,4,I)=OUT(J,4,I)+A(K,0,I)*B(J,4,K)+A(K,4,I)*B(J,0,K)
899
899
            OUT(J,5,I)=OUT(J,5,I)+A(K,1,I)*B(J,1,K)
900
900
            OUT(J,6,I)=OUT(J,6,I)+A(K,1,I)*B(J,2,K)+A(K,2,I)*B(J,1,K)
 
901
            OUT(J,7,I)=OUT(J,7,I)+A(K,2,I)*B(J,2,K)
901
902
            OUT(J,8,I)=OUT(J,8,I)+A(K,1,I)*B(J,3,K)+A(K,3,I)*B(J,1,K)
 
903
            OUT(J,9,I)=OUT(J,9,I)+A(K,2,I)*B(J,3,K)+A(K,3,I)*B(J,2,K)
 
904
            OUT(J,10,I)=OUT(J,10,I)+A(K,3,I)*B(J,3,K)
902
905
            OUT(J,11,I)=OUT(J,11,I)+A(K,1,I)*B(J,4,K)+A(K,4,I)*B(J,1,K)
903
 
            OUT(J,7,I)=OUT(J,7,I)+A(K,2,I)*B(J,2,K)
904
 
            OUT(J,9,I)=OUT(J,9,I)+A(K,2,I)*B(J,3,K)+A(K,3,I)*B(J,2,K)
905
906
            OUT(J,12,I)=OUT(J,12,I)+A(K,2,I)*B(J,4,K)+A(K,4,I)*B(J,2,K)
906
 
            OUT(J,10,I)=OUT(J,10,I)+A(K,3,I)*B(J,3,K)
907
907
            OUT(J,13,I)=OUT(J,13,I)+A(K,3,I)*B(J,4,K)+A(K,4,I)*B(J,3,K)
908
908
            OUT(J,14,I)=OUT(J,14,I)+A(K,4,I)*B(J,4,K)
909
909
          ENDDO