EPS09 added.

[u/mrichter/AliRoot.git] / LHAPDF / lhapdf5.5.1 / src / lhaglue.f

diff --git a/LHAPDF/lhapdf5.5.1/src/lhaglue.f b/LHAPDF/lhapdf5.5.1/src/lhaglue.f
index e7b32f67d0e75cff218fedf802ed5ef25e0a4a2e..932b6afcd91aea595b5462f34c49c3fe0b9df85f 100644 (file)
--- a/LHAPDF/lhapdf5.5.1/src/lhaglue.f
+++ b/LHAPDF/lhapdf5.5.1/src/lhaglue.f
@@ -982,8 +982,13 @@ subroutine structa(x,q,a,upv,dnv,usea,dsea,str,chm,bot,top,glu)
   implicit double precision (a-h,o-z)
   character*20 lparm
   call getlhaparm(15,lparm)
+
   if(lparm.eq.'EPS08') then
      call eps08(x,q,a,ruv,rdv,ru,rd,rs,rc,rb,rt,rg)
+  else if (lparm.eq.'EPS09LO') then
+     call eps09(1, 1, a, x, q, ruv, rdv, ru, rd, rs, rc, rb, rt, rg)
+  else if (lparm.eq.'EPS09NLO') then
+     call eps09(2, 1, a, x, q, ruv, rdv, ru, rd, rs, rc, rb, rt, rg)
   else
      call eks98(x,q,a,ruv,rdv,ru,rd,rs,rc,rb,rt,rg)
   endif