Some unused PDF are not compiled to reduce the memory consumption when loading liblha...
authorhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 20 May 2009 14:54:29 +0000 (14:54 +0000)
committerhristov <hristov@f7af4fe6-9843-0410-8265-dc069ae4e863>
Wed, 20 May 2009 14:54:29 +0000 (14:54 +0000)
LHAPDF/AliStructFuncType.h
LHAPDF/lhapdf5.5.1/src/wrapevolve.f
LHAPDF/liblhapdf.pkg

index 286e3de..983ef48 100644 (file)
@@ -17,7 +17,7 @@ typedef enum
     kCTEQ4M,  // cteq4m.LHgrid   
     kCTEQ5L,  // cteq5l.LHgrid
     kCTEQ5M,  // cteq5m.LHgrid
-    kGRVLO98, // GRV98lo.LHgris   
+    kGRVLO98, // GRV98lo.LHgrid   
     kCTEQ6,   // cteq6.LHpdf
     kCTEQ61,  // cteq61.LHpdf
     kCTEQ6m,  // cteq6m.LHpdf
index da9622b..40c2f78 100644 (file)
       if (name(nset)(1:11).eq.'QCDNUM_ZEUS') call ZEUSevolve(x,Q,f) 
       if (name(nset).eq.'CTEQ5grid') call CTEQ5evolve(x,Q,f) 
       if (name(nset).eq.'CTEQ6grid') call CTEQ6evolve(x,Q,f) 
-      if (name(nset).eq.'CTEQ65grid') call CTEQ65evolve(x,Q,f) 
-      if (name(nset).eq.'CTEQ65cgrid') call CTEQ65cevolve(x,Q,f) 
-      if (name(nset).eq.'CTEQ65sgrid') call CTEQ65sevolve(x,Q,f) 
+!!$      if (name(nset).eq.'CTEQ65grid') call CTEQ65evolve(x,Q,f) 
+!!$      if (name(nset).eq.'CTEQ65cgrid') call CTEQ65cevolve(x,Q,f) 
+!!$      if (name(nset).eq.'CTEQ65sgrid') call CTEQ65sevolve(x,Q,f) 
       if (name(nset).eq.'CTEQ6ABgrid') call CTEQ6evolve(x,Q,f) 
-      if (name(nset).eq.'CTEQ66grid') call CTEQ65evolve(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.'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.'MRST2006grid') call MRST2006evolve(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.'MRST2006grid') call MRST2006evolve(x,Q,f) 
       if (name(nset).eq.'MRSTpdf') call QCDNUMevolve(x,Q,f) 
       if (name(nset).eq.'MRST') call QCDNUMevolve(x,Q,f) 
       if (name(nset).eq.'A02') call A02evolve(x,Q,f) 
       endif 
 !                                                                       
       if(name(nset).eq.'MRST4qed') then 
-        call MRSTqedevolve(x,Q,f,photon) 
+!!$        call MRSTqedevolve(x,Q,f,photon) 
       else 
         photon = 0.0d0 
       endif 
       if (name(nset)(1:11).eq.'QCDNUM_ZEUS') call ZEUSread(nset) 
       if (name(nset).eq.'CTEQ5grid') call CTEQ5read(nset) 
       if (name(nset).eq.'CTEQ6grid') call CTEQ6read(nset) 
-      if (name(nset).eq.'CTEQ65grid') call CTEQ65read(nset) 
-      if (name(nset).eq.'CTEQ65cgrid') call CTEQ65cread(nset) 
-      if (name(nset).eq.'CTEQ65sgrid') call CTEQ65read(nset) 
+!!$      if (name(nset).eq.'CTEQ65grid') call CTEQ65read(nset) 
+!!$      if (name(nset).eq.'CTEQ65cgrid') call CTEQ65cread(nset) 
+!!$      if (name(nset).eq.'CTEQ65sgrid') call CTEQ65read(nset) 
       if (name(nset).eq.'CTEQ6ABgrid') call CTEQ6read(nset) 
-      if (name(nset).eq.'CTEQ66grid') call CTEQ66read(nset) 
+!!$      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.'MRST3grid') call MRSTread(nset) 
-      if (name(nset).eq.'MRST4grid') call MRSTread(nset) 
-      if (name(nset).eq.'MRST4qed') call MRSTqedread(nset) 
-      if (name(nset).eq.'MRST98grid') call MRST98read(nset) 
-      if (name(nset).eq.'MRST2006grid') call MRST2006read(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.'MRST98grid') call MRST98read(nset) 
+!!$      if (name(nset).eq.'MRST2006grid') call MRST2006read(nset) 
       if (name(nset).eq.'MRSTpdf') call QCDNUMread(nset) 
       if (name(nset).eq.'MRST') call QCDNUMread(nset) 
       if (name(nset).eq.'A02') call A02read(nset) 
       if (name(nset)(1:11).eq.'QCDNUM_ZEUS') call ZEUSalfa(alfas,Q) 
       if (name(nset).eq.'CTEQ5grid') call CTEQ5alfa(alfas,Q) 
       if (name(nset).eq.'CTEQ6grid') call CTEQ6alfa(alfas,Q) 
-      if (name(nset).eq.'CTEQ65grid') call CTEQ65alfa(alfas,Q) 
-      if (name(nset).eq.'CTEQ65cgrid') call CTEQ65alfa(alfas,Q) 
-      if (name(nset).eq.'CTEQ65sgrid') call CTEQ65alfa(alfas,Q) 
-      if (name(nset).eq.'CTEQ66grid') call CTEQ65alfa(alfas,Q) 
+!!$      if (name(nset).eq.'CTEQ65grid') call CTEQ65alfa(alfas,Q) 
+!!$      if (name(nset).eq.'CTEQ65cgrid') call CTEQ65alfa(alfas,Q) 
+!!$      if (name(nset).eq.'CTEQ65sgrid') call CTEQ65alfa(alfas,Q) 
+!!$      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.'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.'MRST98grid') call MRST98alfa(alfas,Q) 
-      if (name(nset).eq.'MRST2006grid') call MRST2006alfa(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.'MRST98grid') call MRST98alfa(alfas,Q) 
+!!$      if (name(nset).eq.'MRST2006grid') call MRST2006alfa(5,alfas,Q) 
       if (name(nset).eq.'MRSTpdf') call QCDNUMalfa(alfas,Q) 
       if (name(nset).eq.'MRST') call QCDNUMalfa(alfas,Q) 
       if (name(nset).eq.'A02') call A02alfa(alfas,Q) 
      & call ZEUSinit(nset,Eorder,Q2fit)                                 
       if (name(nset).eq.'CTEQ5grid') call CTEQ5init(Eorder,Q2fit) 
       if (name(nset).eq.'CTEQ6grid') call CTEQ6init(Eorder,Q2fit) 
-      if (name(nset).eq.'CTEQ65grid') call CTEQ65init(Eorder,Q2fit) 
-      if (name(nset).eq.'CTEQ65cgrid') call CTEQ65init(Eorder,Q2fit) 
-      if (name(nset).eq.'CTEQ65sgrid') call CTEQ65init(Eorder,Q2fit) 
-      if (name(nset).eq.'CTEQ66grid') call CTEQ65init(Eorder,Q2fit) 
+!!$      if (name(nset).eq.'CTEQ65grid') call CTEQ65init(Eorder,Q2fit) 
+!!$      if (name(nset).eq.'CTEQ65cgrid') call CTEQ65init(Eorder,Q2fit) 
+!!$      if (name(nset).eq.'CTEQ65sgrid') call CTEQ65init(Eorder,Q2fit) 
+!!$      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.'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.'MRST98grid') call MRST98init(Eorder,Q2fit) 
-      if (name(nset).eq.'MRST2006grid') call MRST2006init(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.'MRST98grid') call MRST98init(Eorder,Q2fit) 
+!!$      if (name(nset).eq.'MRST2006grid') call MRST2006init(Eorder,Q2fit) 
       if (name(nset).eq.'QCDNUM_MRST') then 
         call QCDNUMinit(nset,Eorder,Q2fit) 
         call QNLSET('BMARK',.TRUE.) 
       endif 
       if (name(nset).eq.'CTEQ5grid') call CTEQ5pdf(imem) 
       if (name(nset).eq.'CTEQ6grid') call CTEQ6pdf(imem) 
-      if (name(nset).eq.'CTEQ65grid') call CTEQ65pdf(imem) 
-      if (name(nset).eq.'CTEQ66grid') call CTEQ65pdf(imem) 
-      if (name(nset).eq.'CTEQ65cgrid') call CTEQ65pdf(imem) 
-      if (name(nset).eq.'CTEQ65sgrid') call CTEQ65pdf(imem) 
-      if (name(nset).eq.'CTEQ6ABgrid') call CTEQ6pdf(imem) 
-      if (name(nset).eq.'CTEQ66grid') call CTEQ65pdf(imem) 
+!!$      if (name(nset).eq.'CTEQ65grid') call CTEQ65pdf(imem) 
+!!$      if (name(nset).eq.'CTEQ66grid') call CTEQ65pdf(imem) 
+!!$      if (name(nset).eq.'CTEQ65cgrid') call CTEQ65pdf(imem) 
+!!$      if (name(nset).eq.'CTEQ65sgrid') call CTEQ65pdf(imem) 
+!!$      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.'MRST3grid') call MRSTpdf(imem) 
-      if (name(nset).eq.'MRST4grid') call MRSTpdf(imem) 
-      if (name(nset).eq.'MRST4qed') call MRSTpdf(imem) 
-      if (name(nset).eq.'MRST98grid') call MRST98pdf(imem) 
-      if (name(nset).eq.'MRST2006grid') call MRST2006pdf(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) 
+!!$      if (name(nset).eq.'MRST98grid') call MRST98pdf(imem) 
+!!$      if (name(nset).eq.'MRST2006grid') call MRST2006pdf(imem) 
       if (name(nset).eq.'A02') call A02pdf(imem) 
       if (name(nset).eq.'A02M') call A02Mpdf(imem) 
       if (name(nset).eq.'GRV0' .OR.                                     &
index e950932..3f83bde 100644 (file)
@@ -28,7 +28,6 @@ lhapdf5.5.1/src/wrapa02m.f \
 lhapdf5.5.1/src/wrapabfkwpi.f \
 lhapdf5.5.1/src/wrapacfgpg.f \
 lhapdf5.5.1/src/wrapcteq5.f \
-lhapdf5.5.1/src/wrapcteq65.f \
 lhapdf5.5.1/src/wrapcteq6.f \
 lhapdf5.5.1/src/wrapcteq6lg.f \
 lhapdf5.5.1/src/wrapdgg.f \
@@ -42,10 +41,6 @@ lhapdf5.5.1/src/wrapgsg96.f \
 lhapdf5.5.1/src/wrapgsg.f \
 lhapdf5.5.1/src/wraph1.f \
 lhapdf5.5.1/src/wraplacg.f \
-lhapdf5.5.1/src/wrapmrst2006.f \
-lhapdf5.5.1/src/wrapmrst98.f \
-lhapdf5.5.1/src/wrapmrst.f \
-lhapdf5.5.1/src/wrapmrstqed.f \
 lhapdf5.5.1/src/wrapowpi.f \
 lhapdf5.5.1/src/wrapQCDNUM3.f \
 lhapdf5.5.1/src/wrapQCDNUM4.f \