mrst pdfs restored.
authormorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 30 Oct 2009 16:49:53 +0000 (16:49 +0000)
committermorsch <morsch@f7af4fe6-9843-0410-8265-dc069ae4e863>
Fri, 30 Oct 2009 16:49:53 +0000 (16:49 +0000)
LHAPDF/lhapdf5.5.1/src/wrapevolve.f
LHAPDF/liblhapdf.pkg

index 40c2f78..de1c867 100644 (file)
       if (name(nset).eq.'CTEQ6ABgrid') call CTEQ6evolve(x,Q,f) 
 !!$      if (name(nset).eq.'CTEQ66grid') call CTEQ65evolve(x,Q,f) 
       if (name(nset).eq.'EVLCTEQ') call EVLCTEQevolve(x,Q,f) 
-!!$      if (name(nset).eq.'MRSTgrid') call MRSTevolve(x,Q,f) 
+      if (name(nset).eq.'MRSTgrid') call MRSTevolve(x,Q,f) 
 !!$      if (name(nset).eq.'MRST3grid') call MRSTevolve(x,Q,f) 
 !!$      if (name(nset).eq.'MRST4grid') call MRSTevolve(x,Q,f) 
 !!$      if (name(nset).eq.'MRST98grid') call MRST98evolve(x,Q,f) 
 !!$      if (name(nset).eq.'CTEQ66grid') call CTEQ66read(nset) 
       if (name(nset).eq.'CTEQ6LGgrid') call CTEQ6LGread(nset) 
       if (name(nset).eq.'EVLCTEQ') call EVLCTEQread(nset) 
-!!$      if (name(nset).eq.'MRSTgrid') call MRSTread(nset) 
+      if (name(nset).eq.'MRSTgrid') call MRSTread(nset) 
 !!$      if (name(nset).eq.'MRST3grid') call MRSTread(nset) 
 !!$      if (name(nset).eq.'MRST4grid') call MRSTread(nset) 
 !!$      if (name(nset).eq.'MRST4qed') call MRSTqedread(nset) 
 !!$      if (name(nset).eq.'CTEQ66grid') call CTEQ65alfa(alfas,Q) 
       if (name(nset).eq.'CTEQ6LGgrid') call CTEQ6LGalfa(alfas,Q) 
       if (name(nset).eq.'EVLCTEQ') call EVLCTEQalfa(alfas,Q) 
-!!$      if (name(nset).eq.'MRSTgrid') call MRSTalfa(5,alfas,Q) 
+      if (name(nset).eq.'MRSTgrid') call MRSTalfa(5,alfas,Q) 
 !!$      if (name(nset).eq.'MRST3grid') call MRSTalfa(3,alfas,Q) 
 !!$      if (name(nset).eq.'MRST4grid') call MRSTalfa(4,alfas,Q) 
 !!$      if (name(nset).eq.'MRST4qed') call MRSTalfa(4,alfas,Q) 
 !!$      if (name(nset).eq.'CTEQ66grid') call CTEQ65init(Eorder,Q2fit) 
       if (name(nset).eq.'CTEQ6LGgrid') call CTEQ6LGinit(Eorder,Q2fit) 
       if (name(nset).eq.'EVLCTEQ') call EVLCTEQinit(nset,Eorder,Q2fit) 
-!!$      if (name(nset).eq.'MRSTgrid') call MRSTinit(Eorder,Q2fit) 
+      if (name(nset).eq.'MRSTgrid') call MRSTinit(Eorder,Q2fit) 
 !!$      if (name(nset).eq.'MRST3grid') call MRSTinit(Eorder,Q2fit) 
 !!$      if (name(nset).eq.'MRST4grid') call MRSTinit(Eorder,Q2fit) 
 !!$      if (name(nset).eq.'MRST4qed') call MRSTinit(Eorder,Q2fit) 
 !!$      if (name(nset).eq.'CTEQ6ABgrid') call CTEQ6pdf(imem) 
 !!$      if (name(nset).eq.'CTEQ66grid') call CTEQ65pdf(imem) 
       if (name(nset).eq.'CTEQ6LGgrid') call CTEQ6LGpdf(imem) 
-!!$      if (name(nset).eq.'MRSTgrid') call MRSTpdf(imem) 
+      if (name(nset).eq.'MRSTgrid') call MRSTpdf(imem) 
 !!$      if (name(nset).eq.'MRST3grid') call MRSTpdf(imem) 
 !!$      if (name(nset).eq.'MRST4grid') call MRSTpdf(imem) 
 !!$      if (name(nset).eq.'MRST4qed') call MRSTpdf(imem) 
index 3cc7685..724ef3c 100644 (file)
@@ -42,6 +42,7 @@ lhapdf5.5.1/src/wrapgsg.f \
 lhapdf5.5.1/src/wraph1.f \
 lhapdf5.5.1/src/wraplacg.f \
 lhapdf5.5.1/src/wrapowpi.f \
+lhapdf5.5.1/src/wrapmrst.f \
 lhapdf5.5.1/src/wrapQCDNUM3.f \
 lhapdf5.5.1/src/wrapQCDNUM4.f \
 lhapdf5.5.1/src/wrapQCDNUM.f \