argument mismatches corrected
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 13 Aug 2013 11:25:26 +0000 (11:25 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Tue, 13 Aug 2013 11:25:26 +0000 (11:25 +0000)
LHAPDF/lhapdf5.5.1/src/LHpdflib.F
LHAPDF/lhapdf5.5.1/src/lhaglue.f

index 5e47390..a53e6a6 100644 (file)
@@ -268,6 +268,10 @@ subroutine setlhaparm(lparm)
      lhaparm(15)='EKS98'
   else if(lparm.eq.'EPS08') then
      lhaparm(15)='EPS08'
+  else if (lparm.eq.'EPS09LO') then
+     lhaparm(15) = 'EPS09LO'
+  else if (lparm.eq.'EPS09NLO') then
+     lhaparm(15) = 'EPS09NLO'
   else if(lparm.eq.'15') then
      lhaparm(15)=''
   else if(lparm.eq.'NOSTAT') then
index 932b6af..52f1b6e 100644 (file)
@@ -982,13 +982,15 @@ 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)
-
+  ia = int(a);
   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)
+     call eps09(1, 1, ia, x, q, ruv, rdv, ru, rd, rs, rc, rb, rg)
+     rt = 1.
   else if (lparm.eq.'EPS09NLO') then
-     call eps09(2, 1, a, x, q, ruv, rdv, ru, rd, rs, rc, rb, rt, rg)
+     call eps09(2, 1, ia, x, q, ruv, rdv, ru, rd, rs, rc, rb, rg)
+     rt = 1.
   else
      call eks98(x,q,a,ruv,rdv,ru,rd,rs,rc,rb,rt,rg)
   endif