1 subroutine numberPDF(noe)
5 call numberPDFM(nset,noe)
9 subroutine listPDF(nset,imem,parm)
11 include 'parmsetup.inc'
12 character*16 name(nmxset)
13 integer nmem(nmxset),ndef(nmxset)
14 common/NAME/name,nmem,ndef,mem
16 integer i,j,mem,imem,noe,nop,listN(nmxset),listP(nmxset),type
17 real*8 parmL(nmxset,0:noemax,nopmax),parm(nopmax)
19 save listN,listP,parmL
22 if (mem.gt.listN(nset)) then
23 write(*,*) 'Maximum number of PDFs in list exceeded: ',
25 write(*,*) 'Returning most likely PDF'
29 write(*,*) 'Negative PDF member requested: ',mem
30 write(*,*) 'Returning most likely PDF'
34 parm(i)=parmL(nset,mem,i)
38 entry nopPDF(nset,nop)
42 entry numberPDFM(nset,noe)
43 if(NAME(nset).eq.'MRSTgrid'
44 +.or.NAME(nset).eq.'MRST98grid'
45 +.or.NAME(nset).eq.'A02'
46 +.or.NAME(nset).eq.'A02M'
47 +.or.NAME(nset).eq.'CTEQ5grid'
48 +.or.NAME(nset).eq.'CTEQ6grid'
49 +.or.NAME(nset).eq.'CTEQ65grid'
50 +.or.NAME(nset).eq.'CTEQ65cgrid'
51 +.or.NAME(nset).eq.'CTEQ6ABgrid'
52 +.or.NAME(nset).eq.'SASG'
53 +.or.NAME(nset).eq.'GRVG'
54 +.or.NAME(nset).eq.'DOG'
55 +.or.NAME(nset).eq.'DGG'
56 +.or.NAME(nset).eq.'LACG'
57 +.or.NAME(nset).eq.'GSG'
58 +.or.NAME(nset).eq.'GSG96'
59 +.or.NAME(nset).eq.'ACFGP'
60 +.or.NAME(nset).eq.'WHITG'
61 +.or.NAME(nset).eq.'OWP'
62 +.or.NAME(nset).eq.'SMRSP'
63 +.or.NAME(nset).eq.'GRVP'
64 +.or.NAME(nset).eq.'ABFKWP'
65 c +.or.NAME.eq.'H12000'
75 entry InitListPDF(nset)
77 read(1,*) s1,listN(nset),listP(nset)
78 c print *,s1,listN,listP
79 if (index(s1,'list').eq.1) then
82 read(1,*) (parmL(nset,i,j),j=1,listP(nset))
87 write(*,*) 'File description error:'
88 write(*,*) 'Unknown parameter list type ',s1