~madteam/mg5amcnlo/series2.0

« back to all changes in this revision

Viewing changes to tests/input_files/IOTestsComparison/IOExportFKSTest/test_ppw_fksall/%SubProcesses%P0_udx_wp%sborn_sf_dum.f

  • Committer: olivier Mattelaer
  • Date: 2016-05-12 11:00:18 UTC
  • mfrom: (262.1.150 2.3.4)
  • Revision ID: olivier.mattelaer@uclouvain.be-20160512110018-sevb79f0wm4g8mpp
pass to 2.4.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
 
1
      SUBROUTINE SBORN_SF(P_BORN,M,N,WGT)
 
2
      IMPLICIT NONE
 
3
      INCLUDE 'nexternal.inc'
 
4
      DOUBLE PRECISION P_BORN(0:3,NEXTERNAL-1),WGT
 
5
      DOUBLE COMPLEX WGT1(2)
 
6
      INTEGER M,N
 
7
 
 
8
C     This is a dummy function because
 
9
C     this subdir has no soft singularities
 
10
      WGT = 0D0
 
11
 
 
12
      RETURN
 
13
      END