1 subroutine GetOrderPDF(order)
6 call GetOrderPDFM(nset,order)
11 call GetRenFacM(nset,Q)
16 call GetQ2fitM(nset,Q2)
20 subroutine InitEvolve(nset)
23 real*8 x,Q,Q2,Q2fit,muR
24 integer nset,order,EvlOrd
29 read(1,*) s2,Q2fit,muR
30 if (index(s2,'lo').eq.1) EvlOrd=0
31 if (index(s2,'nlo').eq.1) EvlOrd=1
32 if (index(s2,'nnlo').eq.1) EvlOrd=2
34 write(*,*) 'File description error:'
35 write(*,*) 'Unknown PDF evolution order ',s2
38 if (muR.ne.1.0d0) then
39 write(*,*) '***********************************************'
40 write(*,*) '* Note than the renormalization scale is *'
41 write(*,*) '* unequal to the factorization scale for this *'
42 write(*,*) '* particular PDF set. *'
43 write(*,*) '* See manual for proper use. *'
44 write(*,*) '***********************************************'
46 c print *,'calling readevolve', nset
50 entry InitEvolveCode(nset)
51 c print *,'calling initevolution', nset,Evlord,Q2fit
52 call initevolution(nset,EvlOrd,Q2fit)
55 entry GetOrderPDFM(nset,order)
59 entry GetRenFacM(nset,Q)
63 entry GetQ2fitM(nset,Q2)