← Back to branch summary

~maddevelopers/mg5amcnlo/2.7.1.3

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/LoopSquaredOrder_IOTest/Loop_sqso_uux_ddx/loop_matrix_QEDpert_default.f

  • Committer: olivier-mattelaer
  • Date: 2017-08-16 21:28:30 UTC
  • mfrom: (272.1.60 2.5.6)
  • Revision ID: olivier-mattelaer-20170816212830-sfl8jfv8pmpm5l2j
pass to 2.6.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/LoopSquaredOrder_IOTest/Loop_sqso_uux_ddx/loop_matrix_QEDpert_default.f
1942
1942
          ENDIF
1943
1943
        ENDIF
1944
1944
 
 
1945
C       If NaN are present in the evaluation, automatically set the
 
1946
C        accuracy to 1.0d99.
 
1947
        DO I=1,3
 
1948
          DO J=1,MAXSTABILITYLENGTH
 
1949
            IF (ISNAN(FULLLIST(I,K,J))) THEN
 
1950
              ACC(K) = 1.0D99
 
1951
            ENDIF
 
1952
          ENDDO
 
1953
        ENDDO
 
1954
 
1945
1955
      ENDDO
1946
1956
 
1947
1957
      END