blob: be1e0d52b5918f287be47e27859609eff4037582 (
plain)
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
|