← Back to branch summary

~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/short_ML_SMQCD_optimized/gg_ttx/improve_ps.f

fixing a couple of tests

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/input_files/IOTestsComparison/short_ML_SMQCD_optimized/gg_ttx/improve_ps.f
185
185
        MP_IS_CLOSE = .FALSE.
186
186
        IF (WARNED.LT.20) THEN
187
187
          WRITE(*,*) 'WARNING:: The improved PS point is too far from
188
 
     $      the original one',(REF/REF2)
 
188
     $      the original one',DBLE(REF/REF2)
189
189
          WARNED=WARNED+1
190
190
        ENDIF
191
191
      ENDIF
258
258
        IF ((BUFF/REF).GT.THRES_FOURMOM) THEN
259
259
          IF (WARNED.LT.20) THEN
260
260
            WRITE(*,*) 'ERROR:: Four-momentum conservation is not
261
 
     $        accurate enough, ',(BUFF/REF)
 
261
     $        accurate enough, ',DBLE(BUFF/REF)
262
262
            CALL MP_WRITE_MOM(P)
263
263
            WARNED=WARNED+1
264
264
          ENDIF
272
272
     $   -MASSES(I)**2))/REF).GT.THRES_ONSHELL) THEN
273
273
          IF (WARNED.LT.20) THEN
274
274
            WRITE(*,*) 'ERROR:: Onshellness of the momentum of
275
 
     $        particle ',I,' of mass ',MASSES(I),' is not accurate
276
 
     $        enough, ', (SQRT(ABS(P(0,I)**2-P(1,I)**2-P(2,I)**2
277
 
     $       -P(3,I)**2-MASSES(I)**2))/REF)
 
275
     $        particle ',I,' of mass ',DBLE(MASSES(I)),' is not
 
276
     $        accurate enough, ', DBLE(SQRT(ABS(P(0,I)**2-P(1,I)**2
 
277
     $       -P(2,I)**2-P(3,I)**2-MASSES(I)**2))/REF)
278
278
            CALL MP_WRITE_MOM(P)
279
279
            WARNED=WARNED+1
280
280
          ENDIF