You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
22 lines
442 B
22 lines
442 B
!
|
|
! SPDX-License-Identifier: GPL-3.0-or-later
|
|
! Copyright (C) 2019-2022, respective authors of MCFM.
|
|
!
|
|
subroutine getptilde(nd,p)
|
|
implicit none
|
|
include 'types.f'
|
|
include 'mxpart.f'
|
|
include 'npart.f'
|
|
include 'ptilde.f'
|
|
integer:: nd,i,j
|
|
real(dp), intent(out) :: p(mxpart,4)
|
|
|
|
do j=1,4
|
|
do i=1,npart+2
|
|
p(i,j)=ptilde(nd,i,j)
|
|
enddo
|
|
enddo
|
|
|
|
return
|
|
end
|
|
|