sci-physics/cuttools/files/mpnumdummy.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

module cts_numdummies
  implicit none
  contains

  subroutine dpnumdummy(q,amp)
    ! dummy numerator in double precision. Always returns zero.
    implicit none
    include 'cts_dpc.h'
      , intent(in), dimension(0:3) :: q
    include 'cts_dpc.h'
      , intent(out) :: amp
    amp = 0
  end subroutine dpnumdummy

  subroutine mpnumdummy(q,amp)
    ! dummy numerator in quad precision. Always returns zero.
    include 'cts_mprec.h'
    implicit none
    include 'cts_mpc.h'
      , intent(in), dimension(0:3) :: q
    include 'cts_mpc.h'
      , intent(out) :: amp
    amp = 0
  end subroutine mpnumdummy
end module cts_numdummies