Back to home page

Project CMSSW displayed by LXR

 
 

    


File indexing completed on 2024-04-06 12:13:30

0001       SUBROUTINE MY_PDFSET(PDF)
0002       
0003       DOUBLE PRECISION PDF
0004       DOUBLE PRECISION VAL(20)
0005       CHARACTER*20 PARM(20)
0006 
0007       PARM(1)  = 'DEFAULT             '
0008       VAL(1)   =  PDF
0009       CALL PDFSET(PARM,VAL)
0010       
0011       RETURN
0012       END
0013 
0014