mrst pdfs restored.

[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 40c2f78231dcc5569dd0647e9e5cc2a1a3ca0204..de1c86789ffbb6bc8e1b6e347ea028989cb82d82 100644 (file)
--- a/LHAPDF/lhapdf5.5.1/src/wrapevolve.f
+++ b/LHAPDF/lhapdf5.5.1/src/wrapevolve.f
@@ -131,7 +131,7 @@
       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) 
@@ -253,7 +253,7 @@
 !!$      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) 
@@ -303,7 +303,7 @@
 !!$      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) 
@@ -351,7 +351,7 @@
 !!$      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) 
@@ -466,7 +466,7 @@
 !!$      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)