~maddevelopers/mg5amcnlo/2.6.3_rwgt

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/LoopSquaredOrder_IOTest/Loop_sqso_uux_ddx/loop_matrix_QCDQEDpert_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:
1972
1972
          ENDIF
1973
1973
        ENDIF
1974
1974
 
 
1975
C       If NaN are present in the evaluation, automatically set the
 
1976
C        accuracy to 1.0d99.
 
1977
        DO I=1,3
 
1978
          DO J=1,MAXSTABILITYLENGTH
 
1979
            IF (ISNAN(FULLLIST(I,K,J))) THEN
 
1980
              ACC(K) = 1.0D99
 
1981
            ENDIF
 
1982
          ENDDO
 
1983
        ENDDO
 
1984
 
1975
1985
      ENDDO
1976
1986
 
1977
1987
      END