Page MenuHomeHEPForge
Files F7879877

No OneTemporary
Actions

View Options

Index: trunk/src/lhapdf/LHAPDFWrap_dummy.f90
===================================================================
--- trunk/src/lhapdf/LHAPDFWrap_dummy.f90 (revision 5902)
+++ trunk/src/lhapdf/LHAPDFWrap_dummy.f90 (revision 5903)
@@ -1,77 +1,77 @@
function lhapdf_init_pdf (setname, imem) bind (C) result (pdf)
use iso_c_binding
- character(len=*, kind=c_char), intent(in) :: setname
+ character(len=1, kind=c_char), dimension(*), intent(in) :: setname
integer(c_int), intent(in), value :: imem
type(c_ptr) :: pdf
end function lhapdf_init_pdf
subroutine lhapdf_pdf_delete (pdf) bind (C)
use iso_c_binding
type(c_ptr), value :: pdf
end subroutine lhapdf_pdf_delete
-subroutine lhapdf_get_xmin (pdf, xmin) bind (C)
+subroutine lhapdf_pdf_getxmin (pdf, xmin) bind (C)
use iso_c_binding
type(c_ptr), intent(in), value :: pdf
real(c_double), intent(out) :: xmin
-end subroutine lhapdf_get_xmin
+end subroutine lhapdf_pdf_getxmin
-subroutine lhapdf_get_xmax (pdf, xmax) bind (C)
+subroutine lhapdf_pdf_getxmax (pdf, xmax) bind (C)
use iso_c_binding
type(c_ptr), intent(in), value :: pdf
real(c_double), intent(out) :: xmax
-end subroutine lhapdf_get_xmax
+end subroutine lhapdf_pdf_getxmax
-subroutine lhapdf_get_q2min (pdf, q2min) bind (C)
+subroutine lhapdf_pdf_getq2min (pdf, q2min) bind (C)
use iso_c_binding
type(c_ptr), intent(in), value :: pdf
real(c_double), intent(out) :: q2min
-end subroutine lhapdf_get_q2min
+end subroutine lhapdf_pdf_getq2min
-subroutine lhapdf_get_q2max (pdf, q2max) bind (C)
+subroutine lhapdf_pdf_getq2max (pdf, q2max) bind (C)
use iso_c_binding
type(c_ptr), intent(in), value :: pdf
real(c_double), intent(out) :: q2max
-end subroutine lhapdf_get_q2max
+end subroutine lhapdf_pdf_getq2max
function lhapdf_has_photon (pdf) bind (C) result (flag)
use iso_c_binding
type(c_ptr), intent(in), value :: pdf
logical(c_bool) :: flag
end function lhapdf_has_photon
subroutine lhapdf_evolvepdfm (pdf, x, q, ff) bind (C)
use iso_c_binding
type(c_ptr), intent(in), value :: pdf
real(c_double), intent(in), value :: x, q
real(c_double), dimension(-6:6), intent(out) :: ff
end subroutine lhapdf_evolvepdfm
subroutine lhapdf_evolvepdfphotonm (pdf, x, q, ff, fphot) bind (C)
use iso_c_binding
type(c_ptr), intent(in), value :: pdf
real(c_double), intent(in), value :: x, q
real(c_double), dimension(-6:6), intent(out) :: ff
real(c_double), intent(out) :: fphot
end subroutine lhapdf_evolvepdfphotonm
subroutine lhapdf_evolvepdfpm (pdf, x, q, s, scheme, ff) bind (C)
use iso_c_binding
type(c_ptr), intent(in), value :: pdf
integer(c_int), intent(in), value :: scheme
real(c_double), intent(in), value :: x, q, s
real(c_double), dimension(-6:6), intent(out) :: ff
end subroutine lhapdf_evolvepdfpm
subroutine lhapdf_getqmass (pdf, nf, mass) bind (C)
use iso_c_binding
type(c_ptr), intent(in), value :: pdf
integer(c_int), intent(in), value :: nf
real(c_double), intent(out) :: mass
end subroutine lhapdf_getqmass
function lhapdf_numpdfm (pdf) bind (C) result (numpdf)
use iso_c_binding
type(c_ptr), intent(in), value :: pdf
integer(c_int) :: numpdf
end function lhapdf_numpdfm
Index: trunk/src/lhapdf
===================================================================
--- trunk/src/lhapdf (revision 5902)
+++ trunk/src/lhapdf (revision 5903)
Property changes on: trunk/src/lhapdf
___________________________________________________________________
Added: svn:ignore
## -0,0 +1 ##
+Makefile.in

File Metadata

Mime Type
text/x-diff
Expires
Tue, Nov 19, 9:20 PM (1 d, 45 m)
Storage Engine
blob
Storage Format
Raw Data
Storage Handle
3806242
Default Alt Text
(3 KB)

Event Timeline