EPS09 added.

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

diff --git a/LHAPDF/lhapdf5.5.1/src/wrapevolve.f b/LHAPDF/lhapdf5.5.1/src/wrapevolve.f
index de1c86789ffbb6bc8e1b6e347ea028989cb82d82..b0019a3f3ab8d87c38a771fb1aad011f857bd04e 100644 (file)
--- a/LHAPDF/lhapdf5.5.1/src/wrapevolve.f
+++ b/LHAPDF/lhapdf5.5.1/src/wrapevolve.f
@@ -59,9 +59,13 @@
                                                                         
       call getlhaparm(15,lparm) 
       if(lparm.eq.'EPS08') then 
-        call eps08(x,q,a,ruv,rdv,ru,rd,rs,rc,rb,rt,rg) 
+         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) 
+         call eks98(x,q,a,ruv,rdv,ru,rd,rs,rc,rb,rt,rg) 
       endif 
                                                                         
       call evolvePDFM(nset,x,Q,f)